Richedit Farbe ?

[marabu]

Hallo Vader,

gefällt dir das besser?

Delphi-Quellcode:

procedure SetLineColor(re: TRichEdit; const index: Integer; const cl: TColor);
begin
  if index < re.Lines.Count then
  begin
    re.SelStart := re.Perform(EM_LINEINDEX, index, 0);
    re.SelLength := Length(re.Lines[index]);
    re.SelAttributes.Color := cl;
  end;
end;

Grüße vom marabu