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/~fivetec1/forums/
https://forums.fivetechsupport.com/~fivetec1/forums/viewtopic.php?t=33199
Code: Select all | Expand
#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
Code: Select all | Expand
STATIC FUNCTION CREATECHILD( oMdi )
LOCAL oWnd, oMenu
MENU oMenu 2007
MENUITEM "Test"
MENU
MENUITEM "Test "
MENUITEM "Test"
MENUITEM "Test"
ENDMENU
ENDMENU