TMenuItem height [Fixed]

[Enrico Maria Giordano]

TMenuItem height keeps changing at any FWH release...

EMG

[cnavarro]

It is possible that I modified something in the last version
Can you put a picture?
Thank you

[Enrico Maria Giordano]

Cristobal,

just build a popup menu and compare it with the previous FWH release.

EMG

[cnavarro]

Enrico
Sorry, my eyesight is not very good
Is it higher now?

[Enrico Maria Giordano]

No, it's smaller.

EMG

[Enrico Maria Giordano]

Cristobal,

do you have a quick and dirty workaround to share?

EMG

[cnavarro]

One moment, please
I'm checking the code to see what difference there is

[Enrico Maria Giordano]

Muchas gracias!

EMG

[cnavarro]

To you
Enrico
Only into MENUS POPUPS ?

[Enrico Maria Giordano]

No, normal window menu also.

EMG

[cnavarro]

Ok, thanks

[cnavarro]

Enrico, at line 955 into PDMENU.PRG

Code: Select all  Expand view  RUN

         ChgMenuMea( pMitStruct, Round( nWText * nFw, 0 ), ;
               if( oItem:lSeparator, Int( nHItem * GetnHeightItem() ),;
                Max( Int( nHItem * GetnHeightItem() * if( !lHFont, 1.5, 1 ) ), GetSysMetrics( 15 ) ) ) )
 

With

Code: Select all  Expand view  RUN

         ChgMenuMea( pMitStruct, Round( nWText * nFw, 0 ), ;
               if( oItem:lSeparator, Int( nHItem * GetnHeightItem() ),;
                Max( Round( nHItem * GetnHeightItem() * if( !lHFont, 1.5, 1 ), 0 ), GetSysMetrics( 15 ) ) ) )

 

and try

[Enrico Maria Giordano]

Sorry, no change.

EMG

[cnavarro]

Enrico, please
Test add +1, +2, etc in this line
I can not prove the height difference with the previous version

ChgMenuMea( pMitStruct, Round( nWText * nFw, 0 ), ;
if( oItem:lSeparator, Int( nHItem * GetnHeightItem() ),;
Max( Round( nHItem * GetnHeightItem() * if( !lHFont, 1.5, 1 ), 0 ) + 1, GetSysMetrics( 15 ) ) ) )

[Enrico Maria Giordano]

Compared with desktop right click menu, 4 is a little shorter and 5 is a little longer.

EMG