reduire une succession de fenetre...restore ???

Vous débutez et vous avez besoin d'aide ? N'hésitez pas à poser vos questions
olivier
Messages : 305
Inscription : mer. 05/janv./2005 12:58
Localisation : http://www.tib-net.com/meca/index.htm

reduire une succession de fenetre...restore ???

Message par olivier »

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

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
Vive le temps libre !
hichem
Messages : 38
Inscription : dim. 04/sept./2005 16:25
Localisation : Algerie
Contact :

Message par hichem »

chez moi ça marche très bien.
l'executable fonctionne comme voulu.
mmmmmmmmmmm.
olivier
Messages : 305
Inscription : mer. 05/janv./2005 12:58
Localisation : http://www.tib-net.com/meca/index.htm

Message par olivier »

:? ....d'autre on testé ?..... :?
Vive le temps libre !
Good07
Messages : 308
Inscription : ven. 23/avr./2004 18:08
Localisation : Hérault 34190 Laroque

Message par Good07 »

bonjour Olivier.

Chez moi ça ne plante pas, mais on ne peux réduire que la fenêtre active alors que quand il n'est pas compilé la réduction de la dernière réduit les trois. :(
olivier
Messages : 305
Inscription : mer. 05/janv./2005 12:58
Localisation : http://www.tib-net.com/meca/index.htm

Message par olivier »

Ben oui on est d'accord, ça plant pas mais cela n'a pas le même comportemant !
Donc soit je ne fais pas ce qu'il faut ...soit cela bug !
PS : je suis sous Win 2k
Vive le temps libre !
Répondre