Hallo,
mit SelStart, SelLength und SelAttributes habe ich versucht, ein paar bestimmte Zeichen in einer Zeile zu färben, doch das funktioniert nicht. Es wird zwar u.a. gefärbt, was gefärbt, werden soll. Der Großteil, deer gefärbt wird, soll es aber nicht:
Delphi-Quellcode:
for i := 0 to sl.Count - 1 do // in sl sind alle Zeilen des RichEdits gespeichert
begin
linestr := Form1.RichEdit1.Lines[i];
tofindstr := Form1.Edit3.Text;
RichEdit1.SelStart := Pos(tofindstr, linestr) - 1;
RichEdit1.SelLength := Length(tofindstr);
RichEdit1.SelAttributes.Color := clRed;
RichEdit1.SelAttributes.Style := [fsBold, fsItalic];
end;