Bug in TMenu [Fixed]
Posted: Fri Nov 18, 2016 12:01 pm
Occasionally, I get popup menus much higher than normal ones:
http://www.emagsoftware.it/public/menubug.png
EMG
http://www.emagsoftware.it/public/menubug.png
EMG
www.FiveTechSoft.com
https://forums.fivetechsupport.com/
https://forums.fivetechsupport.com/viewtopic.php?f=18&t=33199
#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