Discussion :

[SergioMaster]

Bonjour,

Tests avec la version 10.4.1

Je suis intrigué, la plupart des composants ont une propriété StyleName mais je ne vois pas son utilisation.
ATTENTION, je parle bien de la propriété StyleName pas StyleLookup

Si j'en crois l'aide pour cette propriété

Spécifie le nom du style pour ce composant FMX.

Lisez ou définissez la propriété StyleName pour obtenir ou définir le nom du style pour ce composant FireMonkey. Par exemple, la propriété StyleName de l'objet TRectangle peut être définie sur 'backgroundstyle' ou 'panelstyle'.

Pour tester ça j'ai utilisé ce code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
procedure TForm1.Button1Click(Sender: TObject);
begin
 Button1.Tag:=Button1.Tag+1;
 case Button1.Tag of
   1 : Rectangle1.StyleName:='panelstyle';
   else begin
       Button1.Tag:=0;
       Rectangle1.StyleName:='backgroundstyle';
   end;
 end;
 Label2.Text:=Rectangle1.StyleName;
end;

Rien à faire ! Je loupe certainement quelque chose

[ShaiLeTroll]

Question bête dans le style que tu as choisi, 'backgroundstyle' et 'panelstyle' sont-ils différents

tu dois connaitre cette vieille démo Exploring Delphi XE2 – Tweaking the FireMonkey Styles , tu peux vérifier si dans la feuille de style que les éléments sont bien différents

[SergioMaster]

Bonjour,

Question bête dans le style que tu as choisi, 'backgroundstyle' et 'panelstyle' sont-ils différents

Oui, pour preuve sur l'image tu as un panel et un rectangle

tu peux vérifier si dans la feuille de style que les éléments sont bien différents

c'est bien le cas.
Dans l'article que tu cites le StyleName que l'on voit est dans un fichier Style, en gros ce StyleName sera utilisé dans une propriété StyleLookup

Dans le cas qui me préoccupe il s'agit, à l'inverse de la propriété StyleName du composant déposé sur la fiche. TRectangle n'est pas (comme certains autres composants) un composant stylé (donc pas de stylelookup). Je pense qu'il y a un non dit dans la documentation, il devrait être indiqué que cette propriété ne sert que dans la création/modification de fichier style.

En fait si je mentionne ce fait c'est que je suis "tombé" sur un truc gênant. J'utilise de plus en plus des TPath monochrome pour mes "icones de boutons". Dépendant du style à appliquer la couleur doit changer (du noir sur un Ubuntu Style, ça ne le fait vraiment pas ), je me proposai donc de récupérer la couleur utilisée dans des dessins tout prêt (comme les diverses images, stylelookup, pour les boutons) et appliquer celles-ci

Bon, c'est possible sur la base de recherche récursive de composant comme j'ai pu le tester avec ce code

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
19
procedure TForm1.Button1Click(Sender: TObject);
   procedure Recursive(AComponent : TComponent);
   begin
     if (AComponent is TPath) then
      begin
       if Sametext(TPath(AComponent).StyleName,'responsive') then   // ici stylename n'est en fait qu'un TagString
        begin
         TPath(AComponent).Fill.Color:=TAlphaColors.Aquamarine;
         TPath(AComponent).Stroke.Color:=TAlphaColors.Darkblue;
        end;
      end
     else if AComponent.ComponentCount>0 then
       for var i:=0 to ComponentCount-1 do Recursive(AComponent.Components[i]);
   end;
 
begin
  for var i:=0 to ComponentCount-1 do
   Recursive(Components[i]);
end;

[Paul TOTH]

si je me souviens bien, tu peux utiliser le StyleName d'un composant dans le StyleLookup d'un autre

exemple, tu crées un panel avec bouton et edit et tu lui donnes le stylename "toto"
si tu crées un second panel avec simplement le stylelookup "toto" il affichera un bouton et un edit

[jbrosse]

Je viens de faire des essais et confirme l'information de Paul.
Attention cependant : le "stylename" est sensible à la casse ('Toto'<>'toto'), de plus, si les dimensions du nouvel objet sont différentes, vérifier et modifier éventuellement l'ancrage des objets contenus dans l'objet de référence (dans l'exemple de Paul bouton et edit).
D'autre part, il s'agit bien d'un effet de style (= ici l'aspect du Panel), les objets contenus ne sont pas directement accessibles. A la conception, un changement dans l'objet de référence (par ex. propriété Text du bouton) n'est pas répercutée sur le nouvel objet (annuler son "stylelookup" puis le rétablir pour prendre en compte les modifications...), cependant ces modifications sont bien répercutées à l'exécution!

si je me souviens bien, tu peux utiliser le StyleName d'un composant dans le StyleLookup d'un autre

exemple, tu crées un panel avec bouton et edit et tu lui donnes le stylename "toto"
si tu crées un second panel avec simplement le stylelookup "toto" il affichera un bouton et un edit

Encore un grand merci à vous tous, pour vos conseils, vos interventions et vos tutoriels qui me sont d'une grande aide pour progresser.
Jacques

[Paul TOTH]

Je viens de faire des essais et confirme l'information de Paul.
Attention cependant : le "stylename" est sensible à la casse ('Toto'<>'toto'), de plus, si les dimensions du nouvel objet sont différentes, vérifier et modifier éventuellement l'ancrage des objets contenus dans l'objet de référence (dans l'exemple de Paul bouton et edit).
D'autre part, il s'agit bien d'un effet de style (= ici l'aspect du Panel), les objets contenus ne sont pas directement accessibles. A la conception, un changement dans l'objet de référence (par ex. propriété Text du bouton) n'est pas répercutée sur le nouvel objet (annuler son "stylelookup" puis le rétablir pour prendre en compte les modifications...), cependant ces modifications sont bien répercutées à l'exécution!



Encore un grand merci à vous tous, pour vos conseils, vos interventions et vos tutoriels qui me sont d'une grande aide pour progresser.
Jacques

cette latence est attendue, un Style FMX c'est une sorte de mini DFM, quand on applique le style, les composants sont instanciés comme enfant du composant, donc une fois que c'est fait on a une copie du style qui vit sa propre vie.