Fórum RichEdit - inserir valor #266841
31/01/2005
0
Pessoal
tenho um form onde tenho um RichEdit da seguinte forma
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.
tenho um form onde tenho um RichEdit da seguinte forma
Cliente: Jorge Arantes Data: 01/02/2005
<¬TEXTO¬>
__________________________
AssinaturaO 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
Curtir tópico
+ 0
Responder
Posts
31/01/2005
Motta
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
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
Responder
Gostei + 0
31/01/2005
Gandalf.nho
Dê uma olhada nesse [url=http://www.clubedelphi.net/artigos/top_aplicativo_mala_direta.asp]artigo[/url], pode ser que ajude
Responder
Gostei + 0
31/01/2005
Reginaldo174
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;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)