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

Version imprimable

21/07/2019, 11h47
SergioMaster

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

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 8O

Quelqu'un aurait-il une idée ?
21/07/2019, 15h09
Cirec
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:

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,
@+

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:

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');

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

Code:

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.

testé sous les plateformes actuellement à ma disposition (Windows, Android) j'obtiens

Citation:

Envoyé par windows

Embarcadero Technologies Inc.
win10style
win8style
win7style

Citation:

Envoyé par Android

Embarcadero Technologies Inc.
androidstyle