Discussion :

[Gouyon]

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 :

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

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

[Gouyon]

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

Code :

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

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

[SergioMaster]

Bonjour,

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

Code :

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

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

[Edit]
bon je confirme avec ce petit exemple


pas encore Alsheimer mais un peu rouillé niveau style

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
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;

[SergioMaster]

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

Code :

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

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 :

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

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

[SergioMaster]

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 :

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

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

mon style



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

[Gouyon]

C'est effectivement ce que j'ai fait.