Page 1 of 4

TMenuItem height [Fixed]

PostPosted: Fri May 05, 2017 9:43 pm
by Enrico Maria Giordano
TMenuItem height keeps changing at any FWH release... :-(

EMG

Re: TMenuItem height

PostPosted: Fri May 05, 2017 10:52 pm
by cnavarro
It is possible that I modified something in the last version
Can you put a picture?
Thank you

Re: TMenuItem height

PostPosted: Sat May 06, 2017 9:02 am
by Enrico Maria Giordano
Cristobal,

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

EMG

Re: TMenuItem height

PostPosted: Sat May 06, 2017 11:43 am
by cnavarro
Enrico
Sorry, my eyesight is not very good
Is it higher now?

Re: TMenuItem height

PostPosted: Sat May 06, 2017 12:28 pm
by Enrico Maria Giordano
No, it's smaller.

EMG

Re: TMenuItem height

PostPosted: Sat May 06, 2017 1:59 pm
by Enrico Maria Giordano
Cristobal,

do you have a quick and dirty workaround to share?

EMG

Re: TMenuItem height

PostPosted: Sat May 06, 2017 5:09 pm
by cnavarro
One moment, please
I'm checking the code to see what difference there is

Re: TMenuItem height

PostPosted: Sat May 06, 2017 5:10 pm
by Enrico Maria Giordano
Muchas gracias! :-)

EMG

Re: TMenuItem height

PostPosted: Sat May 06, 2017 5:11 pm
by cnavarro
To you
Enrico
Only into MENUS POPUPS ?

Re: TMenuItem height

PostPosted: Sat May 06, 2017 5:15 pm
by Enrico Maria Giordano
No, normal window menu also.

EMG

Re: TMenuItem height

PostPosted: Sat May 06, 2017 5:17 pm
by cnavarro
Ok, thanks

Re: TMenuItem height

PostPosted: Sat May 06, 2017 8:15 pm
by cnavarro
Enrico, at line 955 into PDMENU.PRG
Code: Select all  Expand view

         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

         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

Re: TMenuItem height

PostPosted: Sat May 06, 2017 8:28 pm
by Enrico Maria Giordano
Sorry, no change.

EMG

Re: TMenuItem height

PostPosted: Sat May 06, 2017 9:06 pm
by 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 ) ) ) )

Re: TMenuItem height

PostPosted: Sun May 07, 2017 10:14 am
by Enrico Maria Giordano
Compared with desktop right click menu, 4 is a little shorter and 5 is a little longer. :-(

EMG