Fórum Mostrar número das linhas em memo #186034
03/10/2003
0
Ola pessoal,
estou querendo mostrar os numeros das linhas de um campo memo. Como o Homesite
Detalhe: se eu ativar o word wrap, o programa ira identificar que a linha continuou na linha de baixo, e mostra um simbolo (qualquer) e continua e mostrar o numero da proxima linha.
ex:
1
2
3
4 # ESSA LINHA É GRANDE E CONTINUA NA PROXIMA LINHA
5
...
E como fazer um preview de impressão que apareça esses número tb.
Qualquer informação é muito útil.
At.
Endrigo
estou querendo mostrar os numeros das linhas de um campo memo. Como o Homesite
Detalhe: se eu ativar o word wrap, o programa ira identificar que a linha continuou na linha de baixo, e mostra um simbolo (qualquer) e continua e mostrar o numero da proxima linha.
ex:
1
2
3
4 # ESSA LINHA É GRANDE E CONTINUA NA PROXIMA LINHA
5
...
E como fazer um preview de impressão que apareça esses número tb.
Qualquer informação é muito útil.
At.
Endrigo
Alternatribe
Curtir tópico
+ 0
Responder
Posts
03/10/2003
Wbb
No momento em que você for adicionar outra linha, você pode simplesmente acrescentar a string de um número sequencial na frente...
Ex.:
Memo1.Lines.Add(IntToStr(Memo1.Lines.Count + 1) + ´ - blablabla´);
Será que serve?
wbb
Ex.:
Memo1.Lines.Add(IntToStr(Memo1.Lines.Count + 1) + ´ - blablabla´);
Será que serve?
wbb
Responder
Gostei + 0
03/10/2003
Alternatribe
Infelizmente não.
Na verdade, a numeração fic em um Panel ao lado do Memo.
Eu tenho um rotina para um componente pago (que eu não quero usar-pagar) que chama uma rotina no OnDraw dele.
Mais ou menos assim:
...
With MeuMemo do
for i:= 0 to lines.count do
begin
rect := Bounds(2,i * CellRect.Height,MeuPanel-5,CellRect.Height);
DrawText(Canvas.Handle,Pchar(intTostr(i+1)),-1,rect,DT_Right or DTVCenter or DT_singleline);
end;
...
Por isso estou tentando desenvolver.
Mesmo assim, obrigado.
At,
Endrigo
Na verdade, a numeração fic em um Panel ao lado do Memo.
Eu tenho um rotina para um componente pago (que eu não quero usar-pagar) que chama uma rotina no OnDraw dele.
Mais ou menos assim:
...
With MeuMemo do
for i:= 0 to lines.count do
begin
rect := Bounds(2,i * CellRect.Height,MeuPanel-5,CellRect.Height);
DrawText(Canvas.Handle,Pchar(intTostr(i+1)),-1,rect,DT_Right or DTVCenter or DT_singleline);
end;
...
Por isso estou tentando desenvolver.
Mesmo assim, obrigado.
At,
Endrigo
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)