hallo,
Delphi-Quellcode:
procedure TForm.RicheditChange(Sender: TObject);
var
cp: TPoint;
begin
cp := Richedit.CaretPos;
Richedit.selstart := 0;
Richedit.SelLength :=
Length(Richedit.Lines[0]) + 2 + // + 2 wegen dem #13#10 hinter einer Zeile
Length(Richedit.Lines[1]) + 2 + // -"-
Length(Richedit.Lines[2]) + 2; // -"-
Richedit.SelAttributes.color := clRed;
Richedit.selstart := 0;
Richedit.CaretPos := cp;
Richedit.SelAttributes.color := Richedit.Font.Color; // Zurücksetzen der Farbe
end;
der code bezieht sich ja auf die zeichen der lines, geht das nicht das sich Richedit.selstart direkt auf
die zeilen ( lines )bezieht, dann könnte ich sagen in der lines [8] soll die schriftfarbe rot sein ?
mfg vader