Style par défaut, mais où est-il caché ?

**SergioMaster** · 21/07/2019, 11h47

Bonjour,

La question est plus ou moins dans le titre mais je vais poser quelques constations
1- Il est évident que l'on utilise un style par défaut quand on crée une nouvelle fiche
2- dès que l'on veut modifier un style (personnalisé ou pas) ce style ou partie du style est copié dans un TStyleBook
3- Il y a des références un peu partout à des png (windows 10 xxx.png, Yosemite ...png) pour dessiner les contrôles
4- au run-time il est possible d'obtenir/modifier des informations de ce style (cf https://www.developpez.net/forums/d1...ouleur-defaut/)
Donc ces ressources (?) sont bien quelque part, j'ai même lu, je ne sais plus où hélas, que l'on pouvait les ôter et ainsi diminuer la taille du programme principal

Quelqu'un aurait-il une idée ?

**Cirec** · 21/07/2019, 15h09

Bonjour,

dans les sources FMX on y trouve un (entre autre) fichier rc "FMX.Controls.Win.rc"
qui fait référence à des styles:

Code :

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

1
2
3
win7style   			RCDATA "styles\platform\win\Win7.fsf"
win8style   			RCDATA "styles\platform\win\Win8.fsf"
win10style   			RCDATA "styles\platform\win\Win10.fsf"

mais ces styles là je ne les ai pas trouvés sur mon disque dur !!

si ça peu t'aider

Cordialement,
@+

**SergioMaster** · 22/07/2019, 07h54

Bonjour,

merci, c'est certainement ça : directement dans les ressources mais je ne connaissais que les types .vsf et .style pas le .fsf !
Fait étrange aussi (peut-être ai-je mal cherché) si l'on considère que ta piste est la bonne je trouve :
FMX.Controls.Mac.rc
FMX.Controls.Win.rc
mais pas Android, IOS (ou Linux)
J'ai l'impression que cela ne concerne que les desktops

je vais me pencher de plus près sur les codes dissiminés ici ou là (FMX.Controls.xxx.pas ou xxx est la cible)

Code :

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

1
2
3
4
5
6
7
8
TStyleManager.RegisterPlatformStyleResource(TOSPlatform.Android, 'androidstyle');
  TStyleManager.RegisterPlatformStyleResource(TOSPlatform.iOS, 'iosstyle');
  TStyleManager.RegisterPlatformStyleResource(TOSPlatform.OSX, 'osxstyle');
  TStyleManager.RegisterPlatformStyleResource(TOSPlatform.OSX, 'lionstyle');
  TStyleManager.RegisterPlatformStyleSelection(TOSPlatform.OSX, OSXStyleSelection);
  TStyleManager.RegisterPlatformStyleResource(TOSPlatform.Windows, 'win7style');
  TStyleManager.RegisterPlatformStyleResource(TOSPlatform.Windows, 'win8style');
  TStyleManager.RegisterPlatformStyleResource(TOSPlatform.Windows, 'win10style');

**SergioMaster** · 22/07/2019, 11h52

Bon, j'avance, peut être pas dans la bonne direction mais voici un petit code qui résume ce que j'ai

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
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
unit Unit48;
 
interface
 
uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs,FMX.Styles,
  FMX.Controls.Presentation, FMX.StdCtrls, FMX.ScrollBox, FMX.Memo;
 
type
  TForm48 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
var
  Form48: TForm48;
 
implementation
 
{$R *.fmx}
 
procedure TForm48.Button1Click(Sender: TObject);
var AStyle : TFMXObject;
    ASd : TStyleDescription;
begin
  // Obtenir le style en cours
  AStyle:=TStyleManager.ActiveStyle(Self);
  // Obtenir des informations de description
  ASD := TStyleManager.FindStyleDescriptor(AStyle);
  Memo1.Lines.Add(ASD.Author);
  // Lister les ressources ?
  TStyleManager.EnumStyleResources( procedure(const AResourceName: string; const APlatform: TOSPlatform) begin memo1.lines.Add(AResourceName) end);
end;
end.