RichEdit: Farbige Zeilen

[Lannes]

Hallo,

mit der geänderten Prozedur:

Delphi-Quellcode:

procedure AddColoredString(ARichEdit: TRichEdit; AText: string; AColor: TColor);
var oldColor : TColor;
begin
  with ARichEdit do
  begin
    setfocus;
    SelStart := Length(Text);
    oldColor := SelAttributes.Color;
    SelAttributes.Color := AColor;
    SelAttributes.Size := 8;
    SelAttributes.Name := 'Tahoma';
    SelText := AText;
    SelAttributes.Color := oldColor;
  end;
end;

darf man dann auch per add Zeilen hinzufügen, die die zuvor vorhandene Textfarbe annehmen.