Enregistrer un caractere
Publié : mar. 26/févr./2008 11:52
Bonjour à tous
J'ai trouver ce code que j'ai modifié pour avoir 2 polices en meme temps
Je voudrais savoir si on est limité par le nombre de police que l'on peux charger ???
Et aussi comment faire pour "copier" un caractere que l'on fait apparaitre d'abord, et pouvoir le coller ensuite sans avoir à charger la police ???
J'aimerais mélanger les polices dans le meme texgadget, est ce possible ??
Merci et bonne journée
J'ai trouver ce code que j'ai modifié pour avoir 2 polices en meme temps
Code : Tout sélectionner
; http://www.purebasic.fr/english/viewtopic.php?t=26575&highlight=font+fon
If(OpenLibrary(0,"GDI32.DLL"))
CallFunction(0,"AddFontMemResourceEx",?fs,(?fe-?fs),0,@i+1)
CallFunction(0,"AddFontMemResourceEx",?fe,(?fg-?fe),0,@i+1)
CloseLibrary(0)
Else
MessageRequester("E.R.R.O.R.","font problem...")
End
EndIf
OpenWindow(0,0,0,500,300,"T.E.S.T.",#PB_Window_ScreenCentered)
CreateGadgetList(WindowID(0))
LoadFont(1,"MATH12",20)
LoadFont(2,"webdings",10)
SetGadgetFont(#PB_Default,FontID(1))
TextGadget(0,10,50,400,20,"TEST,")
SetGadgetFont(#PB_Default,FontID(2))
TextGadget(10,10,100,400,100,"ABCD")
Repeat
Delay(5)
Until WaitWindowEvent() = #WM_CLOSE
End
DataSection
fs:
IncludeBinary("c:\MATH12.ttf")
fe:
IncludeBinary("c:\webdings.ttf")
fg:
EndDataSection
Et aussi comment faire pour "copier" un caractere que l'on fait apparaitre d'abord, et pouvoir le coller ensuite sans avoir à charger la police ???
J'aimerais mélanger les polices dans le meme texgadget, est ce possible ??
Merci et bonne journée