Discussion :

[bvsud]

Bonsoir à tous

J'ai posté ici une question relative au gestionnaire de skins AlphaControls (SkinManager) Son tutoriel est ici : http://www.alphaskins.com/showdoc.php?l=en&n=10 . Mais il est succinct.
Je teste leur système de skins. On peut les exploiter pour des contrôles non développés par Alphacontrols (Jedi, contrôles standards, etc).

Suite à mon post (on m'a pardonné mon Anglais style Google ) , j'ai reçu cette réponse :
«Hello,

in order to activate a skin, you have to use the SkinName property:

Code :

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

1
2
 
sSkinManager1.SkinName := 'Android OS (internal)';

ThirdParty is used to skin, using the current skin, a component that is not included in the AC package;
you can select these components using the list (as in your image) or add the components by the code, like this:

Code :

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

1
2
 
sSkinManager1.ThirdLists[Ord(tpVirtualTree)].Append('TVirtualStringTree');

»

A quoi peut ressembler un tpVirtualTree ? Et un TVirtualStringTree ?

Le dernier serait une liste de chaînes virtuelle ? Si oui : on implémente ça comment sous D7 ? Je n'ai jamais utilisé ça.

Est-ce q ça pourrait ressembler à un pointeur sur une tableau de TStringLIst ?


J'ai un début de réponse à cette adresse :
http://docwiki.embarcadero.com/RADSt...2BBuilder_2010 ... mais pour Delphi 2010.

Même en fouillant leurs sources (dans les démos), je ne tombe sur aucun fichier .PAS exploitant ce SkinManager : uniquement dans les fichiers .DFM.

Heu... J'y vois pas très clair, là. Un avis éclairé me sera bien utile. Merci :hello:

[SergioMaster]

Bonjour,

VirtualstringTree c'est un composant de virtualtreeview
tpVirtualtree par contre il faudrait fouiller dans les sources ou doc de AlphaSkin pour moi cela ressemble a un type contenu dans une énumération ?

comme par exemple

Code :

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

1
2
3
4
 Tcouleur=(cBleu,cBlanc,cRouge) ; 
 i : integer;
...
 i:=ord(cBlanc)  // i sera égal à 1

[Barbibulle]

C'est un exemple qu'il donne, il a pris un TVirtual treelist comme il aurait pu prendre un composant Jedi.

Apparemment pour que le skin fonctionne sur les composants tiers comme les jedi et autre, il faut les référencer dans le gestionnaire de skin.
En ajoutant au tableau ThirdLists le nom de la classe du composant à gérer.
Et comme le dit SergioMaster le tpVirtualtree doit être défini dans Alphaskins. Et doit être documenté ou un CTRL + clic dessus devrait vous montrer sa définition et donc l'énumération de toutes les classes tiers prises en compte.

[bvsud]

Bonjour à vous et merci

En fait, c'est infiniment plus simple que je l'imaginais. On peut ne pas toucher du tout à la méthode sSkinManager1.ThirdLists . Pas à l'exécution.

Pour changer de skin, ceci suffit :

Code :

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

1
2
3
4
 
// Skin_A_Tester : string : le nom d'un skin
Form1.sSkinManager1.SkinName := Skin_A_Tester;
Form1.sSkinManager1.RepaintForms(True);  // C'est là que ça se passe !

Pour les inclure dans le logiciel, à la conception, c'est bien ce que je décrivais dans le post chez eux. A l'exécution, il suffit de lister ceux que l'on a préalablement inclus. Le fichier .DFM prend alors des proportions considérables, et l'EXE aussi. Je récris la procédure pour les tester sans les inclure dans le code, qui devient alors très lourd, et ralentit fortement l'exécution, même sur ma bécane. Dans ce cas, il faut les livrer avec les logiciel.

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 Remplir_ListBox;
begin
      Form2.ListBox1.Items.Add('Afterburner');
      Form2.ListBox1.Items.Add('Android OS');
      Form2.ListBox1.Items.Add('Beijing');
      Form2.ListBox1.Items.Add('Black Box');
      Form2.ListBox1.Items.Add('Cappuccino');
      Form2.ListBox1.Items.Add('Cold');
      Form2.ListBox1.Items.Add('DarkGlass');
      Form2.ListBox1.Items.Add('FalloutStyle');
      Form2.ListBox1.Items.Add('KaraKum');
      Form2.ListBox1.Items.Add('Nautilus');
      Form2.ListBox1.Items.Add('Office2007 Black');
      Form2.ListBox1.Items.Add('Rhombus');
      Form2.ListBox1.Items.Add('Ubuntu');
      Form2.ListBox1.Items.Add('WOT');
end;

Mieux vaut les lister et les appliquer à l'exécution. C'est beaucoup plus rapide et moins gourmand : l'EXE reste de taille acceptable.

Quant à la question initiale sur la syntaxe, là... Les Jedi ou les TMS sont beaucoup mieux documentés !