FreeGadget

[microdevweb]

Voila mon petit soucis. Je voudrais faire une base d'outils dynamique. Je crée don une barre d'outils dans un container puis pour modifier la barre d'outils utilise freeGadget et puis recrée le container, par contre le container ne se crée plus? Cela est'il normal?

Code : Tout sélectionner

Procedure Open_Main_Form() 
     OpenWindow(#Main_Form, 0, 0, 800, 600, "Easy Dev 1.0", #PB_Window_SystemMenu | #PB_Window_ScreenCentered | #PB_Window_Maximize)
      gWhithMain=WindowWidth(#Main_Form,#PB_Window_InnerCoordinate)
      gHeightMain=WindowHeight(#Main_Form,#PB_Window_InnerCoordinate)
      pToolStandart() 
EndProcedure

Code : Tout sélectionner

Procedure pToolStandart()
       Protected X,Y
      If IsGadget(#Main_Container_Tools)
            FreeGadget(#Main_Container_Tools)
      EndIf
      UseGadgetList(#Main_Form)
      ContainerGadget(#Main_Container_Tools,0,0,gWhithMain,#HeightTools,#PB_Container_Single)
      ButtonImageGadget(#Main_Tools_New,0,#MarginButton,#HeightButton,#HeightButton,ImageID(#Img_New))
      GadgetToolTip(#Main_Tools_New,"Créer une nouvelle fenêtre")
      X=(#HeightButton*1)+#MarginButton
      ButtonImageGadget(#Main_Tools_Grid,X,#MarginButton,#HeightButton,#HeightButton,ImageID(#Img_Grid),#PB_Button_Toggle)
      GadgetToolTip(#Main_Tools_Grid,"Activer/Désactiver la grille")
      X=(#HeightButton*2)+(#MarginButton*4)
      TextGadget(#Main_Tools_Txt_0,X,#MarginButton,#HeightButton*1.5,#HeightButton/2,"Taille Grille")
      Y=#HeightButton/2
      SpinGadget(#Main_Tools_Spin,X,Y,#HeightButton*1.5,#HeightButton/2,5,30,#PB_Spin_ReadOnly | #PB_Spin_Numeric)
      SetGadgetState(#Main_Tools_Spin,8)
      SetGadgetText(#Main_Tools_Spin,"8")
      X+#HeightButton*1.5+#MarginButton
      Y=#MarginButton
      ButtonImageGadget(#Main_Tools_Save,X,Y,#HeightButton,#HeightButton,ImageID(#IMG_SAVE))
      GadgetToolTip(#Main_Tools_Save,"Sauver le projet")
      X+#HeightButton+#MarginButton
      ButtonImageGadget(#Main_Tools_Save_As,X,Y,#HeightButton,#HeightButton,ImageID(#IMG_SAVE_AS))
      GadgetToolTip(#Main_Tools_Save_As,"Sauver le projet sous un autre nom")
      X+#HeightButton+#MarginButton
      ButtonImageGadget(#Main_Tools_Gadget,X,Y,#HeightButton,#HeightButton,ImageID(#Img_Accesorie),#PB_Button_Toggle)
      GadgetToolTip(#Main_Tools_Gadget,"Ouvrir le menu de gestion des gadget")
      X+#HeightButton+#MarginButton
      ButtonImageGadget(#Main_Tools_Compile,X,Y,#HeightButton,#HeightButton,ImageID(#IMG_COMPILE))
      GadgetToolTip(#Main_Tools_Compile,"Compiler le projet")
      CloseGadgetList()
EndProcedure

Code : Tout sélectionner

Procedure pToolGadget()
      Protected X=0,Y=0
      If IsGadget(#Main_Container_Tools)
            FreeGadget(#Main_Container_Tools)
      EndIf
      UseGadgetList(#Main_Form)
      ContainerGadget(#Main_Container_Tools,0,0,gWhithMain,#HeightTools,#PB_Container_Single)
      X+#MarginButton
      ButtonImageGadget(#Main_Tools_Masque_Gadget,X,Y,#HeightButton,#HeightButton,ImageID(#IMG_MASQUE_GADGET))
      GadgetToolTip(#Main_Tools_Masque_Gadget,"Revenir au menu principale")
       X+#HeightButton+#MarginButton
       ButtonImageGadget(#Main_Tools_Code,X,Y,#HeightButton,#HeightButton,ImageID(#Img_Code))
       GadgetToolTip(#Main_Tools_Code,"Ajouter le code évenementiele")
      X+#HeightButton+#MarginButton
      ButtonImageGadget(#Main_Tools_Option,X,Y,#HeightButton,#HeightButton,ImageID(#Img_Option))
      GadgetToolTip(#Main_Tools_Option,"Modifier les paramètres du gadget")
      X+#HeightButton+#MarginButton
      ButtonImageGadget(#Main_Tools_Align_G,X,Y,#HeightButton,#HeightButton,ImageID(#Img_Align_G))
      GadgetToolTip(#Main_Tools_Align_G,"Aligner les gadgets à gauche les un aux autres")
      X+#HeightButton+#MarginButton
      ButtonImageGadget(#Main_Tools_Align_D,X,Y,#HeightButton,#HeightButton,ImageID(#Img_Align_D))
      GadgetToolTip(#Main_Tools_Align_D,"Aligner les gadgets à droite les un aux autres")
      X+#HeightButton+#MarginButton
      ButtonImageGadget(#Main_Tools_Align_C,X,Y,#HeightButton,#HeightButton,ImageID(#Img_Align_C))
      GadgetToolTip(#Main_Tools_Align_C,"Center les gadgets les un aux autres")
      X+#HeightButton+#MarginButton
      ButtonImageGadget(#Main_Tools_Align_J,X,Y,#HeightButton,#HeightButton,ImageID(#Img_Align_J))
      GadgetToolTip(#Main_Tools_Align_J,"Justifier les gadgets")
      CloseGadgetList()
EndProcedure