J'ai un problème avec les fenêtres petite fille et je ne trouve pas ma réponse sur le forum
Autant les fenêtres filles ne me posent pas de problème (tout du moins je pense
)je n'arrive pas à fermer ma fenêtre petite fille et quand je suis dans la fenêtre petite fille ( pas d'allusions hein, quand je répète petite fille plusieurs fois
)et si je donne le focus à la fenêtre fille je peux fermer petite fille avec le bouton quitter fille Ai'je été asser clair
Code : Tout sélectionner
;********PURE 4.31****************
;*********FRED*********************
Declare fenetre_fille()
Declare fenetre_petite_fille()
Enumeration
#fenetre
#fenetre_fille
#bouton_quitter_fille
#bouton_vers_petite_fille
#bouton_vers_fille
#fenetre_petite_fille
#bouton_quitter3
#fenetre_largeur = 1024
#fenetre_hauteur = 600
EndEnumeration
OpenWindow(#fenetre ,0,0,#fenetre_largeur ,#fenetre_hauteur ,"GUIDAGE",#PB_Window_ScreenCentered|#PB_Window_SystemMenu|#PB_Window_MinimizeGadget| #PB_Window_MaximizeGadget)
Fenetre_une = WindowID(#fenetre )
couleur = RGB(0,150,0) ;on met la fenetre en bleu foncé
SetWindowColor(#fenetre,couleur)
ButtonGadget(#bouton_vers_fille, 900, 10, 100, 30, "vers fille" )
Repeat
Event1 = WaitWindowEvent()
If Event1 = #PB_Event_Gadget
clicgadget = EventGadget()
Else
clicgadget = 0
EndIf
If clicgadget = #bouton_vers_fille
fenetre_fille()
SetActiveWindow(#fenetre)
EndIf
Until Event1=#PB_Event_CloseWindow ;si on appuie sur la croix on quitte le programme.
CloseWindow(#fenetre)
; **************** zone des procedures ********************************
Procedure fenetre_fille()
OpenWindow(#fenetre_fille ,0,0,#fenetre_largeur ,#fenetre_hauteur ,"fenetre2" ,#PB_Window_ScreenCentered|#PB_Window_SystemMenu|#PB_Window_MinimizeGadget| #PB_Window_MaximizeGadget)
StickyWindow(#fenetre_fille,1)
ButtonGadget(#bouton_quitter_fille, 10, 500, 200, 20, "quiter fille")
ButtonGadget(#bouton_vers_petite_fille, 10, 400, 200, 20, "vers petite fille")
Repeat
Event2= WaitWindowEvent()
If Event2 = #PB_Event_Gadget
clicgadget = EventGadget()
Else
clicgadget = 0
EndIf
If clicgadget = #bouton_vers_petite_fille
fenetre_petite_fille()
;SetActiveWindow(#bouton_vers_petite_fille )
EndIf
If clicgadget = #bouton_quitter_fille
CloseWindow(#fenetre_fille)
Event2=#PB_Event_CloseWindow
EndIf
Until Event2=#PB_Event_CloseWindow
EndProcedure
Procedure fenetre_petite_fille()
OpenWindow(#fenetre_petite_fille ,0,0,#fenetre_largeur ,#fenetre_hauteur ,"fenetre2" ,#PB_Window_ScreenCentered|#PB_Window_SystemMenu|#PB_Window_MinimizeGadget| #PB_Window_MaximizeGadget)
StickyWindow(#fenetre_petite_fille,1)
ButtonGadget(#bouton_quitter3, 100, 500, 200, 20, "quiter")
Repeat
Event3 = WaitWindowEvent()
If Event3 = #PB_Event_Gadget
clicgadget = EventGadget()
Else
clicgadget = 0
EndIf
If clicgadget = 2
CloseWindow(#fenetre_petite_fille)
Event3=#PB_Event_CloseWindow
EndIf
Until Event3=#PB_Event_CloseWindow
EndProcedure
