RichEdit: Farbige Zeilen

[marabu]

Mach es so:

Delphi-Quellcode:

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

procedure TDemoForm.ButtonClick(Sender: TObject);
begin
  // AddColoredLine(RichEdit, 'asdfhskgfsdgfjhsdfjsd', clRed);
  AddColoredString(RichEdit, 'asdfhskgfsdgfjhsdfjsd'#13#10, clRed);
end;

marabu