- Code: Select all Expand view
- #include "Fivewin.ch"
FUNCTION MAIN()
LOCAL oWnd, oMenu
MENU oMenu 2007
MENUITEM "Window"
MENU
MENUITEM "Test"
ENDMENU
ENDMENU
DEFINE WINDOW oWnd MDI;
TITLE "MDI Test";
MENU oMenu;
MENUINFO 1
ACTIVATE WINDOW oWnd;
ON INIT CREATECHILD( oWnd )
RETURN NIL
STATIC FUNCTION CREATECHILD( oMdi )
LOCAL oWnd, oMenu
MENU oMenu 2007
MENUITEM "Window"
MENU
MENUITEM "Test"
ENDMENU
ENDMENU
DEFINE WINDOW oWnd MDICHILD OF oMdi;
TITLE "MDI Child Test";
MENU oMenu
ACTIVATE WINDOW oWnd;
VALID !GETKEYSTATE( VK_ESCAPE )
RETURN NIL
EMG