delphi Comment changer lors de l'exécution d'un sous-propriété style texte utilisateur FireMonkey

Question

J'ai créé un style comme celui-ci:

Puis-je créer un TLayout composant reçus en héritage nommé TLieu

Mon but est de l'instancier au moment de l'exécution et changer: Propriété Image, Propriété Title.Text, Propriété Informations.Text, Map, Infos, Boutons de lien

mon code est ceci, mais ça ne fonctionne pas (Delphi XE 10.1):

Procedure TF_Main.Button1Click(Sender: TObject); 
var 
    Lieu : TLieu; 
begin 
    Lieu := TLieu.Create(VSB_Place); 
    Lieu.Name := 'Test'; 
    Lieu.StyleName := 'Lieu'; 
    Lieu.StylesData['Title.Text'] := 'My Title'; 
    // TLayout(Lieu).StylesData['Title.Text'] := 'My Title'; // this doesn't work either 
end; 

Comment puis-je modifier les propriétés secondaires d'un composant personnalisé personnalisé lors de l'exécution?

Thx

Answer 1

1. TLieu doit être héritée de TStyledControl
2. Utilisation Lieu.StyleLookup au lieu de Lieu.StyleName
3. Avant changement StyleData appeler ApplyStyleLookup

Answer 2

Voici un exemple que je fais avec ListBox Article

vItem.StylesData['descript'] := 'Description'; 
vItem.StylesData['details'] := 'Details text'; 
vItem.ImageIndex := 3; 

Dans mon cas "descript" et "details" sont TText. vous pouvez changer les noms dans la propriété StyleName (dans les styles).

Pour modifier l'image en spécifiant simplement un index d'image pour l'élément ListBox (vItem.ImageIndex) dans mon exemple, l'image TGlyph en style doit avoir le nom 'glyphstyle'.

// comment accéder au composant dans le style:

vItem.NeedStyleLookup; 
vItem.ApplyStyleLookup; // without this, FindStyleResource will return nil 

vSwitch := vItem.FindStyleResource('switch') as TSwitch; 
Assert(vSwitch <> nil); 
vSwitch.IsChecked := vCampaign.Enable; 
vSwitch.OnClick := DoOnClickSwitch;