Richedit Farbe ?

[turboPASCAL]

Na ungefähr so:

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;

Da es aber besser wäre die Sache in Paint-Event zu machen ist es besser auch hier eine eigene Klasse abzuleiten...