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