Bonjour,
Pour mettre mon problème en évidence, j'ai créé une form qui contient:
- Une listbox
- Un bouton
- Une image
- StyleBook1
La propriété Stylebook de la form est assignée à StyleBook1.
Dans Stylebook1 j'ai créé un style qui contient une image et un champ text.
Lorsque je clique sur le bouton, je rajoute bien un élément dans la liste.
Le texte du label est bien mis à jour (ici avec le texte 'Mon systeme')
En revanche, je n'arrive pas à assigner une image à l'objet Timage de mon style ('iconsystem')
Merci pour votre aide.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17 procedure TForm2.Button1Click(Sender: TObject); Var ListboxItem : TListboxItem; // dans fmx.listbox S1,S2 : string; AgeSec,pe,pv : integer; ItemImage : Timage; Begin ListboxItem := TListboxItem.Create(ListBox1); ListboxItem.Parent := ListBox1; ListboxItem.StyleLookup := 'Layout1Style'; ListboxItem.Size.height := 65; ListboxItem.StylesData['systemname'] := 'Mon systeme'; ItemImage := ListboxItem.FindStyleResource('iconsystem') as TImage; if assigned(ItemImage) then ItemImage.bitmap.assign(Image1.Bitmap); ListBox1.addobject(ListBoxItem); End;
Partager