- Code: Select all Expand view RUN
- #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
EMG