TButton avec Skin

Description

Je vous propose un code tout ce qu'il y a de plus simple ^^

qui permet d'appliquer un Skin a un TButton standart de la VCL ... eh oui ^^
rien à installer ... c'est une fonctionnalité de base Windows qui fonctionne depuis XP
contrairement à ce que dit la MSDN là dessus "Minimum supported client Windows Vista [desktop apps only]":O

en ce qui concerne les images ... c'est pareil la MSDN dit que la 6ème n'est utilisée que sur les tablettes :
"
enum PUSHBUTTONSTATES {
 PBS_NORMAL = 1,
 PBS_HOT = 2,
 PBS_PRESSED = 3,
 PBS_DISABLED = 4,
 PBS_DEFAULTED = 5,
 PBS_STYLUSHOT = 6,
};

Note that PBS_STYLUSHOT is used only on tablet computers.

"

c'est pas vrai, la 6ème image est utilisée pour l'animation du bouton quand il a le focus ou pour
signaler un bouton par défaut.
D'ailleurs les plus attentifs auront remarqué qu'il n'y a que 5 images dans le répertoire "IMG" ...
la sixième n'est qu'une copie de la deuxième.

voilà ... le code étant très simple il n'y a pas commentaire
si toute fois vous avez des questions ... vous connaissez la marche à suivre

les unités:
crSkinBtn --> contient les déclarations manquantes + un appel à l'unité VistaAltFixUnit.pas
ce qui règle le problème de la touche Alt quand les thèmes sont activés
+ un appel à XPMan.pas

crHQBitmap --> est juste là pour avoir une meilleur qualité de bitmap lors d'un resize

J'espère que cela vous plaira ;)

@++
Cirec.

Codes Sources

A voir également