Formatação Automatica No Richedit

[D4n1l0d]

Ola!

Tp, eu tava tentando fazer um richedit funcionar igual a area de texto das units, que quando eu digito var ela fica automaticamente em negrito, eu tentei mas esta dando alguns erros, como eu faço isso?? existe algum componente que faça isso para mim??

abaixo o codigo que usei ( coloquei no OnChange do richedit ( nome: richedit1 ));

procedure TForm1.RichEdit1Change(Sender: TObject);
var
a,z,v : integer;
x : string;
begin
for a := 0 to richedit1.Lines.Count -1 do
begin
if pos('var',richedit1.Lines.ValueFromIndex[a]) <> 0 then
begin
z := pos('var',richedit1.Lines.ValueFromIndex[a]);
richedit1.SelStart :=z;
richedit1.SelLength := 3;
richedit1.SelAttributes.Style := [fsBold];
richedit1.SelLength := 0;
//richedit1.SelStart :=z+3;
richedit1.SelAttributes.Style := [];
end;

end;

end;

agradeço a ajuda desde já!!

abraços!!

[Micheus]

Testei sua rotina e para funcionar ficou como segue. (troquei o nome das variáveis para ficar mais legível, ok?!)

procedure TForm1.RichEdit1Change(Sender: TObject);
var
  PosNaLinha,
  PosNoTexto,
  IdxLinha,
  SavedPos :integer;
begin
  SavedPos := richedit1.SelStart;  // salva posição atual do cursor
  PosNaLinha := 0;
  PosNoTexto := 0;
  for IdxLinha := 0 to richedit1.Lines.Count -1 do
  begin
    PosNaLinha := pos('VAR', UpperCase(richedit1.Lines[IdxLinha]));
    if PosNaLinha > 0 then
    begin
      Inc(PosNoTexto, PosNaLinha -1);
      richedit1.SelStart := PosNoTexto;
      richedit1.SelLength := 3;
      richedit1.SelAttributes.Style := [fsBold];
      Inc(PosNoTexto, 3);
      richedit1.SelLength := 0;
      richedit1.SelStart := PosNoTexto;
      richedit1.SelAttributes.Style := [];
      Inc(PosNoTexto, Length(richedit1.Lines[IdxLinha]) -PosNaLinha);
      richedit1.SelStart := SavedPos;  // posição do cursor, visto que a cada tecla esta rotina é chamada
    end else
      Inc(PosNoTexto, Length(richedit1.Lines[IdxLinha])+2);  // +2 é para somar os #10#13
  end;
end;

existe algum componente que faça isso para mim??

Dê uma olhada neste componente (link - procure por RichEdit Syntax Highlighter 3.2). Tem os fontes junto, talvez você possa aproveitá-los para sanar suas dúvidas.

[D4n1l0d]

obrigado!

me ajudou bastante o codigo

vou dar uma olha no RichEdit Syntax Highlighter 3.2

vlw

falou