Moin,
ich benutze folgenden Code um eine farbige Zeile in mein RichEdit zu bekommen:
Delphi-Quellcode:
procedure AddColoredLine(ARichEdit: TRichEdit; AText: string; AColor: TColor);
begin
with ARichEdit do
begin
SelStart := Length(Text);
SelAttributes.Color := AColor;
SelAttributes.Size := 8;
SelAttributes.Name := 'Tahoma';
Lines.Add(AText);
end;
end;
Das funktioniert auch soweit, nur wenn ich folgendes mache:
RichEdit1.Text := RichEdit1.Text + 'hi';
Dann ist der komplette Text wieder schwarz. Jemand ne Ahnung wie das kommt?