Nom de la font a utiliser

[Thyphoon]

Bonjour,

Une question bête, mais lorsqu'on fait un loadfont sous windows quel est le nom de la police a utilisé ?

J'ai une police de caractère installé dans le répertoire Fonts de windows
le fichier s'appel : itc-serif-gothic-lt-extra-bold_0.ttf
la police dans le repertoire Fonts est nommé : SerifGothic LT Light Gras
et si je l'ouvre avec le visualiseur de police windows elle est nommé : SerifGothic LT Light

comment la chargé avec Loadfont ?
j'ai essayé plein de chose différente mais ça n'a pas l'air de fonctionner
merci d'avance

[Thyphoon]

Bon je me répond tout seul

Code : Tout sélectionner

LoadFont(1,"SerifGothic LT Light",50)

si je n'y arrivais pas c'est que j'avais ecrit "SherifGothic" avec un h en trop ...
Bon je me dis que mon erreur servira peut être a d'autre

[Backup]

voila les noms qu'il faut utiliser :

Code : Tout sélectionner

Global Dim Fonts.S(0) 
Global CountFonts
Declare  LoadSysFonts()
Declare  EnumFontFamProc(*lpelf.ENUMLOGFONT, *lpntm.NEWTEXTMETRIC , FontType, lParam)




LoadSysFonts() ; appel de la list des fontes
calldebugger





; ************ zone procedure *************************************

Procedure LoadSysFonts()
	hWnd = GetDesktopWindow_()
	hDC = GetDC_(hWnd)
	EnumFontFamilies_(hDC, 0, @EnumFontFamProc(), 0)
	ReleaseDC_ (hWnd, hDC)    
	SortArray(Fonts(), #PB_Sort_Ascending | #PB_Sort_NoCase)
	For i=1 To CountFonts-1
		; AddGadgetItem(#Combo_fonte, -1, Fonts(i)) ; on peut l'ajouter dans un combo gadget
		Debug  Fonts(i)
	Next i
EndProcedure






Procedure EnumFontFamProc(*lpelf.ENUMLOGFONT, *lpntm.NEWTEXTMETRIC , FontType, lParam)
	CountFonts=CountFonts+1
	Redim Fonts(CountFonts)
	Fonts(CountFonts-1)=PeekS(@*lpelf\elfLogFont\lfFaceName[0])
	ProcedureReturn 1
EndProcedure; EPB

[Thyphoon]

merci Dobro c'est super ça !!!

[Ar-S]

le nom de la police à utiliser est de toute manière celui qui apparait dans "nom de la police" lorsque tu double cliques sur celle ci et cette dernière correspond rarement à son nom "physique".
Mais +1 pour le code Dobro. Du bon ça.

[Thyphoon]

merci Ar-S