Accès à un élément de style d'une TLisbox

Bonjour

J'ai créer un élément de style pour une TListbox en mettant un TCircle et un TLabel dans un TLayout.

Lors du remplissage de ma liste j'accède facilement au TLabel, mais je n'arrive pas à trouver le moyen de changer la couleur de remplissage de mon Tcircle.

Voici ce que j'ai essayé comme code mais qui produit une erreur de Transtypage de classe incorrect

Code:

---

1 2 3 4 5

item:=TLisBoxItem.Create(nil); item.parent:=malistbox; item.StyleLookup:='mon_style'; item.StylesData['mon_texte']:='texte du label'; crcl:=TFMXObject(item.StylesData['mon_cercle'].AsObject);

---

Je m'auto répond car j'ai retrouvé un équivalent dans un vieux code et ça donne ça:

Code:

---

1 2 3 4 5 6

FMXObject := Item.FindStyleResource('mon_cercle'); if (FMXObject <> nil) and (FMXObject is TCircle) then begin TCircle(FMXObject).Fill.Color:=ma_coul; end;

---

Ceci dit je me demande si il n'y a pas une autre méthode que de passer par FindStyleRessource

Bonjour,

je ne suis plus très ListBox mais à ma souvenance tu cherches quelque chose comme ça

Code:

---

1 2	item.StylesData['mon_cercle.fill.color']:=ma_coul

---

[Edit]
bon je confirme avec ce petit exemple
Pièce jointe 616208

pas encore Alsheimer ;) mais un peu rouillé niveau style

Code:

---

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

procedure TFormPrincipale.Button3Click(Sender: TObject); var I: Integer; aItem : TListBoxItem; begin listbox1.BeginUpdate; for I := 1 to 10 do begin aItem:=TlistBoxItem.Create(ListBox1); aItem.Parent:=ListBox1; aItem.StyleLookup:='myitemstyle'; aItem.ApplyStyleLookup; aItem.StylesData['mycircle.fill.color']:=TAlphaColors.Alpha OR Cardinal(Random($FFFFFF)); aItem.StylesData['mylabel.text']:='Hello '+inttostr(i); end; listbox1.EndUpdate; end;

---

Juste un truc, je fais exprès de découper.
J'ai voulu jouer aussi avec la couleur du texte

Code:

---

aItem.StylesData['mylabel.textsettings.fontcolor']:=aColor;

---

mais ça, ça ne fonctionne pas sans modifier aItem.StylesData['mylabel.StyledSettings'] pour enlever StyledSetting.Color mais je ne sais pas comment le faire

Code:

---

aItem.StylesData['mylabel.StyledSettings']:= ??

---

Pour info, si je n'ai pas pu coder ce aItem.StylesData['mylabel.StyledSettings'], il est tout à fait possible d'indiquer dans le style créé que le label ne prend pas la couleur du style (StyleSettings.FontColor = false).
Coder ceci est donc possible

Code:

---

aItem.StylesData['mytext.textsettings.fontcolor']:=aColor;

---

mon style

Pièce jointe 616415

Dans ce dernier vous remarquez aussi que j'ai mis le Titre en gras, pour ce faire j'ai fait quasiment la même manipulation à savoir :
- Modifier StyleSettings cette fois c'est la propriété Style que j'ai décoché
- Modifier ensuite TextSettings.Font.Style pour ajouter Bold

C'est effectivement ce que j'ai fait.