[roman]

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