Salut,
Le plus simple, c'est de changer la couleur de la brosse du canvas avant le dessin de chaque item (évènement OnCustomDrawItem) :
Const
Couleur1 = $BBFFFF;
Couleur2 = $FFFFBB;
procedure TForm1.ListView1CustomDrawItem(Sender: TCustomListView;
Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
If Item.Index mod 2 = 0 then
Sender.Canvas.Brush.Color := Couleur1
else
Sender.Canvas.Brush.Color := Couleur2;
DefaultDraw := True;
end;
Et là, tu vas me dire : "Il reste les bordures qui ne sont pas colorées !" , et je répondrais "Oui !..."
Ken@vo
____________________
Code, Code, Codec !