reduire une succession de fenetre...restore ???
Publié : lun. 01/mai/2006 14:31
Bon ..... jour à tous
Voilà j'ai une fenetre, qui appel une autre fenetre, puis une autre.
Et j'aimerais que lorsque je reduis la troisième cela réduis aussi les 2 autres.
Et cela se passe bien, en mode débug, mais dés que je creé un executable, cela plant !
Merci d'avance pour vos idées...
Voilà j'ai une fenetre, qui appel une autre fenetre, puis une autre.
Et j'aimerais que lorsque je reduis la troisième cela réduis aussi les 2 autres.
Et cela se passe bien, en mode débug, mais dés que je creé un executable, cela plant !
Merci d'avance pour vos idées...
Code : Tout sélectionner
OpenWindow(0, 0, 0, 150, 150, "Test", #PB_Window_SystemMenu | #PB_Window_MinimizeGadget)
CreateGadgetList(WindowID( 0))
ButtonGadget(1,10,10,100,20,"test")
Repeat
event = WaitWindowEvent()
Select event
Case #PB_Event_Gadget
Select EventGadget()
Case 1
DisableWindow(0,1)
OpenWindow(2, 210, 210, 150, 150, "Test2", #PB_Window_SystemMenu | #PB_Window_MinimizeGadget,WindowID(0))
CreateGadgetList(WindowID( 2))
ButtonGadget(3,10,10,100,20,"test")
Case 3
DisableWindow(2,1)
OpenWindow(4, 410, 410, 200, 200, "Test2", #PB_Window_SystemMenu | #PB_Window_MinimizeGadget,WindowID(2))
EndSelect
Case #WM_CLOSE
Select GetActiveWindow()
Case 4
CloseWindow(4)
DisableWindow(2,0)
Case 2
CloseWindow(2)
DisableWindow(0,0)
Case 0
quit=1
EndSelect
; Case 161 ;detect evenement dans la barre system
;
; If EventwParam()=8;détect le minimize
; SetWindowState(0,#PB_Window_Minimize)
; DisableWindow(0,0)
; EndIf
EndSelect
Until quit=1
End
....d'autre on testé ?..... 