Pintar filas de un Listview

[dec]

Hola,

A ver si esto puede servirte de algo:

Código Delphi [-]
{ Evento OnCustomDrawItem del "TListView".
}
procedure TForm1.ListView1CustomDrawItem(Sender: TCustomListView;
  Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
  if Item.Checked then
    Sender.Canvas.Brush.Color := clLime
  else
    Sender.Canvas.Brush.Color := clWindow;
end;