hoi,
ich habe das problem das bei folgendem code, immer nur das erste Add die zeile farbig macht, das nächste ist dann wieder standard farbe. ich hatte das ganze so:
Delphi-Quellcode:
procedure RECL(RE: TRichEdit; s: string; c: TColor);
begin
with RE do
begin
SelStart := Length(s);
SelAttributes.Color := c;
SelAttributes.Size := 9;
SelAttributes.Name := 'MS Sans Serif';
Lines.Add(s);
end;
end;
...
procedure TForm1.Button1Click(Sender: TObject);
begin
RECL(RichEdit1, Edit1.Text, $00FF00FF);
end;