[FireMonkey ]TSwitch et la fonction FindStyleResource

Version imprimable

02/04/2014, 22h47
gandf

[FireMonkey ]TSwitch et la fonction FindStyleResource
Bonjour,

J'utilise plusieurs TSwitch créés dynamiquement dans un programme et j'aimerais modifier les propriétés de certains sous-composants.
J'ai pu le faire sans problème avec d'autres composants mais je ne trouve pas comment faire avec un TSwitch.
En effet, j'ai pu vérifier avec le debuggeur qu'il n'y a pas d'enfant accessible (ni avec ChildrenCount, ni ControlsCount).
Du coup, je voudrais accéder aux composants interne avec la fonction FindStyleResource.
Par exemple, si j'essaie d'accéder à l'image de fond quand le switch est sur on :
Code:

1 2 3 4 5 6 7 TFmxObject *TempObj = PSwitch->FindStyleResource("on", false); if (TempObj != NULL) { ... ... ... }
La fonction ne trouve jamais le composant.
Pourtant, je suis certain de la valeur à mettre dans le nom puisqu'ils sont énumérés dans la fonction ApplyStyle du switch.

Savez-vous comment faire ?

Merci pour votre aide.

ps : j'utilise C++Builder XE4 et je n'ai pas ajouter de composant gérant le style à mon application.

Salut, si ton TSwitch utilise un style (fichier .Style) qui possède des propriétés comme celles-ci:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 object TSwitchObject StyleName = 'switchstyle' Fill.Color = xFF484848 FillOn.Color = xFF65C8E0 FillOn.Kind = bkSolid Stroke.Color = xFF1C1C1C Thumb.Color = xFF484848 ThumbOn.Kind = bkNone ThumbStroke.Color = xFF1C1C1C Shape = ssRectangle HitTest = False end
Alors ton TSwitch est un TSwitchObject et tu vas pouvoir faire ceci:
Code:

1 2 3 4 5 6 Fmx::Types::TFmxObject* StyleResource = StyleBook1->Style->FindStyleResource("switchstyle"); if(StyleResource && StyleResource->ClassNameIs("TSwitchObject")) { TSwitchObject* SwitchObject = static_cast<TSwitchObject*>(StyleResource); SwitchObject->FillOn->Color = TAlphaColor(claRed); }
Par contre, par défaut le TSwitch est un TBitmapSwitchObject. Cet objet utilise une image pour se remplir, par exemple Windows 7style.png. Je n'ai pas trouver comment changer le look d'un contrôle de ce type.

N'oublie pas d'inclure ceci:

Code:

#include <FMX.Styles.Switch.hpp>

07/04/2014, 22h23
gandf

Bonjour,

Merci pour cette aide bienvenue.

J'ai essayé de m'inspirer de ce que tu m'indiques mais cela ne fonctionne pas sur ma version.
J'ai C++Builder XE4 et je n'ai pas trouvé le fichier "FMX.Styles.Switch.hpp" sur le disque.
L'aide ne fait pas référence à TSwitchObject.

En bref, je n'ai pas encore trouvé de solution sans passer par un StyleBook.
J'ai essayé de faire une petite application de demo pour voir les différents styles et après quelques changements, il y a certains contrôles qui ne se mettent pas complètement à jour et après quelques changements supplémentaires, il y a un plantage.
J'ai l'impression qu'il y a des fuites de mémoires dans la gestion des styles sur ma version.
De ce fait, j'aimerais bien ne pas avoir à utiliser un StyleBook.

J'avais vu que leTSwitch avait une image en fond pour la couleur et j'aimerai pouvoir choisir à l'exécution sa couleur sans avoir à charger un nouveau style et sans impacter les autres contrôles.
Bref, gérer la couleur de chaque Switch à l'exécution indépendamment les uns des autres.
Les TSwitch que j'utilise sont créés dynamiquement.

J'avais pensé faire un composant dérivé de TSwitch mais le composant de fond est en private et on n'y a pas accès dans la classe fille.

Pour donner un contexte, voici comment j'utilise le TSwitch actuellement.
Je réalise une application permettant de surveiller des services qui sont gérés
Je voudrais un ou 2 switchs à côté de ceux existants. Ils permettent d'activer certaines fonctionnalités sur les groupes de services et différencier les fonctionnalités activer en fonction de la couleur des switchs.

http://www.flyonsoft.com/service.png

Je te remercie de ton aide.
08/04/2014, 21h05
Crayon
Citation:

Envoyé par gandf

J'ai essayé de m'inspirer de ce que tu m'indiques mais cela ne fonctionne pas sur ma version.
J'ai C++Builder XE4 et je n'ai pas trouvé le fichier "FMX.Styles.Switch.hpp" sur le disque.
L'aide ne fait pas référence à TSwitchObject.

Salut, de mon coté j'ai C++Builder XE5. Essai de faire une recherche dans le dossier include pour trouver le fichier .hpp où si situe TSwitchObject.

Sinon juste pour être certain regarde le nom du contrôle pour être certain qu'il s'agit bien d'un TSwitchObject:
Code:

1 2 Fmx::Types::TFmxObject* StyleResource = StyleBook1->Style->FindStyleResource("switchstyle"); String LeNom = StyleResource->ClassName();
Ceci va chercher le style général sans utiliser de StyleBook et devrait te donner un TBitmapSwitchObject:
Code:

1 2 Fmx::Types::TFmxObject* StyleResource = Fmx::Types::FindStyleResource("switchstyle"); String LeNom = StyleResource->ClassName();
Sinon je ne trouve pas vraiment comment faire ce que tu cherches. :(
09/04/2014, 00h57
gandf

Salut,

Je n'ai trouvé aucun fichier ayant "TSwitchObject" dans son contenu.

Le code que tu indiques (avec le stylebook) ne trouve pas d'objet.

Par contre, le code plus généraliste ne trouve pas un TBitmapSwitchObject mais un TLayout.
Et j'arrive à accéder à des TSubImage via les TLayout.

Par contre, cela risque de changer la couleur pour tous les switchs ?

Quand j'édite le StyleBook, voici ce que j'obtiens.
http://www.flyonsoft.com/stylebook.png
C'est un TSubImage (on) qui contient la couleur.

Salut, j'ai fait quelques tests sur XE2 car je l'ai d'installer sur mon PC et effectivement le style n'est pas pareil. Il utilise un TLayout comme on peut le voir dans le fichier Air.Style:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
  object TLayout
    StyleName = 'switchstyle'
    Position.Point = '(416,514)'
    Width = 130.000000000000000000
    Height = 14.000000953674320000
    DesignVisible = False
    object TBrushObject
      StyleName = 'On'
      Brush.Color = xFF65C8E0
    end
    object TBrushObject
      StyleName = 'Off'
      Brush.Color = xFF484848
    end

Si tu veux changer la couleur de tous les TSwitch tu peux utiliser quelque chose du genre:

Code:

1
2
3
4
5
6
7
8
9
10
11
    Fmx::Types::TFmxObject* StyleResource = Fmx::Types::FindStyleResource("switchstyle");
    if(StyleResource && StyleResource->ClassNameIs("TLayout"))
    {
        TLayout* SwitchObject = static_cast<TLayout*>(StyleResource);
        Fmx::Types::TFmxObject* StyleOn = SwitchObject->FindStyleResource("on");
        if(StyleOn && StyleOn->ClassNameIs("TBrushObject"))
        {
            TBrushObject* BrushOn = static_cast<TBrushObject*>(StyleOn);
            BrushOn->Brush->Color = claRed;
        }
    }

Je te laisse essayer de trouver le code pour le faire pour un contrôle uniquement.

Merci. Quand tu aides, c'est pas à moitier.

Voici un morceau de code pour accéder à l'image d'un stylebook.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
void __fastcall ChangeSwitchColor(TStyleBook *FStyleBook, TAlphaColor FCouleur)
{
for (int i = 0; i < FStyleBook->Style->ChildrenCount; i++)
    {
    Fmx::Types::TFmxObject* StyleResource = FStyleBook->Style->Children->Items[i];
    if (StyleResource && StyleResource->ClassNameIs("TLayout"))
       {
       TLayout* SwitchObject = static_cast<TLayout*>(StyleResource);
 
       Fmx::Types::TFmxObject* StyleOn = SwitchObject->FindStyleResource("on");
       if (StyleOn && StyleOn->ClassNameIs("TSubImage"))
          {
          TSubImage* SubImageOn = static_cast<TSubImage*>(StyleOn);
          ...
          ...
          ...
          }
       }
    }
}

il ne me reste plus qu'à l'utiliser.