Code : Tout sélectionner
If loadfont(1,"Andalus",50)
else
end
endif
Code : Tout sélectionner
If loadfont(1,"Andalus",50)
else
end
endif
Code : Tout sélectionner
If LoadFont(1,"Andalus",50)=1
Lol nonAr-S a écrit :Faut peut-être mettreCode : Tout sélectionner
If LoadFont(1,"Andalus",50)=1
Ce n'est pas un bug.SPH a écrit :Et bien, sous XP, alors que le code ne trouve pas cette fonte (présente sous mon vista), le END ne s'effectue pas (et je choppe alors une fonte classique qui doit etre de l'arial) !Code : Tout sélectionner
If loadfont(1,"Andalus",50) else end endif
Deux possibilités (Windows)SPH a écrit :Vivement la lectures de fontes locales alors
Code : Tout sélectionner
;
; Load Font From DataSection
;
Import "User32.lib"
;Windows NT/2000/XP/Vista: Included in Windows 2000 And later.
;Windows 95/98/Me: Unsupported.
AddFontMemResourceEx(pFont,Size,Par,Count)
RemoveFontMemResourceEx(fHandle)
EndImport
Global fHandle.l,Fonts.l
If OpenWindow(0, #PB_Ignore,#PB_Ignore,640,480, "Mein Font", #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget)
If CreateGadgetList(WindowID(0))
fHandle = AddFontMemResourceEx(?MyFont,?EndOfMyFont-?MyFont,0,@Fonts)
LoadFont(1,"Digiface",14)
ButtonGadget(0, 10,10,80,24,"12345")
SetGadgetFont(0,FontID(1))
EndIf
Repeat
EventID = WaitWindowEvent()
Select EventID
Case #PB_Event_Gadget
Select EventGadget()
Case 0:
RemoveFontMemResourceEx(fHandle)
SendMessage_(WindowID(0),#WM_CLOSE,0,0)
EndSelect
EndSelect
If EventID = #PB_Event_CloseWindow
Quit = 1
EndIf
Until Quit = 1
EndIf
End
DataSection
MyFont:
IncludeBinary "Digiface.ttf"
EndOfMyFont:
EndDataSection
Code : Tout sélectionner
;
; AddFontResource
;
EnableExplicit
Define Result.l
Define i.l
Result = AddFontResource_("DIMITRI_.TTF")
SendMessage_(#HWND_BROADCAST,#WM_FONTCHANGE,0,0)
If OpenWindow(0, 0, 0, 322, 150, "EditorGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered) And CreateGadgetList(WindowID(0))
EditorGadget(0, 8, 8, 306, 133)
For i = 0 To 5
AddGadgetItem(0,i,"Line "+Str(i))
Next
SetGadgetFont(0,LoadFont(0,"DIMITRI",10))
Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
EndIf
RemoveFontResource_("DIMITRI_.TTF")
SendMessage_(#HWND_BROADCAST,#WM_FONTCHANGE,0,0)
Sous Microsoft Windows, le gestionnaire de police de caractères essaiera toujours de trouver une police équivalente à celle demandée, si cette dernière n'est pas disponible. Par exemple, si vous essayez de charger la police "Tim Now Ronin" et qu'elle n'existe pas, une autre police sera chargée automatiquement, en fonction de sa taille, du style etc. Il est donc peu probable que cette commande échoue.
Et bien ca ne marche pas (mais je retesterais)Fred a écrit :C'est pourtant documenté: http://www.purebasic.com/french/documen ... dfont.html
Sous Microsoft Windows, le gestionnaire de police de caractères essaiera toujours de trouver une police équivalente à celle demandée, si cette dernière n'est pas disponible. Par exemple, si vous essayez de charger la police "Tim Now Ronin" et qu'elle n'existe pas, une autre police sera chargée automatiquement, en fonction de sa taille, du style etc. Il est donc peu probable que cette commande échoue.
???SPH a écrit :Et bien ca ne marche pas (mais je retesterais)Fred a écrit :C'est pourtant documenté: http://www.purebasic.com/french/documen ... dfont.html
Sous Microsoft Windows, le gestionnaire de police de caractères essaiera toujours de trouver une police équivalente à celle demandée, si cette dernière n'est pas disponible. Par exemple, si vous essayez de charger la police "Tim Now Ronin" et qu'elle n'existe pas, une autre police sera chargée automatiquement, en fonction de sa taille, du style etc. Il est donc peu probable que cette commande échoue.
ben oui il faut que ta fonte soit présente et installé sur le systeme d'exploitation...SPH a écrit : (que je prenne le vrai nom ou le nom de fichier, ca ne marche que si la fonte est dans windows/fonts ET que windows la reconnait !
Code : Tout sélectionner
;http://cooltext.com/Download-Font-Andalus
LoadFont(0,"Andalus",24)
LoadFont(1,"Arial",24)
If OpenWindow(0, 100, 200, 300, 200, "2D Drawing Test")
If CreateImage(0, 300, 200)
If StartDrawing(ImageOutput(0))
DrawingFont(FontID(0))
DrawText(10,50,"FONTE ANDALUS")
DrawingFont(FontID(1))
DrawText(10,90,"FONTE ARIAL")
StopDrawing()
EndIf
EndIf
ImageGadget(0, 0, 0, 0, 0, ImageID(0))
Repeat
EventID = WaitWindowEvent()
Until EventID = #PB_Event_CloseWindow
EndIf