Installer une police de caractère ?

[Fig]

Salut à tous,

Quelqu'un aurait il un petit code pour installer une police de caractère sur windows ?

[Fig]

c'est bon, trouvé...

Code : Tout sélectionner

;
; AddFontResource
Result = AddFontResource_("DIMITRI_.TTF")
SendMessage_(#HWND_BROADCAST,#WM_FONTCHANGE,0,0)

Ca installe la police pour la durée de la session. après un redémarrage elle a disparu.
Si on veut qu'elle reste définitivement, il faut modifier la BDR.

[klystron]

bonjour Fig

Code : Tout sélectionner

  
Enumeration Fonts
  #FontGlobal
EndEnumeration

Enumeration Window
  #MaFenetre
EndEnumeration

Enumeration Gadget
  #Longueur
  #Largeur
  #Surface
  #Hypotenuse
  #Perimetre
  #Bouton_Calculer                  ; Déclarer l'ID du bouton Calculer
EndEnumeration

;-------------------Création de la fenetre et des différents gadgets-------------------------

Procedure Open_MainForm()


     LoadFont(#FontGlobal, "Arial", 12) ; hauteur 12 pixels en type Arial


 ;---------------Affectation de la font global à l'ensemble de la fenetre-----------

       SetGadgetFont(#PB_Default, FontID(#Fontglobal)) ;  police a toutes les plages.

  

[MLD]

@ klystron
Ce n'est pas la demande initial de Fig.
Ce que tu montre,il connait parfaitement.
Il doit y avoir une API pour cela. Il faut regader sur le fofo US.

[falsam]

Je crois même que Fig c'est auto-répondu avec un exemple