Bug in TMenu [Fixed]

[Enrico Maria Giordano]

The menuitems of the main menubar are too wide.

EMG

[Enrico Maria Giordano]

This is a sample:

Code: Select all  Expand view  RUN

#include "Fivewin.ch"


FUNCTION MAIN()

    LOCAL oWnd, oMenu

    MENU oMenu 2015
        MENUITEM "Test1"
        MENUITEM "Test2"
        MENUITEM "Test3"
        MENUITEM "Test4"
        MENUITEM "Test5"
    ENDMENU

    DEFINE WINDOW oWnd;
           MENU oMenu

    ACTIVATE WINDOW oWnd

    RETURN NIL

EMG

[Enrico Maria Giordano]

Any quick and dirty workaround, please?

EMG

[Enrico Maria Giordano]

This is what I get:



EMG

[cnavarro]

This not a bug
In menus with styles and not fonts or clause COLORS ( OWNERDRAW items ), you know solution for adjust width of items

Code: Select all  Expand view  RUN

   GetnWidthItem( 0.5 )

 

There are users who like the widest items to make the menus more readable

[Enrico Maria Giordano]

With

Code: Select all  Expand view  RUN

GetnWidthItem( 0.5 )

the dropdowns widths are changed too. How can I change the widths of the menuitems on the menubar withouth affecting the menuitems on the dropdowns?

EMG

[cnavarro]

Enrico, your are right
I answered too fast

[Enrico Maria Giordano]

No problem. Any workaround?

EMG

[cnavarro]

Please, wait

[karinha]

Code: Select all  Expand view  RUN

   GetnWidthItem( 0.8 ) // Funciona

   MENU oMenu
 

Regards, saludos.