J'ai l'impression que sous Mac OS X l'option #PB_ScrollArea_Center pour le ScrollAreaGadget ne fonctionne pas. Ou alors je m'y prend comme un manche. Pour info j'utilise PB 5.00 beta 7.
Code : Tout sélectionner
If OpenWindow(0, 0, 0, 305, 140, "ScrollAreaGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered | #PB_Window_MaximizeGadget)
ScrollAreaGadget(0, 10, 10, 290,120, 375, 155, 30, #PB_ScrollArea_Center)
ButtonGadget (1, 10, 10, 230, 30,"Bouton 1")
ButtonGadget (2, 50, 50, 230, 30,"Bouton 2")
ButtonGadget (3, 90, 90, 230, 30,"Bouton 3")
TextGadget (4,130,130, 230, 20,"Ceci est le contenu d'une zone de défilement !",#PB_Text_Right)
CloseGadgetList()
Repeat
Select WaitWindowEvent()
Case #PB_Event_CloseWindow
End
Case #PB_Event_SizeWindow
ResizeGadget(0, #PB_Ignore, #PB_Ignore, WindowWidth(0) - 10, WindowHeight(0) -10)
Case #PB_Event_Gadget
Select EventGadget()
Case 1
MessageRequester("Info","Le bouton 1 a été appuyé !",#PB_MessageRequester_Ok)
Case 2
MessageRequester("Info","Le bouton 2 a été appuyé !",#PB_MessageRequester_Ok)
Case 3
MessageRequester("Info","Le bouton 3 a été appuyé !",#PB_MessageRequester_Ok)
EndSelect
EndSelect
ForEver
EndIf