FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexActive topicsAll discussionsLogin (GitHub)
Board index FiveWin for Harbour/xHarbour Build 16.01 Menu Problem
cnavarro
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: Build 16.01 Menu Problem
Posted: Tue Feb 16, 2016 05:22 PM
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
betoncu
Posts: 130
Joined: Sat Oct 08, 2005 09:38 PM
Re: Build 16.01 Menu Problem
Posted: Tue Feb 16, 2016 05:51 PM

Have you run it on Windows XP?

Birol Betoncu
birol.betoncu@gmail.com
Using Harbour, FWH 19.05, BCC7
cnavarro
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: Build 16.01 Menu Problem
Posted: Tue Feb 16, 2016 05:53 PM

Ok, I'll try in XP

One moment

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
cnavarro
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: Build 16.01 Menu Problem
Posted: Tue Feb 16, 2016 06:20 PM
betoncu wrote:Have you run it on Windows XP?


Yes, you are right

In XP with SET EXACT ON, menus fail
I will seek a solution
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
cnavarro
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: Build 16.01 Menu Problem
Posted: Tue Feb 16, 2016 09:23 PM
The problem is in last change of function cWinVersion
Modify in source\classes\pdmenu.prg line 799

Code (fw): Select all Collapse
聽 聽 聽 聽 聽 聽 聽 聽if Empty( hMFont ) .and. cWinVersion() <> "XP"
聽 聽 聽 聽 聽 聽 聽 聽 聽 lHFont 聽 聽 := .F.
聽 聽 聽 聽 聽 聽 聽 聽 聽 DEFAULT hSysMenuFont := GetFontMenu()
聽 聽 聽 聽 聽 聽 聽 聽 聽 hMFont 聽 := hSysMenuFont
聽 聽 聽 聽 聽 聽 聽 聽 聽 nHItem 聽 := GetFontHeight( hMFont )
聽 聽 聽 聽 聽 聽 聽 聽endif


with

Code (fw): Select all Collapse
聽 聽 聽 聽 聽 聽 聽 聽if Empty( hMFont ) .and. ! "XP" $ cWinVersion() //<> "XP"
聽 聽 聽 聽 聽 聽 聽 聽 聽 lHFont 聽 聽 := .F.
聽 聽 聽 聽 聽 聽 聽 聽 聽 DEFAULT hSysMenuFont := GetFontMenu()
聽 聽 聽 聽 聽 聽 聽 聽 聽 hMFont 聽 := hSysMenuFont
聽 聽 聽 聽 聽 聽 聽 聽 聽 nHItem 聽 := GetFontHeight( hMFont )
聽 聽 聽 聽 聽 聽 聽 聽endif


and try
appreciate your comments
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
betoncu
Posts: 130
Joined: Sat Oct 08, 2005 09:38 PM
Re: Build 16.01 Menu Problem
Posted: Tue Feb 16, 2016 10:53 PM
Yes it works now.
I think it will be better if we use IsWinXP() function.

Since I dont know if you have used cWinVersion()<>"XP" in other prg's of the library
I have comment the line 146 in \fwh\source\function\getsysin.prg as a temp solution.
Code (fw): Select all Collapse
// 聽 cVersion += IF( IsWin64(), " 64 ", " 32 " ) + "Bits"


I hope you can find a better solution in next build.
Many thanks for your help.
Birol Betoncu
birol.betoncu@gmail.com
Using Harbour, FWH 19.05, BCC7
cnavarro
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: Build 16.01 Menu Problem
Posted: Tue Feb 16, 2016 11:06 PM

Ok, thanks
I'll talk to Antonio to see what decision will finally take

Regards

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

Continue the discussion

Static archive 路 New replies & topics via GitHub Discussions