delphi
procedure TForm1.ListView1CustomDrawItem(Sender: TCustomListView; Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean); const cStripe = $CCFFCC; // Color que alternaremos begin if Odd(Item.Index) then // los items tendrán el fondo verde ListView1.Canvas.Brush.Color := cStripe else // Aquí ponemos el otro color, en este caso blanco ListView1.Canvas.Brush.Color := clWindow; end;
Resultado:
Saludos !.