Discussion :

[YanK]

Bonjour

Je pense que la question a du déjà être posée mais le moteur de recherche du forum ne marche pas souvent.
Alors voilà, j'aimerai changer la couleur des lignes d'un ListView.
Exactement j'aimerai avoir une couleur différente toutes les 2 lignes pour que ce soit plus lisible.

Merci

[Seb]

Salut,

Tu peux essayer de d'inspirer de ce code et jouer sur la parité des lignes :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
procedure TForm1.ListView1CustomDrawItem(Sender: TCustomListView; 
  Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean); 
begin 
  with ListView1.Canvas.Brush do 
  begin 
    case Item.Index of 
      0: Color := clYellow; 
      1: Color := clGreen; 
      2: Color := clRed; 
    end; 
  end; 
end;

A+,

Seb.

[YanK]

Merci je vais essayer ca dessuite

[YanK]

Euh j'ai un petit problème comment je dois utiliser ta fonction?

[Lung]

C'est un évènement.

[YanK]

Ah oui merci

[YanK]

Ca marche nickel merci
J'avais presque rien à changer:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
procedure TFraProprioHab.ListView2CustomDrawItem(Sender: TCustomListView;
  Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
  with ListView2.Canvas.Brush do
  begin 
    case (Item.Index mod 2) of
      0: Color := 16772313;
      1: Color := 16777215; 
    end; 
  end;
end;

Voila encore merci de votre aide