Question sur la police ... de caractères [Résolu]

Hello everybody !
Existe-t-il un moyen pour connaitre si la police de caractères demandée est disponible ou non sur le PC de l’utilisateur ?
Supposons que j’ai déclaré dans mon code
Font_name N, "xxxx"
Panoramic se comporte comme ceci :
Si la police est présente, elle sera utilisée dans la suite du programme
Si la police n’exsite pas, panoramic n’affiche pas d’erreur mais utilisera une police par défaut.

Pour le besoin de mon programme j’ai besoin de savoir si la police que j’ai déclarée sera oui ou non chargée.
Quelqu’un a-t-une idée ?

Nombre de messages : 7095 Localisation : 77 Date d'inscription : 29/11/2007

Bonjour papydall,

Mais que fait la police ?
Bon, tu as ce qu'il faut dans Panoramic:
FONT_NAMES_LOAD N
FONT_NAMES_ADD N
tu charges la liste dans un DLIST et tu regardes si ta police y figure (par exemple)...
Bonne journée !

Bonjour JL35
Merci, pour ta réponse, mais ce n’est pas ça.
Voila, je fais un programme qui utilise une font particulière.
Moi je l’ai cette police ; mais si je distribue mon programme et que l’utilisateur n’a pas cette ~~peau lice~~ police, le programme se déroule mais pour l’affichage bonjour les dégâts !

Voila pourquoi j’ai posé ma question.

Je teste dans le code si police xxxx non trouvée, affiche message et sort sur la pointe des pieds.

Voici la police en question :

Chess.ttf:

Nombre de messages : 7095 Localisation : 77 Date d'inscription : 29/11/2007

Du coup je ne comprends plus rien...
Si dans ton programme tu parcours la liste donnée par Font_Names_Load et que Chess ne s'y trouve pas
c'est que cette police n'est pas installée sur le pc où il s'exécute (ce qui est le cas chez moi) ???

Code:: dim Mess$,RetMess%

Preface()

if VerifPolice%("Chess.ttf")=1
   hide 1
   Interface()
else
   Mess$ = "Désolé, Chess.ttf est introuvable."
   Mess$ = Mess$+chr$(13)+"télécharger et installer : Chess.ttf"
   RetMess% = message_warning_ok(Mess$)
   if RetMess% = 1
   terminate
   end_if
end_if

end

sub Preface()
   height 0,600
   width 0,800
   top 0,(screen_y-height(0))/2
   left 0,(screen_x-width(0))/2

   panel 1
   height 1,height_client(0)
   width 1,width_client(0)

   alpha 2
   parent 2,1
   caption 2,"Mon Logiciel"
   font_name 2,"Arial"
   font_size 2,18
   top 2,(height_client(1)-height(2))/2
   left 2,(width_client(1)-width(2))/2

   dlist 3
   font_names_load 3
end_sub

sub Interface()
end_sub

fnc VerifPolice%(P$)
   dim_local i%

   for i%=1 to count(3)
   if item_read$(3,i%) = P$
   result 1
   exit_fnc
   else
   result 0
   end_if
   next i%
end_fnc

Vive les procèdures et les fonctions....
Wink

Merci les amis pour vos contributions.
J’ai compris le principe.

C'est une question résolue.

» Choix d'une police de caractères
» Ressource Hacker et les caractères accentuès [RESOLU]
» [RESOLU] pas de caractères accentués dans resource hacker
» [Résolu] Question sur INT()
» Source : police et taille des caractères mémorisés