Styles. Utilisation de FindStyleResource

Version imprimable

15/07/2022, 15h54
SergioMaster

Styles. Utilisation de FindStyleResource

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:

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 :roll:) avec TStyledControl(composant)

Me penchant sur ce sujet, connaissez-vous d'autres méthodes ?
15/07/2022, 17h20
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.
16/07/2022, 08h09
SergioMaster

1 pièce(s) jointe(s)

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
Pièce jointe 622347

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 :aie:

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

1 pièce(s) jointe(s)

Citation:

Envoyé par 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:

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
Pièce jointe 622348

16/07/2022, 09h32
SergioMaster

1 pièce(s) jointe(s)
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

Pièce jointe 622349

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 ?