Richedit Farbe ?

[xe0n]

oder dieses ^^

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
i,Line,sz:integer;
begin
sz:=0; //-- sz Startzeichen
Line:=strtoint(edit1.Text)-1; //-- (-1) weil Richedit Index bei 0 anfängt
for i:=0 to Line do 
begin
sz:=sz+length(richedit1.Lines[i])+2; //-- (+2) weil hinter jeder Line noch 2 nicht sichtbare Zeichen stehen
end;
richedit1.SelStart:=sz-length(richedit1.Lines[Line])-2;
richedit1.SelLength:=length(richedit1.Lines[Line]);
richedit1.SelAttributes.Color:=clred;
end;

umständlich aber es funzt auch ^^
mann kann es auch in ne procedure schreiben um dan mehrere zeilen
zu makieren.

mfg Xe0n