[Resolu] Frame3Dgadget et SetGadgetFont

[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

[Backup]

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

[Le Soldat Inconnu]

ha zut, alors j'ai un blème avec mon thème visuel moi ... ouin, va falloir que je zieute ça

[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.