Discussion :

[franckcl]

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')

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;

Merci pour votre aide.

[Thierry Laborde]

Bonjour,

La propriété Stylebook de la form est assignée à StyleBook1.

En fait c'est ça qu'il faut annuler. Ne pas lier la propriété Stylebook de la form au Stylebook1 et ça devrait marcher.

[SergioMaster]

Bonjour,

Ce genre de chose a beaucoup changé depuis XE4. A l'époque je trouvais ça galère et c'est pour cela que j'avais décidé de faire partager mon expérience via ce tutoriel et le source

[guillemouze]

Bonjour,
En fait c'est ça qu'il faut annuler. Ne pas lier la propriété Stylebook de la form au Stylebook1 et ça devrait marcher.

Je maitrise pas trop les styles, j'ai pas mal galéré avec (en XE5), mais je ne comprend pas comment tu peux retrouver ton style avec StyeLookUp sans que le stylebook soit retrouvable

[Thierry Laborde]

Je maitrise pas trop les styles, j'ai pas mal galéré avec (en XE5), mais je ne comprend pas comment tu peux retrouver ton style avec StyeLookUp sans que le stylebook soit retrouvable

La on parle de rattacher le stylebook au style de la form, ce qui n'est pas nécessaire vu que l'on a rattaché le style au stylelookup de la listbox.
Et en l'occurence je viens de faire le test si je rattache le style à la Form il y a bien le problème. Par contre quand la form n'est pas rattaché au Stylebook cela fonctionne.
Le lien se fait bien via le stylelookup de la listbox pas de la form

[guillemouze]

La on parle de rattacher le stylebook au style de la form, ce qui n'est pas nécessaire vu que l'on a rattaché le style au stylelookup de la listbox.

le stylelookup ok, mais il lookup dans quoi ? il faut bien qu'il sache dans quel stylebook aller rechercher le style ayant ce nom ! A moins qu'il parcoure tous les stylebook disponibles sur la form pour les retrouver ?

[Thierry Laborde]

A moins qu'il parcoure tous les stylebook disponibles sur la form pour les retrouver ?

Exactement. En fait rattacher la form au stylebook ne sert principalement que lorsque ce stylebook va jouer sur le look de la Form.

[Thierry Laborde]

Je viens de faire un test supplémentaire et je me rends compte que si l'on fait ça :

Code :

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

ListboxItem.StylesData['iconsystem']  := Image1.Bitmap;

au lieu de :

Code :

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

1
2
ItemImage :=  ListboxItem.FindStyleResource('iconsystem') as TImage;
if assigned(ItemImage) then  ItemImage.bitmap.assign(Image1.Bitmap);

Cela fonctionne dans les 2 cas. Que la Form soit rattachée au Stylebook ou pas.
Alors que ce n'étais pas le cas dans la solution initiale.
Allez savoir pourquoi....

[franckcl]

Super ! merci Thierry ça marche nickel !

Bonne continuation
Franck