Delphi Aktuelle Zeile im Memo farblich hervorheben (wie in BDS)

Thema durchsuchen

Ansicht

Themen-Optionen

Aktuelle Zeile im Memo farblich hervorheben (wie in BDS)

Ein Thema von Nils_13 · begonnen am 28. Dez 2005 · letzter Beitrag vom 1. Jan 2006

Vorheriger Beitrag

Nächster Beitrag

Hansa

Registriert seit: 9. Jun 2002
Ort: Saarland
7.554 Beiträge

Delphi 8 Professional

Re: Aktuelle Zeile im Memo farblich hervorheben (wie in BDS)

29. Dez 2005, 11:06

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

Doch noch auf die Schnelle gefunden :

markieren

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.