Gadgets trop proches sous Leopard (MacOS)
Publié : dim. 18/nov./2007 0:23
Lorsque les gadgets sont assez proches, ils sont mal dessinés tant qu'il n'y a pas d'actions sur la fenêtre.
Ce code fonctione sous Windows, je pense donc que ça ne viens pas de moi, mais je ne suis pas sur...
Ce code fonctione sous Windows, je pense donc que ça ne viens pas de moi, mais je ne suis pas sur...
Code : Tout sélectionner
Enumeration; Menus
#Sept
#Huit
EndEnumeration
#Vrai = 1 : #Faux = 0 : #Oui = 1 : #Non = 0
; Variables
Sortie.b = 0
Event.l
Hide.l = 0
; Tableaux
; Initialisations
If OpenWindow(0, 0, 0, 220, 500, "OSMail", #PB_Window_SystemMenu|#PB_Window_ScreenCentered)
CreateGadgetList(WindowID(0))
ButtonGadget(#Sept,15,235,30,30,"7",#PB_Text_Center)
ButtonGadget(#Huit,50,235,30,30,"8",#PB_Text_Center)
Repeat
Event = WaitWindowEvent()
Select Event
Case #PB_Event_Menu
Select EventMenu()
Case #PB_Menu_Quit
Sortie = #Vrai
EndSelect
Case #PB_Event_Gadget
MessageRequester("Bug","Le bug disparait")
EndSelect
Until Sortie = #Vrai
EndIf
End