Discussion :

[defluc]

Bonjour

J'ai mis les items d'une ListBox dans des couleurs différents via l'événement OnDrawItem.
Quelle est l'instruction qui permet de récupérer la valeur de couleur au clic sur un item pour l'appliquer sur un composant Tedit de la même fiche : Edit1.Color := ListBox1.Items[i]????


Merci

[maamar1979]

tu peux stoker le couple {Couleur, Indexe de l'item} dans une liste que tu consulter à chaque click pour determiner la couleur à utiliser pour ton edit.

juste un avis .

[portu]

Tout dépend du comment tu attribues la couleur à chaque Item.
Du genre que si dans ton OndrawItem tu as :

Code :

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

1
2
3
4
5
6
 
Const
My_Colors  : Array[0..2] Of TColor = (CLred, ClBlue, ClWhite);
....
Listbox.Canvas.Brush.Color := My_Color[Index mod 3];
....

Tu peux attribuer ta couleur à ton edit comme ceci

Code :

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

1
2
 
Edit.Color := My_Color[ListBox.ItemIndex mod 3];

En gros, tu dois te baser sur la façon que tu utilises dans le Ondraw de ton ListBox

A+

[Graffito]

Bonjour,

Si lorsqu'on trace l'item Idx de la listbox, on fait :

Code :

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

1
2
Listbox.Canvas.Brush.Color := My_Color ;
Listbox.items.objects[Idx]:=pointer(My_Color) ;

On récupére la couleur ainsi :

Code :

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

 My_color:=Tcolor(ListBox1.Items.objects[ListBox1.Items.itemselected]);