I have a container with a button on it. When I click the button, I want
to pop up a shortcut menu. The menu pops up, but WAY off the the right
and WAY below the form.
** Within the container
WITH This
** Define top, left position
nRow = ThisForm.Top + .Top + .tbnPopup.Height
nCol = ThisForm.Left + .Left
** Create popup
DEFINE POPUP PopItems FROM nRow, nCol SHORTCUT
** Add the menu bars
FOR nItem = 1 TO ALEN(aValues, 1)
DEFINE BAR nItem OF PopItems PROMPT aValues[nItem, 2]
ENDFOR
** Define selection actions
ON SELECTION POPUP PopItems oContainer.SelectItem()
** Show the popup
ACTIVATE POPUP PopItems
ENDWITH
Everything makes sense in someone's mind
public class SystemCrasher :ICrashable
In addition, an integer field is not for irrational people