Hier mein Beispiel für ein Zebraeffekt. Eventuell musst du es anpassen:
Zitat:
Hier ein Tipp wie man diesen Effekt bei einer ListBox nutzt. Dazu nutzt man das Ereignis OnDrawItem der ListBox. Diese bietet ein Canvas zum zeichnen und ein Rect-Bereich in den gezeichnet werden darf.
Zuerst muß allerdings die TListBox.Style Eigenschaft auf lbOwnerDrawFixed (oder lbOwnerDrawVariable bei variablen Höhen) gestellt werden. Wenn man das nicht macht, dann wird nicht gezeichnet.
Wichtig!
Delphi-Quellcode:
...
ListBox1.Style := lbOwnerDrawFixed;
...
Entweder im Code einstellen oder bereits in Objektinspektor.
Die Prozedur ist allgemein aufgebaut und kann aus jeder OnDrawItem Prozedur aufgerufen werden. Die Parameter der Prozedur sind die gleichen wie bei der OnDrawItem Prozedur. Man muß die Variablenbezeichnungen einfach nur übertragen:
Delphi-Quellcode:
procedure DrawListBoxZC(Control: TWinControl; Index: Integer; Rect: TRect;
State: TOwnerDrawState);
const
Col1: array [Boolean] of TColor = ($00F8F8F8, clWindow); // <<< Wunschfarben
Col2: array [Boolean] of TColor = (clInactiveCaptionText, clWindowText);
var
TopDif: Integer; // Gleicht die Höhendifferenz aus
begin
with (Control as TListbox) do
begin
if odSelected in State then Canvas.Font.Color := clCaptionText else begin
Canvas.Brush.Color := Col1[Odd(Index)];
Canvas.Font.Color := Col2[(Control as TListbox).Enabled];
end;
TopDif := (ItemHeight div 2) - (Canvas.TextHeight(#32) div 2);
Canvas.TextRect(Rect, Rect.Left, Rect.Top + TopDif, Items[Index]);
end;
end; {Popov}
Beispiel:
Die DrawListBox Prozedur (oben) ist universal einsetzbar und kann aus verschieden Prozeduren gleichzeitig aufgerufen werden. Hier aus der OnDrawItem Ereignisprozedur der ListBox1:
Delphi-Quellcode:
procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
begin
DrawListBoxZC(Control, Index, Rect, State);
end;