PureBasic

Comment faire pour avoir plusieurs fenetre avec les meme gagets (Fen1, bp1; Fen2,bp2) sans avoir a faire une delcaration pour chaque gadget

Essai de code met probleme pour fermer les fenetres, retrouver l'appuie sur le bon boutons...
Merci

Code : Tout sélectionner

;PB 4.6 RC1
Enumeration
#FenetrePrincipale=0
#menu1
#menu2
#menuquitte
#fenetre
#text5
#mdi



#FenetreFille = 10
#liste_d=20
#liste_s=30
#bouton =40
#text=50
EndEnumeration



  If OpenWindow(#FenetrePrincipale, 150, 100, 800, 700, "FEN PP")
    If CreateMenu(#FenetrePrincipale, WindowID(#FenetrePrincipale))
      MenuTitle("Index de menu")
      MenuItem(#menuquitte, "Quitter")
      MenuTitle("Menu des fenêtres filles")
        MenuItem(#menu1, "Fenetre 1")
        MenuItem(#menu2, "duplication")
        MenuTitle("LISTE des fenêtres ")  
         ;declarartion de la fentre mere pour les fenetres MDI
   MDIGadget(#MDI, 50, 50, 100, 50, 0, 1, #PB_MDI_AutoSize)
        

      UseGadgetList(WindowID(#FenetrePrincipale)) ; retourne à la liste de gadgets de la fenêtre principale
    EndIf
    
    
    Repeat
      
      event=WaitWindowEvent()
      
      
      Select event
      Case #PB_Event_Menu
        Select EventMenu()  
            
          Case #menuquitte: quit=1
                          
          Case #menu1
            AddGadgetItem(#mdi, #Fenetre, "Fenêtre fille")
            TextGadget(#text5, 10, 10,250,20,"Gadget texte standard (texte aligné à gauche)")

            
          Case #menu2 ; trois fenetre maxi
            If num<3
            
           AddGadgetItem(#mdi,#FenetreFille+num , "Fentre n° " +Str(num+1),#PB_Window_ScreenCentered| #PB_Window_SystemMenu )
 
          TextGadget(#text+num, 5, 5,250,20,"Gadget texte standard "+name$)
          ListIconGadget(#liste_s+num, 25, 25, 290, 90, "Nom", 100, #PB_ListIcon_FullRowSelect|#PB_ListIcon_AlwaysShowSelection)
          AddGadgetColumn(#liste_s+num, 1, "Adresse", 250)
          AddGadgetItem(#liste_s+num, -1, "A" +Str(num+1)+Chr(10)+"AAAAAAAAAA")
          AddGadgetItem(#liste_s+num, -1, "B"+ Str(num+1)+Chr(10)+"BBBBBBBBBB")
          ListIconGadget(#liste_d+num, 25, 115, 290, 90, "Nom", 100, #PB_ListIcon_FullRowSelect|#PB_ListIcon_AlwaysShowSelection)
          AddGadgetColumn(#liste_d+num, 1, "Adresse", 250)
          AddGadgetItem(#liste_d+num, -1, "A" +Str(num+1)+Chr(10)+"AAAAAAAAAA")
          AddGadgetItem(#liste_d+num, -1, "B"+ Str(num+1)+Chr(10)+"BBBBBBBBBB")
         ButtonGadget(#bouton+num, 250, 250, 100, 25, "BOUTON " +Str(num+1))

          num=num+1
         Else
           MessageRequester("ERREUR","plus de place memoire",#PB_MessageRequester_Ok  )
           EndIf
            
       
                   
            
        EndSelect
    EndSelect  
    
     ;- Cas des boutons
  Select event
    Case #PB_Event_Gadget
      Select EventGadget()
        Case #Bouton
      EndSelect
   EndSelect    
    
    
    
     Select EventWindow()
       Case #Fenetre  ; CLIENT
          Select Event
            Case #PB_Event_CloseWindow
                  CloseWindow(#Fenetre)
          EndSelect 
    
      
      Case #FenetreFille  ; CLIENT
          Select Event
            Case #PB_Event_CloseWindow
                  CloseWindow(#FenetreFille)
          EndSelect 
     EndSelect
    
    
      
     Until quit= 1
  EndIf

PureBasic

Multi documents avec plusieurs gadget

Multi documents avec plusieurs gadget

Re: Multi documents avec plusieurs gadget