[Résolu]MDI : Fermeture incontrôlée

Ollivier · Message par **Ollivier** » dim. 01/juil./2007 0:22

Voici le tutoriel de l'aide de PureBasic sur les MDIGadgets:

#FenetrePrincipale = 0
  #FenetreFille = 1
  If OpenWindow(#FenetrePrincipale, 0, 0, 400, 300, "MDIGadget", #PB_Window_SystemMenu|#PB_Window_ScreenCentered|#PB_Window_SizeGadget|#PB_Window_MaximizeGadget)
    If CreateGadgetList(WindowID(#FenetrePrincipale)) And CreateMenu(#FenetrePrincipale, WindowID(#FenetrePrincipale))
      MenuTitle("Index de menu 0")
      MenuTitle("Menu des fenêtres filles")
        MenuItem(0, "Elément créé soi-même")
        MenuItem(1, "Elément créé soi-même")
        
      MDIGadget(0, 0, 0, 0, 0, 1, 2, #PB_MDI_AutoSize)
        AddGadgetItem(0, #FenetreFille, "Fenêtre fille")
        CreateGadgetList(WindowID(#FenetreFille))
          ; ajouter des gadgets ici...
      UseGadgetList(WindowID(#FenetrePrincipale)) ; retourne à la liste de gadgets de la fenêtre principale
    EndIf
    Repeat : Until WaitWindowEvent()=#PB_Event_CloseWindow
  EndIf

Peut-on faire une modification pour éviter de quitter le programme quand on ferme le fenêtre fille?

comtois · Message par **comtois** » dim. 01/juil./2007 6:10

Tu peux aussi regarder l'exemple MDI ImageViewer.pb qui se trouve dans le répertoire Examples, il est plus complet.

Code : Tout sélectionner

#FenetrePrincipale = 0
  #FenetreFille = 1
  If OpenWindow(#FenetrePrincipale, 0, 0, 400, 300, "MDIGadget", #PB_Window_SystemMenu|#PB_Window_ScreenCentered|#PB_Window_SizeGadget|#PB_Window_MaximizeGadget)
    If CreateGadgetList(WindowID(#FenetrePrincipale)) And CreateMenu(#FenetrePrincipale, WindowID(#FenetrePrincipale))
      MenuTitle("Index de menu 0")
      MenuTitle("Menu des fenêtres filles")
        MenuItem(0, "Elément créé soi-même")
        MenuItem(1, "Elément créé soi-même")
       
      MDIGadget(0, 0, 0, 0, 0, 1, 2, #PB_MDI_AutoSize)
        AddGadgetItem(0, #FenetreFille, "Fenêtre fille")
        CreateGadgetList(WindowID(#FenetreFille))
          ; ajouter des gadgets ici...
      UseGadgetList(WindowID(#FenetrePrincipale)) ; retourne à la liste de gadgets de la fenêtre principale
    EndIf
    Repeat
    
      Event = WaitWindowEvent()
      
      If Event = #PB_Event_CloseWindow
        Window = EventWindow()
        
  
        If Window = #FenetrePrincipale 
          
          Quit = 1
          
        ElseIf Window =  #FenetreFille 
        
          CloseWindow(Window)
  
        EndIf
    
      EndIf
  
    Until Quit
  EndIf

Ollivier · Message par **Ollivier** » jeu. 05/juil./2007 16:41

Heureux celui qui lit correctement l'aide de PB!

Merci comtois

XLC