Farbe in Zeilen eines RichEdits

[toms]

Hi,

Das geht so:

Delphi-Quellcode:

  RichEdit1.Text := '123';
  RichEdit1.SelStart  := 0;
  RichEdit1.SelLength := 2;
  RichEdit1.SelAttributes.Color := clRed;

  RichEdit1.Text := RichEdit1.Text + ' was schwarzes';
  RichEdit1.SelStart  := 4;
  RichEdit1.SelLength := Length(RichEdit1.Text);
  RichEdit1.SelAttributes.Color := clBlack;

  RichEdit1.Lines.Add('');