TMenuItem height [Fixed]

TMenuItem height [Fixed]

Postby Enrico Maria Giordano » Fri May 05, 2017 9:43 pm

TMenuItem height keeps changing at any FWH release... :-(

EMG
User avatar
Enrico Maria Giordano
 
Posts: 6655
Joined: Thu Oct 06, 2005 8:17 pm
Location: Roma - Italia

Re: TMenuItem height

Postby cnavarro » Fri May 05, 2017 10:52 pm

It is possible that I modified something in the last version
Can you put a picture?
Thank you
Muchas gracias. Many thanks.
Saludos,Regards

Cristobal Navarro - Harbour (r1601050904) - xHarbour (Build 20150603) - VS 2015/17 - FWH 17.12

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
User avatar
cnavarro
 
Posts: 3883
Joined: Wed Feb 15, 2012 8:25 pm
Location: España

Re: TMenuItem height

Postby Enrico Maria Giordano » Sat May 06, 2017 9:02 am

Cristobal,

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

EMG
User avatar
Enrico Maria Giordano
 
Posts: 6655
Joined: Thu Oct 06, 2005 8:17 pm
Location: Roma - Italia

Re: TMenuItem height

Postby cnavarro » Sat May 06, 2017 11:43 am

Enrico
Sorry, my eyesight is not very good
Is it higher now?
Muchas gracias. Many thanks.
Saludos,Regards

Cristobal Navarro - Harbour (r1601050904) - xHarbour (Build 20150603) - VS 2015/17 - FWH 17.12

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
User avatar
cnavarro
 
Posts: 3883
Joined: Wed Feb 15, 2012 8:25 pm
Location: España


Re: TMenuItem height

Postby Enrico Maria Giordano » Sat May 06, 2017 1:59 pm

Cristobal,

do you have a quick and dirty workaround to share?

EMG
User avatar
Enrico Maria Giordano
 
Posts: 6655
Joined: Thu Oct 06, 2005 8:17 pm
Location: Roma - Italia

Re: TMenuItem height

Postby cnavarro » Sat May 06, 2017 5:09 pm

One moment, please
I'm checking the code to see what difference there is
Muchas gracias. Many thanks.
Saludos,Regards

Cristobal Navarro - Harbour (r1601050904) - xHarbour (Build 20150603) - VS 2015/17 - FWH 17.12

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
User avatar
cnavarro
 
Posts: 3883
Joined: Wed Feb 15, 2012 8:25 pm
Location: España


Re: TMenuItem height

Postby cnavarro » Sat May 06, 2017 5:11 pm

To you
Enrico
Only into MENUS POPUPS ?
Muchas gracias. Many thanks.
Saludos,Regards

Cristobal Navarro - Harbour (r1601050904) - xHarbour (Build 20150603) - VS 2015/17 - FWH 17.12

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
User avatar
cnavarro
 
Posts: 3883
Joined: Wed Feb 15, 2012 8:25 pm
Location: España


Re: TMenuItem height

Postby cnavarro » Sat May 06, 2017 5:17 pm

Ok, thanks
Muchas gracias. Many thanks.
Saludos,Regards

Cristobal Navarro - Harbour (r1601050904) - xHarbour (Build 20150603) - VS 2015/17 - FWH 17.12

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
User avatar
cnavarro
 
Posts: 3883
Joined: Wed Feb 15, 2012 8:25 pm
Location: España

Re: TMenuItem height

Postby cnavarro » Sat May 06, 2017 8:15 pm

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
Muchas gracias. Many thanks.
Saludos,Regards

Cristobal Navarro - Harbour (r1601050904) - xHarbour (Build 20150603) - VS 2015/17 - FWH 17.12

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
User avatar
cnavarro
 
Posts: 3883
Joined: Wed Feb 15, 2012 8:25 pm
Location: España


Re: TMenuItem height

Postby cnavarro » Sat May 06, 2017 9:06 pm

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 ) ) ) )
Muchas gracias. Many thanks.
Saludos,Regards

Cristobal Navarro - Harbour (r1601050904) - xHarbour (Build 20150603) - VS 2015/17 - FWH 17.12

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
User avatar
cnavarro
 
Posts: 3883
Joined: Wed Feb 15, 2012 8:25 pm
Location: España

Re: TMenuItem height

Postby Enrico Maria Giordano » Sun May 07, 2017 10:14 am

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

EMG
User avatar
Enrico Maria Giordano
 
Posts: 6655
Joined: Thu Oct 06, 2005 8:17 pm
Location: Roma - Italia

Next

Return to Bugs report & fixes / Informe de errores y arreglos

Who is online

Users browsing this forum: No registered users and 1 guest