Im Memo die Farbe einer Zeile ändern

[Keldorn]

Hallo

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
Var i:integer;
    CharRange: TCharRange;
    Zeile:integer;
begin
  Zeile:=3; //jetz hier nur zum testen
  with richedit1 do
    begin
      //angegebene Zeile markieren
      charrange.cpMin:=SendMessage(Handle, EM_LINEINDEX, Zeile, 0);
      charrange.cpmax:=charrange.cpMin+length(Lines[Zeile]);
      SendMessage(Handle, EM_EXSETSEL, 0, LongInt(@CharRange));

      SelAttributes.Color:=clblue;//oder hier halt die Proc von Swissedelphi-center ansetzen
      SelLength:=0;//markierung aufheben
    end;
end;

mit sendmessage und PdsK etc. habe ich noch nicht so viel am hut, wenn es auch anders geht dann herdamit

Mfg Frank