Listbox et les Variables

Salut à tous
j'ai un petit problème de couleur sur Listbox
j'ai une variable "i" entier
et je veux si (i=0) la première ligne de listbox sera en rouge
et si (i=1) la deuxième ligne de listbox sera en rouge .... et
j'ai essayé ce code normalement ça marche mais...
le problème est qu'il se rafraîchit pas pour changer les couleurs
il change seulement la première ligne malgré que la variable i se change
il manque quelque chose !!!:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState); begin with(Control as TListBox).Canvas do // Le dessin se fait sur le canevas du contrôle, pas dans la fiche begin   if Index=i then   Brush.Color:=clRed ;   FillRect(Rect); // Efface le rectangle // Dessin du texte TextOut(Rect.Left,Rect.Top,(Control as TListBox).Items[Index]);//affiche le texte   end; end;

---

Remarque : la variable i est déclarée en début de form

Merci d'avance

Bonjour,

il manque certainement un else

Code:

---

1 2	if Index=i then Brush.Color:=clRed else Brush.Color:=clWindows;

---

toujours le même problème
seulement la première ligne qui change du couleur
elle reste fixe
Remarque: le style de listBox=(lbOwnerDrawFixed)

Quelle procédure donne la valeur de "i" ?

j'utilise un Timer pour incrémenter la valeur (i)
et il incrémente parfaitement

Citation:

---

Envoyé par ABBAN270

j'utilise un Timer pour incrémenter la valeur (i)
et il incrémente parfaitement

---

Et dans ce OnTimer, tu fais un ListBox.Repaint ?

non
ya pas ce choix dans le menu
il a pris (Timer1Timer)

D'accord avec la piste de Lung, quel est le code de ton TForm1.Timer1Timer ?

Citation:

---

Envoyé par Lung

Et dans ce OnTimer, tu fais un ListBox.Repaint ?

---

j'ai ajouter (ListBox.Repaint) dans le Timer
et ça marche
c'est nouveau pour moi cette fonction
Merci beaucoup