Hi,

In several places of my application I have popup menus that are displayed when a user clicks on a button at the bottom of a window. These menus are displayed with the first/top item at the button and then all other items showing down.
Here is the code I use:

Thisform.ScaleMode = 0		&& Foxels
lnPosX = This.Left 
lnPosY = This.Top 
Thisform.ScaleMode = 3       && Back to Pixels

define popup Options shortcut relative from (lnPosY), (lnPosX)

define popup Options shortcut relative from mrow(),mcol() 
on selection popup Options selmenu = 1
define bar 1 of Options prompt "Item 1"
define bar 2 of Options prompt "Item 2"
... and so on other items

The problem is that when the popup menu is very long (like 12 or more items), the bottom items are not visible. They are beyond the screen.

My question is, how can I change the code above so that the menu would automatically "move" up to show all items, according to the screen resolution?
Of if the above is not possible, how can I make the menu show the last/bottom item at the clicked button and all items above?

TIA