Colorier une listview une ligne sur deux [Résolu]

retaks666 289 Messages postés jeudi 2 janvier 2003Date d'inscription 16 juillet 2007 Dernière intervention - 9 févr. 2005 à 14:44 - Dernière réponse : retaks666 289 Messages postés jeudi 2 janvier 2003Date d'inscription 16 juillet 2007 Dernière intervention
- 9 févr. 2005 à 17:15
Bonjour, comment faut il faire pour colorier une ligne sur deux dans un listview en mode report ? Je pensais utiliser tcustomListView mais j'y arrive pas.
Merci de m'aider :)
Afficher la suite 

2 réponses

Répondre au sujet
cs_Kenavo 759 Messages postés vendredi 21 mars 2003Date d'inscription 1 octobre 2009 Dernière intervention - 9 févr. 2005 à 16:56
+3
Utile
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 !
Cette réponse vous a-t-elle aidé ?  
Commenter la réponse de cs_Kenavo
retaks666 289 Messages postés jeudi 2 janvier 2003Date d'inscription 16 juillet 2007 Dernière intervention - 9 févr. 2005 à 17:15
0
Utile
lol merci ça marche ! Pur les bordures j'ai mis les gridlines ça se voit pas !
Commenter la réponse de retaks666

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.