Eine Listview verwenden, um die Sachen wesentlich komplizierter zu machen, die die Listbox schon hat, oder wie ?
Delphi-Quellcode:
procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
begin
if Index mod 2 = 0 then begin
Listbox1.Canvas.Brush.Color := clRed;
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]);
end;
Das färbt jede zweite Zeile rot. Du kannst aber genausogut die letzten Lottozahlen verwenden, um genau die Zeilen mit den entsprechenden Nummern zu färben.
Den Inhalt der Zeilen kann man auch für sowas verwenden.
P.S.: der Style der Listbox muss im
OI auf OwnerDraw??? gesetzt werden !