Contrôler présence d'une police de caractères [Résolu]

vincentstryckmans 230 Messages postés lundi 5 avril 2004Date d'inscription 25 octobre 2006 Dernière intervention - 5 sept. 2005 à 10:44 - Dernière réponse : ni69 1529 Messages postés samedi 12 juin 2004Date d'inscription 5 juillet 2010 Dernière intervention
- 5 sept. 2005 à 12:48
Bonjour,



Je cherche un moyen de contrôler la présence d'une police de caractères sur le PC.



Dans l'IDE j'ai enregistré par défaut la police wingdings pour certains
labels et leur caption est un chiffre sur un cercle de couleur.

Je voudrais, au démarrage de l'appli, contrôler la présence de la
police wingdings, pour si elle n'est pas là, passer la propriété font
des labels en MS Serif et changer le caption en 1, 2, 3 ...



Merci de votre aide.


Et comme disait ma grand-mère : il y a toujours du soleil derrière les nuages.

Vincent Stryckmans.
Afficher la suite 

Votre réponse

5 réponses

Meilleure réponse
ni69 1529 Messages postés samedi 12 juin 2004Date d'inscription 5 juillet 2010 Dernière intervention - 5 sept. 2005 à 12:41
3
Merci
PS : je te donne aussi le code de test :

if Screen.Fonts.IndexOf('Wingdings') <> -1 then

ShowMessage('La Police Wingdings existe sur le PC');


@+
Bonne Prog'
Nico [www.ni69.new.fr]

N'oubliez pas de cliquer sur Réponse acceptée lorsque la réponse vous convient !

Merci ni69 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 83 internautes ce mois-ci

Commenter la réponse de ni69
ni69 1529 Messages postés samedi 12 juin 2004Date d'inscription 5 juillet 2010 Dernière intervention - 5 sept. 2005 à 12:37
0
Merci
La fonction Screen.Fonts te renvoie une liste de toutes les polices installées sur le PC.

@+
Bonne Prog'
Nico [www.ni69.new.fr]

N'oubliez pas de cliquer sur Réponse acceptée lorsque la réponse vous convient !
Commenter la réponse de ni69
cs_mike255 123 Messages postés mercredi 14 août 2002Date d'inscription 26 mai 2007 Dernière intervention - 5 sept. 2005 à 12:44
0
Merci
Tu peux essayer ca :



PoliceExiste := (Screen.Fonts.IndexOf('wingDings') <> -1);

Télécharger Outlook Skype Plugin et mes autres réalisations sur mon site
Commenter la réponse de cs_mike255
ni69 1529 Messages postés samedi 12 juin 2004Date d'inscription 5 juillet 2010 Dernière intervention - 5 sept. 2005 à 12:46
0
Merci
...

@+
Bonne Prog'
Nico [www.ni69.new.fr]

N'oubliez pas de cliquer sur Réponse acceptée lorsque la réponse vous convient !
Commenter la réponse de ni69
ni69 1529 Messages postés samedi 12 juin 2004Date d'inscription 5 juillet 2010 Dernière intervention - 5 sept. 2005 à 12:48
0
Merci
Au fait, attention mike255 : si tu ne tiens pas compte de la Casse, le résultat sera faussé ! Il faut donc bien écrire 'Wingdings'

@+
Bonne Prog'
Nico [www.ni69.new.fr]

N'oubliez pas de cliquer sur Réponse acceptée lorsque la réponse vous convient !
Commenter la réponse de ni69

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.