Utiliser le style xp de d1 à d7 (astuce)

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...

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

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.