How to change the background color on different lines of text in a TListBox

~~~~~~~~~~~~~~~~~~~~~~~~~
procedure TForm1.ListBox1DrawItem
   (Control: TWinControl; Index: Integer;
   Rect: TRect; State: TOwnerDrawState) ;
var
   myColor: TColor;
   myBrush: TBrush;
begin
   myBrush := TBrush.Create;
   with (Control as TListBox).Canvas do
   begin
     if not Odd(Index) then
       myColor := clSilver
     else
       myColor := clYellow;

     myBrush.Style := bsSolid;
     myBrush.Color := myColor;
     Windows.FillRect(handle, Rect, myBrush.Handle) ;
     Brush.Style := bsClear;
     TextOut(Rect.Left, Rect.Top,
             (Control as TListBox).Items[Index]) ;
     MyBrush.Free;
   end;
end;
~~~~~~~~~~~~~~~~~~~~~~~~~

Delphi tips navigator:
» Is computer attached to a network?
« Deactivating the default context menu (on TWinControl descedants)

• 1
• 2
• 3
• 4
• 5