Utiliser le style xp de d1 à d7 (astuce)
0/5 (37 avis)
Vue 12 916 fois - Téléchargée 1 582 fois
Description
Peut être le saviez vous déjà, en tout cas je n'ai pas pu chercher cette source sur le site car au moment où j'ai essayé, il y avait apparamment une panne de serveur ou je ne sais quoi: impossible de faire la recherche.
Excusez-moi donc d'avance si une telle source a déjà été postée.
En effet ceci est plus une astuce qu'un véritable code!
Elle consiste simplement à utiliser un fichier appelé WindowsXP.res (qui donne le style aux composants)
pour cela, regardez dans le zip de cette source (j'ai mis le fichier .res)
il suffit simplement d'écrire la ligne suivante, après "implementation" :
{$R WindowsXP.res}
...à condition que le fichier se trouve bien dans un répertoire spécifié dans la liste des répertoires de la bibliothèque, ou tout simplement dans le répertoire du programme.
Testé avec Delphi 5 (ça marche), mais la screenshot que j'ai prise est avec Delphi 7 car j'ai du formatter mon disque et je n'ai pas réinstallé Delphi 5 (ma vie n'est-elle pas passionnante?)
Il suffit de regarder la screenshot pour s'apercevoir que je n'ai absolument pas utilisé le TXPManifest ni l'unité XPMan...
je considère cette astuce de niveau débutant, puisqu'il n'y a qu'une seule ligne à ajouter...
Excusez-moi donc d'avance si une telle source a déjà été postée.
En effet ceci est plus une astuce qu'un véritable code!
Elle consiste simplement à utiliser un fichier appelé WindowsXP.res (qui donne le style aux composants)
pour cela, regardez dans le zip de cette source (j'ai mis le fichier .res)
il suffit simplement d'écrire la ligne suivante, après "implementation" :
{$R WindowsXP.res}
...à condition que le fichier se trouve bien dans un répertoire spécifié dans la liste des répertoires de la bibliothèque, ou tout simplement dans le répertoire du programme.
Testé avec Delphi 5 (ça marche), mais la screenshot que j'ai prise est avec Delphi 7 car j'ai du formatter mon disque et je n'ai pas réinstallé Delphi 5 (ma vie n'est-elle pas passionnante?)
Il suffit de regarder la screenshot pour s'apercevoir que je n'ai absolument pas utilisé le TXPManifest ni l'unité XPMan...
Source / Exemple :
var IsConcluant: boolean;
try
IsConcluant := DoTestCode( tc_BRIEFLY );
if IsConcluant then ShowMessage('Merci de poster un commentaire pour confirmer la validité de l''astuce!');
except
on EPasContent do ShowMessage('Merci de poster un commentaire histoire qu''on puisse résoudre le problème !');
end;
Conclusion :
je considère cette astuce de niveau débutant, puisqu'il n'y a qu'une seule ligne à ajouter...
Codes Sources
A voir également
- Utiliser le style xp de d1 à d7 (astuce)
- Comment utiliser netbeans - Conseils pratiques -Java
- Font stylé ✓ - Forum Delphi / Pascal
- Comment utiliser carte à puce - Forum VB.NET
- Bannière stylé - Conseils pratiques -Javascript
- Astuce keno forum - Forum Visual Basic
27 févr. 2004 à 21:50
enfin bon, comme ça vous avez un joli exemple :)
29 févr. 2004 à 19:15
houai ! c'est bien mais je vois pas l'interet pour D7 ??
c'est déja dans le composant XPmanifest
a+
1 mars 2004 à 10:53
Juste pour information je voudrais savoir si l'exe aura l'aspect xp uniquement en fonctionnement sous win xp ou également sous un autre os. Car je viens d'essayer en win 2000 et ma fenetre de change pas?
merci et A+,
JMP.
1 mars 2004 à 13:28
sous xp pro
l'EXE joint dans le zip ,a l'execution a le même aspect qu'une
fenêtre XP.
la fenêtre ne change pas
a+
1 mars 2004 à 18:30
Il donne un style XP aux boutons et aux autres composants...
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.