Discussion :

[SergioMaster]

Bonjour,

FindStyleResource a deux syntaxes.

Pour la première function FindStyleResource(const AStyleLookup: string; const Clone: Boolean = False): TFmxObject; overload; je n'éprouve pas de difficultés majeures à abtenir ce que je veux récupérer sauf qu'il n'est pas très pratique d'avoir à : déclarer une variable, transtyper la fonction et tester si la variable est assignée.

La seconde function FindStyleResource<T: TFmxObject>(const AStyleLookup: string; var AResource: T): Boolean; me pose plus de soucis.
ceci fonctionne

Code :

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

 Header.Items[0].FindStyleResource<TText>('text',Texte); // Header:= THeader(StringGrid1.FindStyleResource('header'));

Mais, la plupart du temps, je me fais rejeter par une syntaxe incorrecte que j'arrive à contourner en trans-typant (encore ) avec TStyledControl(composant)


Me penchant sur ce sujet, connaissez-vous d'autres méthodes ?

[pprem]

En fait la seconde syntaxe (type générique) permet de récupérer la resource qui doit être de la classe ou descendante de la classe spécifiée, si le StyleName recherché n'existe pas ou n'est pas du bon type, ça ne renvoie rien.

Avec la première syntaxe tu récupères l'objet lié au StyleName du composant si ce stylename existe, qu'il qu'en soit le type. Ca permet plus de flexibilité dans la personnalisation des composants (mais ça implique de tester le type ou les interfaces et de transtyper pour se servir du résultat).

Dans la seconde version on sait déjà ce qu'on veut traiter, donc on le dit (de préférence en utilisant les interfaces ou la classe ancêtre TCustomXXX quand c'est possible). En revanche si on est trop précis, la personnalisation des composants ne sera plus traitée par ton code.

[SergioMaster]

Je suis d'accord avec cette analyse.

Maintenant, je me pose d'autres questions sur les styles et les moyens d'accès.
Prenons le cas d'un TExpander


Sur les 5 éléments constitutifs, seuls les éléments ayant un nom de style (StyleName) sont accessibles avec FindStyleResource comment alors, au runtime, modifier la couleur de Rectangle, qui lui n'en a pas ?
Idem, je viens de comprendre que pour accéder aux éléments "nommés" il faut utiliser ceux-ci et non la "hierarchie" visible sur l'image. Ainsi "text" est accessible par
Expander1.FindStyleResource<TText>('text',aTTextvar)et non Expander1.FindStyleResource<TText>('Rectangle.header.text',aTTextvar)donc, une lecture "à plat". Je comprends mieux mes soucis

Maintenant, je vais m'attacher à ce Rectangle. Oui bien sûr, il aurait été "nommé" background comme pour la plupart des autres éléments de style, ç'eut été plus facile ! Mais d'un autre côté, il y a très certainement d'autres "composantes" du même genre dissimulées çà et là. Peut-être qu'un simple recensement des enfants peut le faire, je vais m'atteler à cette question de matin

[SergioMaster]

Peut-être qu'un simple recensement des enfants peut le faire, je vais m'atteler à cette question de matin

résultat de mes essais : 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
19
20
21
22
 
    sb: TFmxObject;
begin
if not Assigned(expander1.Scene.StyleBook) then
    sb := TStyleManager.ActiveStyleForScene(Expander1.Scene)
  else
    sb := expander1.Scene.StyleBook.Style;
 
// ci dessus c'est remplaçable par 
// if Assigned(Stylebook) then sb:=Stylebook.Style  else sb:=TStyleManager.ActiveStyle(Self);
 
 var st:= sb.FindStyleResource('expanderstyle');
 if assigned(st) then
  begin
//   showmessage('Components '+st.ComponentCount.ToString+' Childrens '+st.ChildrenCount.ToString);   // donne "Components 5 Childrens 1"
   if st.Children[0] is Trectangle then
    begin
     aRectangle := st.children[0] as TRectangle;
     aRectangle.Fill.Color:=Talphacolors.black;
     TstyleManager.UpdateScenes; // important, c'est ce qui fait le "repaint" mais, hélas, de toute la forme  
    end;
  end;

résultat

[SergioMaster]

Vous vous demandez peut-être pourquoi je fais ces recherches et ces digressions ?
La réponse est dans cette image, où j'avais besoin d'obtenir : la fonte et la couleur utilisée par l'entête de colonne



encore imparfaite à cause du style utilisé :

• le background est un styleobject en liaison avec une image (ce que je déteste)
• le texte utilise des marges pour ne pas "déborder" sur le background << conclusion, je vais devoir récupérer les marges et les appliquer à mon GridPanelLayout

ce qui ramène aux liens

• https://www.developpez.net/forums/d2...ayout-runtime/
• https://www.developpez.net/forums/d2...mx-selections/

et m'ouvre des pistes non encore débroussaillées sur l'inclusion d'éléments dans les styles avec pour objectif final, répondre à un de mes questionnements : comment ajouter un style pour un nouveau composant ?