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

Question

Posez votre question Signaler Répondre au sujet

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

Delphi / Pascal Posez votre question Signaler Répondre au sujet

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

Signaler Commenter la réponse de retaks666

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 !

Accepted Answer

+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é ? Oui Non

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

Vous n'êtes pas encore membre ? inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Vous n'êtes pas encore membre ?

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