Créons un style FMX manuellement dans le code ?

Ce test a été réalisé par moi il y a longtemps... en utilisant Delphi 11....

Fondamentalement, je montre comment créer un «*STYLE*» pour un projet FMX en créant tous les composants manuellement dans le code, puis en les appliquant au formulaire/objet souhaité.

C'est très rustique car à l'époque je testais de nouvelles connaissances... mais c'est cool pour tous ceux qui veulent améliorer l'idée...

câlin :mouarf:

Le code est horrible, je dois l'admettre... à l'époque, c'était juste censé être un test et il est resté sur mon disque dur...
Notez que le «*BUG*» GPU existait toujours dans Delphi 11

https://i.ibb.co/7Nxmqxhb/bds-Pkzr-Mt-Ya-RX.gif


Pièce jointe 666396

Bonjour,

Le titre était alléchant, surtout que je travaille actuellement sur les styles FMX (cf. mes deux tutoriels sur le sujet Introduction, Personnalisation).
Je m'attendais donc à un code ajoutant à un style (contenu dans un TStylebook) existant un élément or, ce n'est pas le cas :(

Je ne critique pas l'idée de départ, ni le code mais, je pense qu'il aurait fallu pousser plus loin (un de mes tutoriels prévus aura ce genre de théme comme sujet).

Je pense que le plus gros reproche, le titre de ce post, est dû à la confusion d'utilisation d'un même terme "style FMX".

Dans notre utilisation de ce terme, cela correspond aussi bien :

• à un fichier contenant des styles (*.style, *.fsf),
  à la propriété style d'un TStyleBook,
  à la propriété StyleLookup d'un contrôle visuel stylé (TStyledControl) <- votre sujet
  ... il y en a certainement d'autres qui ne viennent pas à l'esprit mais que j'utilise au cours de mes rédactions de tutoriels (difficile de trouver des synonymes)

N.B. le code MyStyleLayoutGlyph.MultiResBitmap.Add.Bitmap.LoadFromFile('E:\RADStudioTests\_Images_For_TImageList_and_Others\arrow_right-up.png'); nécessite une image, non fournie
utiliser un TSKSVG à la place serait plus judicieux (plus de perte de "résolution", texte du SVG pouvant être mis en constante ...)