Il n'y pas de gadget list actuellement
Comment faire
Code : Tout sélectionner
Procedure OuvreMainWindows()
OpenWindow(0, 0, 0,800,600,"Teste",#PB_Window_SystemMenu|#PB_Window_Maximize)
ButtonGadget(1, 360, 115, 100, 25, "Teste")
EndProcedure
Procedure OuvreNewSceneWindows()
Protected NumScene$,NbrScene,Nb
gNewSceneWindows = OpenWindow(1, 0, 0, 480, 155, "Nouvelle scene", #PB_Window_SystemMenu | #PB_Window_WindowCentered)
TextGadget(1, 10, 0, 100, 25, "Nom:")
StringGadget(2, 10, 30, 460, 25, "")
ButtonGadget(3, 360, 115, 100, 25, "Valider")
ButtonGadget(4, 250, 115, 100, 25, "Annuler")
SetActiveGadget(1)
EndProcedure
OuvreMainWindows()
Exit.b=#False
Repeat
Event=WaitWindowEvent()
Select EventWindow()
Case 0 ;Main windows
Select Event
Case #PB_Event_CloseWindow
Exit=#True
Case #PB_Event_Gadget
If EventGadget()=1 ; Bt teste
OuvreNewSceneWindows()
DisableWindow(0,1) ;Désactive Main windows
EndIf
EndSelect
Case 1 ;Other windows
Select Event
Case #PB_Event_CloseWindow
CloseWindow(1) ; Close other windows
DisableWindow(0,0) ;Réactive Main windows
SetActiveWindow(0);Done le focus à main windows
Case #PB_Event_Gadget
Select EventGadget()
Case 4 ;Bt Annuler
CloseWindow(1) ; Close other windows
DisableWindow(0,0) ;Réactive Main windows
SetActiveWindow(0);Done le focus à main windows
Case 3 ;Bt Valdier
CloseWindow(1) ; Close other windows
DisableWindow(0,0) ;Réactive Main windows
SetActiveWindow(0);Done le focus à main windows
CanvasGadget(1,0,0,500,500)
EndSelect
EndSelect
EndSelect
Until Exit=#True
Solution utiliser UseGadgetList(WindowID())