Position Absolu d'un Gadget dans une fenetre

[olivier]

Salut tous et les autres

Voilà j'aurais besoins de la position de mes gadgets par rapport à ma fênetre.
Mais des qu'un gadget est dans un panelgadget sa position est en fonction de la position du panel.

J'aimerais que le bout de code suivant me renvoie : 55 et 60 au lieu de 5 et 10.

Merci d'avance pour votre aide.

Code : Tout sélectionner

OpenWindow (0,10,10,200,200, "ess", #PB_Window_SystemMenu  )
CreateGadgetList ( WindowID (0))
PanelGadget(1,50,50,130,130)
AddGadgetItem(1, -1, "Sub-Panel 1")

ButtonGadget(2,5,10,100,20,"ess")
Debug GadgetX(2)
Debug GadgetY(2)
Repeat
     event= WaitWindowEvent ()
     Select event
          Case #PB_Event_Gadget ; *****************Choix d'un bouton
               Select EventGadget()
               EndSelect
     EndSelect
Until event=#WM_CLOSE

[erix14]

La position par rapport à la fenêtre n'est pas 55 et 60, tu as oublié la hauteur de l'étiquette du panel qui ne fait pas partie de sa zone client ainsi que sa bordure.

Code : Tout sélectionner

OpenWindow (0,10,10,200,200, "ess", #PB_Window_SystemMenu  )
CreateGadgetList ( WindowID (0))
PanelGadget(1,50,50,130,130)
AddGadgetItem(1, -1, "Sub-Panel 1")

ButtonGadget(2,5,10,100,20,"ess")
ClientToScreen_(WindowID(0),Rect1.rect)
GetWindowRect_(GadgetID(2),Rect2.rect)
Debug Rect2\left-Rect1\left
Debug Rect2\top-Rect1\top
Repeat
     event= WaitWindowEvent ()
     Select event
          Case #PB_Event_Gadget ; *****************Choix d'un bouton
               Select EventGadget()
               EndSelect
     EndSelect
Until event=#WM_CLOSE 

[olivier]

MMMMEERRRRRCCCCCCCI

t'es un Boss