Discussion :

[Anselme45]

"C'est une question qui a déjà été posée sur ce forum et une réponse a été fournie" me dira le lecteur assidu de ce forum... Ben non! Embarcadero trouvant que l'usage de FMX est bien trop simple, c'est plus drôle d'en changer le fonctionnement d'une version à l'autre de Delphi!

Mon Problème: J'applique un style prédéfini à une application FMX et j'ai besoin de changer en runtime la couleur de fond d'un label en particulier! Et bien sûr le style prédéfini m'empêche de le faire!

Dans un temps ancien et heureux, la solution consistait à modifier les propriétés StyleElements en désactivant seClient, seFont et seBorder alors le style prédéfini ne s'appliquait pas au composant.

Dans Rio, cette propriété n'est plus disponible...

Est-ce que quelqu'un aurait une idée?

Merci d'avance.

[SergioMaster]

Bonjour,

"C'est une question qui a déjà été posée sur ce forum et une réponse a été fournie" me dira le lecteur assidu de ce forum... Ben non!

Non je ne crois pas, et comme je pense que je suis un demandeur/lecteur assidu du forum FMX, il ne me semble pas que cette question ait été posée.

Embarcadero trouvant que l'usage de FMX est bien trop simple, c'est plus drôle d'en changer le fonctionnement d'une version à l'autre de Delphi!

Je ne crois pas qu'ils aient un jour tenu ce discours. Par contre le comportement non pas entre version mais entre VCL et FMX soit différent Ils ne l'ont pas caché on ne peut pas avoir du multicible, "multiskin" (en réduisant le style à ça) sans faire des concessions.

Mon Problème: J'applique un style prédéfini à une application FMX et j'ai besoin de changer en runtime la couleur de fond d'un label en particulier! Et bien sûr le style prédéfini m'empêche de le faire!

OUI pour un TLabel, la messe est dite, encore qu'il y ait les propriétés StyleSettings qui peuvent jouer pour ce qui est de la fonte, la taille, la couleur de fonte et ce que je n'ai jamais trop saisi la famille et autre.

Dans un temps ancien et heureux, la solution consistait à modifier les propriétés StyleElements en désactivant seClient, seFont. Dans Rio, cette propriété n'est plus disponible.

Je dirais que StyleSettings répond à StyleElements

seBorder alors le style prédéfini ne s'appliquait pas au composant.

Pour les bordures, pour un TLabel je n'ai même jamais utilisé avec la VCL (et pourtant je pratique depuis fin 90) sauf avec un composant particulier, je ne savais même pas qu'il était possible de mettre des bordures à un TLabel

Mettre des bordures à un TLabel FMX, intéressant le challenge, peut-être une réponse en soirée (faudrait pas s'habituer hein !)

Est-ce que quelqu'un aurait une idée?

Après mes réponses non, une autre idée oui, utiliser TText en lieu et place de TLabel. En fait TLabel est un TText stylé, ce qui me fait indiquer une autre piste : modifier le StyleLookup du TLabel au runtime reste possible, nouvelle possibilité à explorer à ma souvenance deux lignes de codes seront nécessaires

Code :

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

1
2
MonLabel.StyleLookup:='<le nom du style> '; // i.e 'ListBoxItemLabel', 'ListBoxHeaderLabel',ListBoxItemDetailLabel vont jouer sur la taille de la fonte
MonLabel.ApplyStyleLookup; // équivalent d'un repaint

Déjà j'entrevoie ce qui va te faire râler (c'est mon cas) les couleurs "systèmes" totalement oubliées. J'ai ouvert des discussions à ce sujet et même peut-être mis un billet (à moins que ce soit un chapitre d'un carnet de bord (futur tutoriel) sur les Styles)

[gbegreg]

Bonjour,

Tu peux mettre un TRectangle à la place de ton TLabel puis mettre le TLabel dans le TRectangle en l'alignant à tout le TRectangle.
Ensuite, avec les propriétés Fill et Stroke du TRectangle, tu peux faire le fond et le contour du TLabel comme tu le souhaites.

[Anselme45]

Bonjour,

Non je ne crois pas, et comme je pense que je suis un demandeur/lecteur assidu du forum FMX, il ne me semble pas que cette question ait été posée.

La question a été posée en 2017 et tu as même participé à la discussion, mais cela s'appliquait à la VCL. En bon élève, je cherche toujours dans les archives avant d'ouvrir une nouvelle discussion.

https://www.developpez.net/forums/d1...ns-composants/

Pour les bordures, pour un TLabel je n'ai même jamais utilisé avec la VCL (et pourtant je pratique depuis fin 90) sauf avec un composant particulier, je ne savais même pas qu'il était possible de mettre des bordures à un TLabel

Mettre des bordures à un TLabel FMX, intéressant le challenge, peut-être une réponse en soirée (faudrait pas s'habituer hein !)

Fatigues toi pas! Tu poses un rectangle sur ta fiche, tu places ton label comme "enfant" du rectangle et tu as tes bordures autour du label et tu peux même gérer la couleur de fond de l'ensemble!

Après mes réponses non, une autre idée oui, utiliser TText en lieu et place de TLabel. En fait TLabel est un TText stylé, ce qui me fait indiquer une autre piste : modifier le StyleLookup du TLabel au runtime reste possible, nouvelle possibilité à explorer à ma souvenance deux lignes de codes seront nécessaires

Code :

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

1
2
MonLabel.StyleLookup:='<le nom du style> '; // i.e 'ListBoxItemLabel', 'ListBoxHeaderLabel',ListBoxItemDetailLabel vont jouer sur la taille de la fonte
MonLabel.ApplyStyleLookup; // équivalent d'un repaint

Déjà j'entrevoie ce qui va te faire râler (c'est mon cas) les couleurs "systèmes" totalement oubliées. J'ai ouvert des discussions à ce sujet et même peut-être mis un billet (à moins que ce soit un chapitre d'un carnet de bord (futur tutoriel) sur les Styles)

Je n'arrive plus à râler... J'ai dépensé toute mon énergie à maudire le mec qui a inventé FMX!

Blague à part, le principale problème vient de la compréhension du fonctionnement des styles et des interactions de ces derniers avec les autres fonctions de l'IDE.

A la place de faire des km de doc, Embarcadero ferait mieux d'investir sur des tuto... Le tuto est plus efficace pour offrir une vision générale des nouveaux concepts!

Au final (et de manière non définitive), j'ai trouvé une solution à mes 2 derniers messages:
- Pour les boutons merdiques, j'utilise un style Embarcadero qui me fournir des boutons acceptables
- Pour mes zones d'affichage de données nécessitant le changement de la couleur de fond en runtime, un rectangle avec enfant label ou ttext et un code magique du style "Rectangle2.Fill.Color:=TAlphaColorRec.White;" et on ouvre le champagne!

[Anselme45]

Bonjour,

Tu peux mettre un TRectangle à la place de ton TLabel puis mettre le TLabel dans le TRectangle en l'alignant à tout le TRectangle.
Ensuite, avec les propriétés Fill et Stroke du TRectangle, tu peux faire le fond et le contour du TLabel comme tu le souhaites.

Oui effectivement!

Mon problème est que j'ai essayé de suivre cette approche mais au niveau d'un style! Quand j'ai voulu appliquer un style général Embarcadero à l'application FMX, le style personnalisé avec mon rectangle et mon label était court-circuité!

Si tu poses ton rectangle et un label enfant au niveau de la fiche. Tu peux les personnaliser sans qu'il y est d'interférence avec le style de l'application.

[SergioMaster]

Bonjour

La question a été posée en 2017 et tu as même participé à la discussion, mais cela s'appliquait à la VCL.

C'est vieux et c'était VCL pas FMX, de plus, ce devait être une coquille de ta part, tu as démarré la discussion en parlant d'un TLabel

j'ai besoin de changer en runtime la couleur de fond d'un label

puis de bordures, et la discussion que tu cites étaient sur un TEdit

Mais bon

Fatigues toi pas! Tu poses un rectangle sur ta fiche, tu places ton label comme "enfant" du rectangle et tu as tes bordures autour du label et tu peux même gérer la couleur de fond de l'ensemble!

Oui, c'était la solution la plus évidente. seBorder false => Rectangle.Stroke.Kind:=TBrushKind.None;en fait, quand je pensais

Mettre des bordures à un TLabel FMX

je pensais à la possibilité de bordures partielles (gauche,haut,bas,droite) comme le propose des composants de reporting, le challenge étant de le faire via un style (4 TLine en sus) solution relativement simple, ou autre chose ?

Je n'arrive plus à râler... J'ai dépensé toute mon énergie à maudire le mec qui a inventé FMX!

Bon faut pas confondre : Style / Livebindings / Cibles, moi j'aime bien la partie composant parent de composant (que l'on connaissait déjà avec entre autre TPanel)
Style : ça existait déjà, sous VCL peut-être pas aussi "sophistiqués" et ont les nommaient Skin (quoique c'est réductif)
LiveBindings : encore une fois, cela existait toujours en réduisant ce n'est ni plus ni moins qu'une encapsulation de RTTI, nous simplifier les choses avec les composants données aurait certes été plus sympa mais quand on pratique à haute dose cela devient plus aisé. Quelques reproches en ordre d'importance : le concepteur de lien visuel vite encombré, les quickbindings non controlables/modifiables de la même manière que les liens que je dis "manuels" , la partie interprétée un peu trouble (quand est-ce interprété, quand est-ce que non, à l'usage seul custom format serait
visé)

Blague à part, le principal problème vient de la compréhension du fonctionnement des styles

Il faut fouiller en profondeur pour comprendre, en fait mes dernières investigations dans le domaine donne en résumé ceci :
un style découle d'une image png (3 en fait dépendant du dpi) cette image est découpée en zones, la zone correspondant à une présentation du composant. (pour être tatillon le découpage est double
une zone "extérieure" la bordure, et une zone intérieure). Le principe du composant parent du composant s'appliquant pleinement, on peut comprendre comment faire des présentations (style de composant) complexes. Ajoutons à cela les possibilités des effets, des Paths SVG (faute de terme approprié) on arrive effectivement à une "grosse usine" dont on n'utilise que 20% des capacités.
Ou cela devient "gag" c'est que le style, or les ajouts cités, c'est la même image qu'un style VCL (fichier vsf)

Et des interactions de ces derniers avec les autres fonctions de l'IDE.

Je pense que tu voulais plutôt dire IHM, Interface Utilisateur. Outre le dessin c'est tous les effets parsemés dans le style, déclenchés par trigger, qu'il faut incriminer.

À la place de faire des km de doc, Embarcadero ferait mieux d'investir sur des tutos...
Le tuto est plus efficace pour offrir une vision générale des nouveaux concepts!

Pour en rédiger un tuto c'est pas si facile que ça à pondre, et difficile de se fixer un niveau (débutant, confirmé, expert) sans mélange car pour écrire un tuto il faut avoir quand même une expertise approfondie impliquant que l'on puisse oublier de simples bases. En ce qui concerne les styles je n'en suis encore qu'à la prise de notes.

On oublie aussi tous les exemples qui nous sont fournis.
Il y a aussi grand nombre de vidéos.
C'est ainsi que je vais à la pêche aux infos c'est mon côté "veille technologique" qui je te l'accorde me prend beaucoup de temps perso.

[SergioMaster]

en fait, par bordure, je pensais à ça

[Anselme45]

Ou cela devient "gag" c'est que le style, or les ajouts cités, c'est la même image qu'un style VCL (fichier vsf)

Là, tu mets le doigt sur le problème originel de FMX: Faire cohabiter VCL et FMX dans la même application. Cela a pour conséquence que l'utilisateur a plus de difficulté à oublier ces habitudes VCL quand il fait du FMX.

Pour en rédiger un tuto c'est pas si facile que ça à pondre, et difficile de se fixer un niveau (débutant, confirmé, expert) sans mélange car pour écrire un tuto il faut avoir quand même une expertise approfondie impliquant que l'on puisse oublier de simples bases. En ce qui concerne les styles je n'en suis encore qu'à la prise de notes.

On oublie aussi tous les exemples qui nous sont fournis.
Il y a aussi grand nombre de vidéos.
C'est ainsi que je vais à la pêche aux infos c'est mon côté "veille technologique" qui je te l'accorde me prend beaucoup de temps perso.

Effectivement, faire du tuto c'est un métier mais même de qualité moyenne, le tuto permet de diminuer le temps passé à fouiller le web.

[SergioMaster]

Pour conclure voilà ce que j'avais en tête en parlant de TLabel avec bordure, le style

et son application

Ce n'est pas du no-code pour ce qui est de l'utilisation

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
 
procedure TForm111.btnborduretClick(Sender: TObject);
var abutton : TSpeedButton;
begin
aButton:=TSpeedButton(Sender);
if aButton.Tag=0 then aButton.Tag:=1
                 else aButton.Tag:=0;
if aButton.GroupName='r' then Label3.StylesData['lineright.visible']:=abutton.tag=1;
if aButton.GroupName='l' then label3.StylesData['lineleft.visible']:=abutton.tag=1;
if aButton.GroupName='t' then label3.StylesData['linetop.visible']:=abutton.tag=1;
if aButton.GroupName='b' then label3.StylesData['linebottom.visible']:=abutton.tag=1;
label3.ApplyStyleLookup;  // nécessaire ? 
end;
 
procedure TForm111.Button1Click(Sender: TObject);
begin
Label3.StylesData['fond.fill.color']:=Random($ffffffff); // un peu de fun, seul problème le texte ne se distinguera pas sur certaines couleurs de fond
end;

mais le fait que ce style personnel soit en dehors du style de la forme permet de rester fonctionnel quel que soit le style "principal" choisi

[Anselme45]

Pour conclure voilà ce que j'avais en tête en parlant de TLabel avec bordure, le style
...
mais le fait que ce style personnel soit en dehors du style de la forme permet de rester fonctionnel quel que soit le style "principal" choisi

Tu as donc le style calypso pour la forme mais concrètement où as-tu mis ton style personnalisé pour le label? As-tu ajouté un style à la collection de style calypso?

[SergioMaster]

Tu remarqueras que l'écran de conception contient 2 TStylebook
le TStyleBook1 contient la feuille de style fournie par Embarcadero (Calypso) avec l'option StyleManager cochée bien que je ne sache encore si cela a vraiment une importance
le TStyleBook2 ne contient que ce que j'ai indiqué dans l'image 1

changer la feuille de style principale (ici passage à UbuntuClearFantasy)

ne pose aucun problème, sans rien modifier au style, Style2 s'adapte au Style1, comme j'ai nommé le style du Tlabel "borderedlabelstyle" la gestion du dessin du composant ira toujours chercher dans TStyleBook2. La difficulté à plutôt été inverse : faire en sorte qu'à la conception le dessin borderedlabelstyle s'adapte au style en cours d'où l'utilisation du d'un styleobject (que j'ai nommé backgroud mais je ne sais si ce fut judicieux) dans la hiérarchie du style.

Toute cette partie StyleObject, j'ai encore du mal à comprendre. Idem la hiérarchisation de la recherche des styles (j'ai déjà vu passé quelques trucs dessus) est importante mais encore un peu floue pour moi aussi en tairai-je les explications

Nota : pour une application simple, une forme, j'ai mis les styles sur celle-ci. Pour une application plus "cossue" le mieux reste le datamodule.

Concrètement, ce style2 pourrait même être sauvegardé afin d'être réutilisé entre plusieurs applications. En fait j'utilise déjà ce principe pour mes onglets de page avec bouton de fermeture. Je n'ai pas eu jusqu'à présent l'utilité d'un label avec bordure mais si jamais cela devait se présenter c'est ainsi que je procéderai, je chargerai dans un TSyleBook ma feuille de style "application" y ajouterai borderedlabelstyle (par opération de copier coller) et sauvegarderai la feuille ainsi modifiée pour toute application future.

Sans explication, cela pourrait déjà faire l'objet d'un tutoriel pour débutant je pense