[v4 beta 9] PanelGadget -> #PB_Event_SizeWind [Impossibl

[olivier]

A que Coucou

Lorsque l'on crée un gadget Pänel dans une fenetre existante cela nous renvoie un évenement #PB_Event_SizeWindow. Est ce normale et je dois faire avec ou cela est-il un bug et j'attends la correction ?

Code : Tout sélectionner

OpenWindow(0,10,10,500,500,"ess")
CreateGadgetList(WindowID(0))
ButtonGadget(1,10,10,80,20,"create panel")

Repeat
     event=WaitWindowEvent()
     Select event
          Case #PB_Event_Gadget    
               Select EventGadget()
                    Case 1
                         CreateGadgetList(WindowID(0))
                         PanelGadget(21, 20, 70, 200, 200)
                         AddGadgetItem(21, -1, "Liste")
               EndSelect
          Case #PB_Event_SizeWindow
               Debug "resize"
     EndSelect
     
Until event=#WM_CLOSE

[LeCyb]

Moi je dirais que c'est normal puisque la création d'un gadget va définir une taille initiale et donc un événement resize puisqu'avant de définir sa taille il n'en avait pas.

[olivier]

Bon je remonte le truc car je m'apperçois que c'est le même problème lorsque l'on clique sur un des onglet !

Pourquoi un évenement Resize ????

Moi je ne trouve pas cela normal...

La fin du Post veut il dire que cela est impossible à corriger et que je doit faire avec ?

Merci pour vos réponse.

Code : Tout sélectionner

OpenWindow(0,10,10,500,500,"ess")
CreateGadgetList(WindowID(0))
ButtonGadget(1,10,10,80,20,"create panel")

Repeat
   event=WaitWindowEvent()
   Select event
      Case #PB_Event_Gadget   
         Select EventGadget()
            Case 1
               CreateGadgetList(WindowID(0))
               PanelGadget(21, 20, 70, 200, 200)
               AddGadgetItem(21, -1, "Liste")
               AddGadgetItem(21, -1, "Cliquer ici")
               AddGadgetItem(21, -1, "Cliquer ici")
         EndSelect
      Case #PB_Event_SizeWindow
         Debug "resize"
   EndSelect
   
Until event=#WM_CLOSE