Build 16.01 Menu Problem

[cnavarro]

Thanks

[betoncu]

Have you run it on Windows XP?

[cnavarro]

Ok, I'll try in XP

One moment

[cnavarro]

Have you run it on Windows XP?

Yes, you are right

In XP with SET EXACT ON, menus fail
I will seek a solution

[cnavarro]

The problem is in last change of function cWinVersion
Modify in source\classes\pdmenu.prg line 799

Code: Select all  Expand view

               if Empty( hMFont ) .and. cWinVersion() <> "XP"
                  lHFont     := .F.
                  DEFAULT hSysMenuFont := GetFontMenu()
                  hMFont   := hSysMenuFont
                  nHItem   := GetFontHeight( hMFont )
               endif
 

with

Code: Select all  Expand view

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

 

and try
appreciate your comments
thanks

[betoncu]

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: Select all  Expand view

//   cVersion += IF( IsWin64(), " 64 ", " 32 " ) + "Bits"

I hope you can find a better solution in next build.
Many thanks for your help.

[cnavarro]

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

Regards