Title: How to alternate the color of TListbox lines?
Question: Do you ever needed to do a zebra-effect with a TListbox? Well, it's a quick and simple solution.
Answer:
You just have to set your TListBox.Style to, for example lbOwnerDrawFixed, and
put the following code on the OnDrawItem event:
with TListBox(Control).Canvas do
begin
// Draw odd items with another color
if Odd(Index) and not (odSelected in State) then
Brush.Color := clSilver;
FillRect(Rect);
TextOut(Rect.left, Rect.top, TListBox(Control).Items[Index]);
end;