#include "Fivewin.ch"
FUNCTION MAIN()
LOCAL oWnd, oMenu
MENU oMenu 2007
MENUITEM "Test"
MENU
MENUITEM "Test"
MENUITEM "Test"
MENUITEM "Test"
ENDMENU
ENDMENU
DEFINE WINDOW oWnd MDI;
TITLE "MDI Test";
MENU oMenu
ACTIVATE WINDOW oWnd;
ON INIT CREATECHILD( oWnd )
RETURN NIL
STATIC FUNCTION CREATECHILD( oMdi )
LOCAL oWnd, oMenu
MENU oMenu 2007
MENUITEM "Test"
MENU
MENUITEM "Test"
MENUITEM "Test"
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
STATIC FUNCTION CREATECHILD( oMdi )
LOCAL oWnd, oMenu
MENU oMenu 2007
MENUITEM "Test"
MENU
MENUITEM "Test "
MENUITEM "Test"
MENUITEM "Test"
ENDMENU
ENDMENU
Return to Bugs report & fixes / Informe de errores y arreglos
Users browsing this forum: No registered users and 19 guests