Je, je, éste también es un bonito pintado:
Código Delphi
[-]
procedure TFileListBox.DrawItem(Index: Integer; Rect: TRect; State: TOwnerDrawState);
begin
if odSelected in State then
Canvas.Brush.Color := clGray
else
case Index mod 4 of
0: Canvas.Brush.Color := clGreen;
2: Canvas.Brush.Color := clRed;
1, 3: Canvas.Brush.Color := clWhite;
end;
inherited;
end;
// Saludos