Popup menu on buttonbar shifted down [Fixed]
Posted: Sun Jun 21, 2015 11:05 am
Here it is a sample. The items of the popup menu on the buttonbar are shifted down if compared with the same menu on menubar or on click on the window.
EMG
Code: Select all
#include "Fivewin.ch"
FUNCTION MAIN()
LOCAL oWnd, oMen
MENU oMen 2007
MENUITEM "Test"
MENU
MENUITEM "Test 1"
MENUITEM "Test 2"
MENUITEM "Test 3"
ENDMENU
ENDMENU
DEFINE WINDOW oWnd;
MENU oMen;
VSCROLL
DEFINE BUTTONBAR OF oWnd 2007
DEFINE BUTTON;
OF oWnd:oBar;
MENU POPUPMENU2()
ACTIVATE WINDOW oWnd;
ON CLICK POPUPMENU( oWnd, nRow, nCol )
RETURN NIL
STATIC FUNCTION POPUPMENU( oWnd, nRow, nCol )
LOCAL oMen
MENU oMen 2007 POPUP
MENUITEM "Test 1"
MENUITEM "Test 2"
MENUITEM "Test 3"
ENDMENU
ACTIVATE MENU oMen AT nRow, nCol OF oWnd
RETURN NIL
STATIC FUNCTION POPUPMENU2()
LOCAL oMen
MENU oMen 2007 POPUP
MENUITEM "Test 1"
MENUITEM "Test 2"
MENUITEM "Test 3"
ENDMENU
RETURN oMen