Discussion :

[Anselme45]

Bonjour à tous,

Je veux faire en sorte que lorsque l'utilisateur clique sur un bouton, le pourtour du bouton se colorise.

Pour ce faire, j'ai défini un style comme suit:



J'obtiens le comportement désiré mais j'ai un problème au démarrage de l'app: A l'ouverture, le pourtour du bouton est déjà colorisé et il faut cliquer une première fois sur le bouton pour pouvoir obtenir le comportement voulu.



Comment puis-je éviter d'avoir ce pourtour coloré au démarrage alors qu'il n'y a pas encore eu de click sur le bouton?

Est-il possible d'activer/désactiver le composant d'un stylebook en runtime? (l'idée étant de mettre le Gloweffect1Style.enabled à false dans le stylebook puis de la passer à True en runtime)

Merci d'avance

[SergioMaster]

Bonjour,
Pour le fun, je vais vérifier mais déjà mes premières impressions

Comment puis-je éviter d'avoir ce pourtour coloré au démarrage alors qu'il n'y a pas encore eu de click sur le bouton?

Peut-être parce que le bouton est considéré comme pressé au démarrage de l'application, ce serait trop bête que la propriété ispressed soit à true
vérification faite (aucun style changé), ce n'est pas le cas.

Une fois le style créé (tel l'image), effectivement le bouton a l'effet mais c'est "normal" puisque (selon l'image) l'effet est enabled. (du coup le trigger ne sert à rien) il faut que dans le style l'effet soit désactivé tout simplement.

Est-il possible d'activer/désactiver le composant d'un stylebook en runtime? (l'idée étant de mettre le Gloweffect1Style.enabled à false dans le stylebook puis de la passer à True en runtime)

ça c'est la question intéressante, même si du coup elle devient "subsidiaire" , on doit pouvoir y accéder en recupérant background.GlowEffect1Style mais background est un StyleObject ce qui n'a jamais été mon type préféré.
[EDIT : 8:51]
Alors, oui, c'est possible.

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
 
uses FMX.Effects, FMX.Styles;
 
procedure TForm125.Button1Click(Sender: TObject);
var FStyle,FFmxObj : TFMXObject;
begin
if (Sender is TButton) AND Sametext(TButton(Sender).StyleLookup,'button1style1') then
  begin
    FFMXObj:=TButton(Sender).FindStyleResource('GlowEffect1Style');
    if assigned(FFMXObj) Then
       begin
         TGlowEffect(FFMXObj).enabled:=false;
         TGlowEffect(FFMXObj).GlowColor:=Talphacolors.Red;
       end
    else showmessage('non affecté');   // ne doit pas arrivé
//    TButton(Sender).ApplyStyleLookup;
  end;
end;

Reste que cela ne s'applique ici que sur le bouton concerné car il est redessiné (applystylelookup a été commenté car il y a redessin à cause du trigger) . S'il y a d'autres contrôles ,dans ce cas d'autres boutons, avec le même style, il ne sont pas affecté par le code
Il faudrait trouver un moyen d'appliquer le "nouveau style" à tous mais, à part en naviguant dans la liste de tous les contrôles, je ne vois pas de solution.

[pprem]

en fait il suffit de désactiver l'effet, il st censé se déclencher en fonction du trigger (et pense à mettre aussi le reverse trigger pour être tranquille)

[SergioMaster]

(et pense à mettre aussi le reverse trigger pour être tranquille)

eheh, il n'y a pas de reverse pour le gloweffect et même peut être pour la plupart des effets tu confonds avec les animations qui, elles, ont des InverseTrigger (majoritairement ?)

pour en revenir à mes moutons,

Reste que cela ne s'applique ici que sur le bouton concerné car il est redessiné (applystylelookup a été commenté car il y a redessin à cause du trigger) . S'il y a d'autres contrôles ,dans ce cas d'autres boutons, avec le même style, il ne sont pas affecté par le code

en fait j'utilise le principe de modification du style pour un bouton (https://www.developpez.net/forums/bl...-grave-marbre/)
J'avoue que je n'ai toujours pas réussi à modifier directement le stylebook.
En fait je n'arrive pas à accéder aux éléments de celui-ci. Alors que si je fais une copie c'est possible

voilà un "florilège" de mes essais

Code :

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

1
2
3
4
5
6
7
 aFmxObj : TFMXObject:= Stylebook1.Style  // inaccessible  
 FStyle: TStyleBook := TStyleBook.Create(self);
 FStyle:=StyleBook1;
 aFmxObj :=Fstyle.Style; // ok
 aFmxObj :=FStyle.Style.FindStyleResource('Button1Style1'); // OK
 aFmxObj :=aFMXObj.FindStyleResource('GlowingEffect1'); // OK
 aFmxObj :=FStyle.Style.FindStyleResource('Button1Style1.GlowinsEffect1'); // pas OK

[Anselme45]

Une fois le style créé (tel l'image), effectivement le bouton a l'effet mais c'est "normal" puisque (selon l'image) l'effet est enabled. (du coup le trigger ne sert à rien) il faut que dans le style l'effet soit désactivé tout simplement

Bien vu!

Avec un enabled à False, j'ai le bon comportement!

Utilisant pour la première fois cette notion d'effet avec trigger, je me suis piégé moi-même... Je me suis convaincu que le enabled rendait actif l'effet et allait activer le trigger alors qu'en réalité "enabled" et "trigger" interagissent sur la même valeur booléenne. J'ai honte

[Anselme45]

J'avoue que je n'ai toujours pas réussi à modifier directement le stylebook.
En fait je n'arrive pas à accéder aux éléments de celui-ci. Alors que si je fais une copie c'est possible

A l'usage, cette notion de "styles" applicables aux objets s'avère efficace à l'emploi mais il faut bien avouer que c'est pas facile à dominer le sujet