Aktuelle Zeile im Memo farblich hervorheben (wie in BDS)

[Hansa]

Mache das mit einer Listbox und fertig. Beim Memo wirds zu kompliziert, dem das beizubringen.

Doch noch auf die Schnelle gefunden :

Delphi-Quellcode:

    if Index mod 2 = 0 then begin
      Listbox1.Canvas.Brush.Color := clYellow;
      Listbox1.Canvas.FillRect(Rect);
      Listbox1.Canvas.TextOut(Rect.Left, Rect.Top, Listbox1.Items[Index]);
    end
    else
      Listbox1.Canvas.TextOut(Rect.Left, Rect.Top, Listbox1.Items[Index]);

Das färbt jede zweite Zeile gelb.