FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index Bugs report & fixes / Informe de errores y arreglos TMenuItem height [Fixed]
Posts: 9020
Joined: Thu Oct 06, 2005 08:17 PM
TMenuItem height [Fixed]
Posted: Fri May 05, 2017 09:43 PM

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

EMG

Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: TMenuItem height
Posted: 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

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noci贸n del tiempo

El secreto de la felicidad no est谩 en hacer lo que te gusta, sino en que te guste lo que haces
Posts: 9020
Joined: Thu Oct 06, 2005 08:17 PM
Re: TMenuItem height
Posted: Sat May 06, 2017 09:02 AM

Cristobal,

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

EMG

Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: TMenuItem height
Posted: Sat May 06, 2017 11:43 AM

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

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noci贸n del tiempo

El secreto de la felicidad no est谩 en hacer lo que te gusta, sino en que te guste lo que haces
Posts: 9020
Joined: Thu Oct 06, 2005 08:17 PM
Re: TMenuItem height
Posted: Sat May 06, 2017 12:28 PM

No, it's smaller.

EMG

Posts: 9020
Joined: Thu Oct 06, 2005 08:17 PM
Re: TMenuItem height
Posted: Sat May 06, 2017 01:59 PM

Cristobal,

do you have a quick and dirty workaround to share?

EMG

Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: TMenuItem height
Posted: Sat May 06, 2017 05:09 PM

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

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noci贸n del tiempo

El secreto de la felicidad no est谩 en hacer lo que te gusta, sino en que te guste lo que haces
Posts: 9020
Joined: Thu Oct 06, 2005 08:17 PM
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: TMenuItem height
Posted: Sat May 06, 2017 05:11 PM

To you
Enrico
Only into MENUS POPUPS ?

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noci贸n del tiempo

El secreto de la felicidad no est谩 en hacer lo que te gusta, sino en que te guste lo que haces
Posts: 9020
Joined: Thu Oct 06, 2005 08:17 PM
Re: TMenuItem height
Posted: Sat May 06, 2017 05:15 PM

No, normal window menu also.

EMG

Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: TMenuItem height
Posted: Sat May 06, 2017 05:17 PM

Ok, thanks

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noci贸n del tiempo

El secreto de la felicidad no est谩 en hacer lo que te gusta, sino en que te guste lo que haces
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: TMenuItem height
Posted: Sat May 06, 2017 08:15 PM
Enrico, at line 955 into PDMENU.PRG
Code (fw): Select all Collapse
         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 (fw): Select all Collapse
         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
Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noci贸n del tiempo

El secreto de la felicidad no est谩 en hacer lo que te gusta, sino en que te guste lo que haces
Posts: 9020
Joined: Thu Oct 06, 2005 08:17 PM
Re: TMenuItem height
Posted: Sat May 06, 2017 08:28 PM

Sorry, no change.

EMG

Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: TMenuItem height
Posted: Sat May 06, 2017 09: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 ) ) ) )
Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noci贸n del tiempo

El secreto de la felicidad no est谩 en hacer lo que te gusta, sino en que te guste lo que haces
Posts: 9020
Joined: Thu Oct 06, 2005 08:17 PM
Re: TMenuItem height
Posted: 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