FMX Delphi - Comment modifier les valeurs d'objets dans un StyleBook ?

Bonjour,
J'aimerais pouvoir changer la couleur d'un objet contenu dans un stylebook mais je ne sais pas comment faire
J'ai un StyleBook (appellons le StyleBook1) qui contient un element appellé backgroundstyle dont j'aimerais modifier le parametre Color
J'ai tenté

Code:

---

1 2	StyleBook1.StyleContainer['backgroundstyle.Fill.Color'] := Blue;

---

Mais j'ai un message d'erreur me disant qu il ne connait pas StyleContainer.
Quelqu'un aurait il une idée ?
Merci merci d'avance
Pierre Jean
Pièce jointe 578932

étant donné que le mode d'accès aux styles a chagé sur les dernières versions de Delphi. Quelle version du compilateur utilises tu ?

Citation:

---

Envoyé par ALWEBER

étant donné que le mode d'accès aux styles a chagé sur les dernières versions de Delphi. Quelle version du compilateur utilises tu ?

---

J'utilise la derniere version Rad Studio 10.4 avec les 3 updates 1,2 et 3

Bonjour,

c'est le StyleContainer qui me laisse dubitatif.
Sans essayé, j'aurai écrit StyleData['Fill.Color']:=TalphaColors.Blue mais ça c'est pour un composant "stylé" pour le stylebook j'ai un doute pourtant je suis sûr de l'avoi déjà fait quelque part ...
Il faut que je me remette un peu aux styles

Citation:

---

J'utilise la derniere version Rad Studio 10.4 avec les 3 updates 1,2 et 3

---

Ben non, maintenant c'est la 10.4.1 (sans patch)

Citation:

---

Envoyé par SergioMaster

Bonjour,

c'est le StyleContainer qui me laisse dubitatif.
Sans essayé, j'aurai écrit StyleData['Fill.Color']:=TalphaColors.Blue mais ça c'est pour un composant "stylé" pour le stylebook j'ai un doute pourtant je suis sûr de l'avoi déjà fait quelque part ...
Il faut que je me remette un peu aux styles


Ben non, maintenant c'est la 10.4.1 (sans patch)

---

J'avais essayé SyleData mais cela me dit Identificateur non déclaré StyleData quand je fais

Code:

---

StyleBook1.StyleData['backgroundstyle.Fill.Color'] := TalphaColors.Blue;

---

Oui, j'ai pris le temps de faire le test et StyleData ne s'applique qu'au composant stylés i.e un panel. Le hic c'est que TForm n'en est pas un (du moins sur ce que j'ai pu essayé)
Quant aux autres essais que j'ai pu faire :
- StyleRessource fait un accès à "l'image" du style
- StyleContainer, je ne vois pas comment l'utiliser
reste la piste des objets d'un stylebook, on peut les lister donc , a priori, y accéder. Il était trop tard pour que j'aille plus loin dans cette démarche

Citation:

---

Envoyé par SergioMaster

Oui, j'ai pris le temps de faire le test et StyleData ne s'applique qu'au composant stylés i.e un panel. Le hic c'est que TForm n'en est pas un (du moins sur ce que j'ai pu essayé)
Quant aux autres essais que j'ai pu faire :
- StyleRessource fait un accès à "l'image" du style
- StyleContainer, je ne vois pas comment l'utiliser
reste la piste des objets d'un stylebook, on peut les lister donc , a priori, y accéder. Il était trop tard pour que j'aille plus loin dans cette démarche

---

Merci a toi ... je continue a chercher moi aussi

Bonjour,

je ne sais pas où tu en es, si tu as continué cette recherche.

Suite à cette discussion je me suis peut-être un peu approché d'une solution

Après quelques autres essais comme celui-ci (ici j'appliquais le style background aux panels panel1.stylelookup:='background') :
Pièce jointe 590290

j'ai finalement trouvé ce qui me manquait : TStylemanager.UpdateScenes;

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

uses fmx.styles, FMX.Objects; procedure TForm122.Button1Click(Sender: TObject); var Aco : TColorObject; AStyle,aFMXObj : TFMXObject; aPanel : TPanel; begin AStyle:=TStyleManager.ActiveStyle(Self); // style par défaut aFmxObj:=AStyle.FindStyleResource('backgroundstyle'); if Assigned(AFmxObj) AND (AFmxObj is TRectangle) // attention, fonction du style backgroundstyle n'est pas forcément un Trectangle, cela peut être un tstyleobject then TRectangle(aFMXObj).Fill.Color:=TAlphaColors.Chartreuse else showmessage('non trouvé'); aFmxObj:=AStyle.FindStyleResource('panelstyle'); if Assigned(AFmxObj) AND (AFmxObj is TRectangle) then TRectangle(aFMXObj).Fill.Color:=TAlphaColors.Skyblue else showmessage('non trouvé'); TStylemanager.UpdateScenes; aPanel:=Tpanel.Create(Self); aPanel.Parent:=Self; aPanel.StyleLookup:='panelstyle'; aPanel.Position.X:=10; aPanel.Position.y:=10;

---

Pièce jointe 590292

Reste à vérifier cette théorie sur quelques stylebooks, ce premier jus étant fait sur le "style par défaut", c'est à dire pas de stylebook sur la forme
Encore quelques paragraphes que je pourrais ajouter dans un futur "livre" sur les styles ;)

Citation:

---

Envoyé par SergioMaster

Reste à vérifier cette théorie sur quelques stylebooks, ce premier jus étant fait sur le "style par défaut", c'est à dire pas de stylebook sur la forme

---

Alors le résultat est mitigé et, c'est bien ce que je craignais, dépend si le background est un TStyleObject ou directement TRectangle.
S'il s'agit d'un TRectangle pas de souci, il faut adapter le code de cette manière

Code:

---

1 2 3

if Assigned(Stylebook) then AStyle:=Stylebook.Style else Astyle:=TStyleManager.ActiveStyle(Self);

---

et le tour est joué : ci dessous au design le Stylebook est rempli avec air.style
Pièce jointe 590297

Attention également, il faut aussi que fill.brush soit égal à solid , toutefois il est facile de l'ajouter

Code:

---

1 2 3 4 5

if Assigned(AFmxObj) AND (AFmxObj is TRectangle) then begin TRectangle(AfmxObj).Fill.Kind:=TBrushKind.Solid; // force le type de brosse TRectangle(aFMXObj).Fill.Color:=TAlphaColors.Chartreuse; end

---

:idea: ce qui veut aussi dire que l'on peut changer le type de brosse pour y mettre un gradient ou un bitmap

Je vais maintenant me battre avec les TStyleObject (par exemple tous les styles Metropolisxxxx.style)