Discussion :

[SergioMaster]

Bonjour,

Voilà, tout est presque dans le titre, je veux obtenir au runtime l'emplacement des styles.
Pour cela j'ai codé ceci qui fonctionne

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
var RadVersion : String;
begin
case Round(system.CompilerVersion) of
  34 : Radversion:='21.0';
  33 : Radversion:='20.0';
  32 : RadVersion:='19.0';
end;
Opendialog.InitialDir:=GetEnvironmentVariable('RadPublic');
Opendialog.InitialDir:=Tpath.Combine(Opendialog.InitialDir,Radversion);
Opendialog.InitialDir:=Tpath.Combine(Opendialog.InitialDir,'Styles');

et qui doit être optimisé.
Toutefois n'y aurait-il pas un moyen plus simple d'obtenir le nombre (19..21) plutôt que de passer par ce case Round(system.CompilerVersion),
en évitant, autant que faire ce peu, la lecture de registre ?

[gbegreg]

Bonjour Serge,

Non je ne pense pas... Tu peux faire un Trunc à la place du Round ou encore utiliser les directives ({$IFDEF VER330}...). Le n° de version du compilateur est un nombre flottant (d'après la doc http://docwiki.embarcadero.com/RADSt...piler_Versions, la partie décimale a été utilisée pour Delphi 2007).

[SergioMaster]

Bonjour Gregory

Tu as raison, le trunc serait mieux. Pour ce qui est des versions, comme il s'agit de styles FMX de toutes façon D2007 n'est pas concerné puisque cela commence avec XE3 ou XE4

en fait mon objectif est de faire une sorte de "compacteur/décompacteur" de style. C'est la faute d'Andrea Magni si je me suis lancé ce défi (déjà ok pour les styles Windows).
En effet dans son livre, Delphi GUI Programming with FireMonkey, et spécifiquement dans son chapitre sur le styles il parle très souvent de fichiers "compilé" .fsf or je me suis presque usé les yeux pour en trouver . En fouillant j'ai découvert comment obtenir un fichier .fsf à partir d'un fichier .style et vice-versa.

voilà un avant goût du résultat


Je m'attaque maintenant au problème qui est de rendre des styles spécifiques à une plateforme (ceux dans les répertoires Styles\Android, Styles\iOs etc..)
et voir s'il est possible : d'ajouter des plateformes, transformer la plateforme cible etc...
pour l'instant je récupère les valeurs en ouvrant le fichier dans un stream (ébauche)