2 respuestas en este tema

[enecumene]

Aquí­ alternaremos los colores de una fila en un TListView cuando su estilo es el vsReport, es muy sencillo:

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 !.

[Wilson]

Buen aporte amigo, gracias.

Saludos

[felipe]

Que bien... buen aporte.


Saludos!