Popup menu on buttonbar shifted down [Fixed]

[Enrico Maria Giordano]

Here it is a sample. The items of the popup menu on the buttonbar are shifted down if compared with the same menu on menubar or on click on the window.

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

[Antonio Linares]

Enrico,

Confirmed. These are side effects of the recent changes on the menus.

We are working to solve it asap

many thanks for your feedback

[cnavarro]

Here it is a sample. The items of the popup menu on the buttonbar are shifted down if compared with the same menu on menubar or on click on the window.

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

Solved
Thanks

[Enrico Maria Giordano]

Any news?

EMG

[Antonio Linares]

Enrico,

I can email you the most recent libs so you can test it now

[Enrico Maria Giordano]

Antonio,

thank you!

EMG

[Antonio Linares]

Already sent!