Hi Phil,
You can temporary switch form scale mode to Foxels to calculate shortcut menu position.
Thisform.ScaleMode = 0
lnPosX = This.Left + This.Width
lnPosY = This.Top + This.Height
Thisform.ScaleMode = 3
DEFINE POPUP test SHORTCUT RELATIVE FROM (lnPosY), (lnPosX)
DEFINE BAR 1 OF test PROMPT "Menu 1"
DEFINE BAR 2 OF test PROMPT "Menu 2"
ACTIVATE POPUP test
>I am struggling trying to get a shortcut menu to be displayed relative to the command button which calls it.
>
>The "print" button is calling the shortcut menu with a simple DO COFC.MPR command.
>
>The shortcut menu works as desired, except it is diplayed at the location of the mouse pointer. I want the top left corner of the menu to be anchored to the bottom right corner of the command button.
>
>Can someone shed some light on this for me??
>
>Thanks.
--sb--