RichEdit - inserir valor

Delphi

31/01/2005

Pessoal
tenho um form onde tenho um RichEdit da seguinte forma
Cliente: Jorge Arantes                     Data: 01/02/2005



                   <¬TEXTO¬>


__________________________
Assinatura
Onde a variável <¬TEXTO¬> será substituida por um texto de 6 a 8 linhas.
O que acontece é que esse conteudo que está no RichEdit corresponde ao tamanho de uma folha de ofício. Então quando eu substituir a variável <¬TEXTO¬> pelo texto, o campo de ´Assinatura´ vai descer para além de sua posição definida.
Alguém tem uma idéia de como substituir na variável texto sem colocar os valores abaixo da variável para baixo? (é como se eu utilizasse a tecla Insert - só que não consegui.

Obs.: a variavel <¬TEXTO¬> é substiruida por texto quando o usuario clicar num Button que tem uma rotina de Replace.

agradecido
Diogo.


Diogoalles

Diogoalles

Curtidas 0

Respostas

Motta

Motta

31/01/2005

não entendi muito bem , mas vc pode usar o método add

RichEdit1.Lines.Add(´Cliente: Jorge Arantes Data: 01/02/2005 ´) ;

RichEdit1.Lines.Add(´ ´) ;
RichEdit1.Lines.Add(´Blá blá bla´) ;´
RichEdit1.Lines.Add(´Blá blá bla´) ;
RichEdit1.Lines.Add(´Blá blá bla´) ;
RichEdit1.Lines.Add(´´) ;
RichEdit1.Lines.Add(´´) ; // clacule as linhas até o fim da pa´gina
RichEdit1.Lines.Add(´--------------------------´) ;
RichEdit1.Lines.Add(´Fulano de Tal´) ;



meio tosco, pode ser melhorado


GOSTEI 0
Gandalf.nho

Gandalf.nho

31/01/2005

Dê uma olhada nesse [url=http://www.clubedelphi.net/artigos/top_aplicativo_mala_direta.asp]artigo[/url], pode ser que ajude


GOSTEI 0
Reginaldo174

Reginaldo174

31/01/2005

Talvez este codigo te ajude. Foi feito para localizar e colocar de vermelho a palavra desejada. Acho que pode ser adaptado para o seu richedit.

var
posicao1, posicao2 : Longint;
inicio, final : string;
begin
     inicio := edit1.Text;
      with RichEdit1 do
      begin
       Posicao1 := FindText(inicio, 0, Length(Text), []);
       Posicao2 := FindText(´ ´, posicao1, Length(Text), []);
       if (Posicao1 <> -1) then
          begin
            SetFocus;
            SelStart := Posicao1;
            SelLength := posicao2 - Posicao1;
           // SelLength := Posicao2 - Posicao1;
           SelAttributes.Color := clred;
          end;
      end;

end;



GOSTEI 0
POSTAR