Page 1 sur 1
[Resolu] Frame3Dgadget et SetGadgetFont
Publié : sam. 18/oct./2008 22:33
par Le Soldat Inconnu
on ne peut pas changer la police d'un Frame3Dgadget ou c'est moi qui fait mal ?
Code : Tout sélectionner
; Auteur : Le Soldat Inconnu
; Version de PB : 4
;
; Explication du programme :
; Pour faire des programmes de test rapidement, il ne reste qu'a rajouter les gadgets et la gestion des évènements.
; Création de la fenêtre et de la GadgetList
If OpenWindow(0, 0, 0, 300, 300, "Test", #PB_Window_SystemMenu | #PB_Window_ScreenCentered | #PB_Window_MinimizeGadget) = 0 Or CreateGadgetList(WindowID(0)) = 0
End
EndIf
LoadFont(0, "Tahoma", 16)
Frame3DGadget(0, 0, 0, 200, 200, "Texte")
SetGadgetFont(0, FontID(0))
Repeat
Event = WaitWindowEvent()
Select Event
Case #PB_Event_Menu
Select EventMenu() ; Menus
EndSelect
Case #PB_Event_Gadget
Select EventGadget() ; Gadgets
EndSelect
EndSelect
Until Event = #PB_Event_CloseWindow
End
Re: Frame3Dgadget et SetGadgetFont
Publié : sam. 18/oct./2008 22:45
par Backup
Le Soldat Inconnu a écrit :on ne peut pas changer la police d'un Frame3Dgadget ou c'est moi qui fait mal ?
chez moi ça marche !!
j'ai essayé de mettre "comic sans Ms" , et ça marche bien
meme changer la taille fonctionne bien
Pb 4.20, Windows Xp Familiale
Code : Tout sélectionner
; Auteur : Le Soldat Inconnu
; Version de PB : 4
;
; Explication du programme :
; Pour faire des programmes de test rapidement, il ne reste qu'a rajouter les gadgets et la gestion des évènements.
; Création de la fenêtre et de la GadgetList
If OpenWindow(0, 0, 0, 300, 300, "Test", #PB_Window_SystemMenu | #PB_Window_ScreenCentered | #PB_Window_MinimizeGadget) = 0 Or CreateGadgetList(WindowID(0)) = 0
End
EndIf
LoadFont(0, "Comic Sans MS", 16)
Frame3DGadget(0, 0, 0, 200, 200, "Texte")
SetGadgetFont(0, FontID(0))
Repeat
event = WaitWindowEvent()
Select event
Case #PB_Event_Menu
Select EventMenu() ; Menus
EndSelect
Case #PB_Event_Gadget
Select EventGadget() ; Gadgets
EndSelect
EndSelect
Until event = #PB_Event_CloseWindow
End
Publié : sam. 18/oct./2008 23:23
par Le Soldat Inconnu
ha zut, alors j'ai un blème avec mon thème visuel moi ... ouin, va falloir que je zieute ça
Publié : dim. 19/oct./2008 0:14
par Geo Trouvpatou
Salut.
Je confirme que cela fonctionne bien sous XPPro SP3 PB4.20 et 4.30 par contre dans la 4.30 j'ai un beau petit message : La fonction CreateGadgetList() est obsolète, mais cela fonctionne malgré tout.
Bye.