FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin for Harbour/xHarbour Windows 10 style menus
James Bott
Posts: 4840
Joined: Fri Nov 18, 2005 04:52 PM
Windows 10 style menus
Posted: Tue Mar 15, 2016 04:18 PM
I am trying to implement Windows 10 style menus. They are black text on a white background. I am using this code to force the correct colors:

Code (fw): Select all Collapse
 聽 聽MENU oMenu COLORMENU CLR_WHITE,CLR_BLACK


However there is an apparent bug in that the background is only applied to the area around the text, not the entire background. Below is a screenshot. The foreground image is my test program and the background image is the Windows 10 File Explorer.



I also note that the font in my test is about one point larger than the default font being used by Windows 10 (most noticeable in the letter H in "Home"). Not a big issue as the font can be defined, but it would seem the menu font should be defaulting to the same one that Windows is using. Maybe this is not easy?

I am using FW 15.5, perhaps this has been fixed in a newer version?

James
FWH 18.05/xHarbour 1.2.3/BCC7/Windows 10
cnavarro
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: Windows 10 style menus
Posted: Tue Mar 15, 2016 04:29 PM
James Bott wrote:I am trying to implement Windows 10 style menus. They are black text on a white background. I am using this code to force the correct colors:

Code (fw): Select all Collapse
 聽 聽MENU oMenu COLORMENU CLR_WHITE,CLR_BLACK


However there is an apparent bug in that the background is only applied to the area around the text, not the entire background. Below is a screenshot. The foreground image is my test program and the background image is the Windows 10 File Explorer.



I also note that the font in my test is about one point larger than the default font being used by Windows 10 (most noticeable in the letter H in "Home"). Not a big issue as the font can be defined, but it would seem the menu font should be defaulting to the same one that Windows is using. Maybe this is not easy?

I am using FW 15.5, perhaps this has been fixed in a newer version?

James


James, in later versions is fixed
I will see how you can fix your version
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
James Bott
Posts: 4840
Joined: Fri Nov 18, 2005 04:52 PM
Re: Windows 10 style menus
Posted: Tue Mar 15, 2016 04:34 PM
Cristobal,

James, in later versions is fixed


Thanks. Is the font also fixed? I find that the font is defaulting to 12 pts and it should be 11 pts.

I will upgrade to the latest version.

James
FWH 18.05/xHarbour 1.2.3/BCC7/Windows 10
James Bott
Posts: 4840
Joined: Fri Nov 18, 2005 04:52 PM
Re: Windows 10 style menus
Posted: Tue Mar 15, 2016 06:58 PM

It just occurred to me that the Win 10 File Explorer doesn't use menus anymore, they are folder tabs (I think) that call up the ribbonbar.

However, I looked at Win 10's Notepad which does have menus, and they are the same font and size as File Explorer. So, although File Explorer wasn't the best choice for a model, it worked out OK.

FWH 18.05/xHarbour 1.2.3/BCC7/Windows 10
James Bott
Posts: 4840
Joined: Fri Nov 18, 2005 04:52 PM
Re: Windows 10 style menus
Posted: Tue Mar 15, 2016 10:15 PM
Ok, I upgraded to FW 16.2 and everything looks great! The menu default font is now Windows 10 standard. The menu color still has to be specified, but at least it affects the entire menu line.

The top app in the image below is Windows' Notepad and the bottom one is my test program.

I like the new Win 10 look.

Thank you Cristobal for pointing out that the new version was fixed, and thank you Antionio for making those changes.

FWH 18.05/xHarbour 1.2.3/BCC7/Windows 10
James Bott
Posts: 4840
Joined: Fri Nov 18, 2005 04:52 PM
Re: Windows 10 style menus
Posted: Tue Mar 15, 2016 11:04 PM
I found a little bug in menus in version FWH 16.02.

If you open a FW program, then move the cursor over a menu item, it is not highlighted. In Windows 10 Notepad it is. If you move across the top level menu items, none are highlighted. In Windows 10 each is highlighted when the cursor is over them.

It the FW menu, if you click on a (top-level) menu item so the dropdown menu appears, then the top level menu item is highlighted. And if you then move to another top-level menu item it is highlighted. i.e. it acts as the standard Win 10 menu only after one menu item has been clicked.

Here is a little test program. To test, move the cursor over any of the top level menu items and there will be no highlighting. Then click on File (File will be highlighted). Then move the cursor across the other menu items and they each will be highlighted.

To test a standard Windows program try the same things with Notepad.

Code (fw): Select all Collapse
#include "Fivewin.ch"
#include "Colors.ch"


FUNCTION MAIN()

聽 聽 LOCAL oWnd, oMenu
聽 聽 
聽 聽 MENU oMenu COLORMENU CLR_WHITE,CLR_BLACK
聽 聽 聽
聽 聽 聽 聽 MENUITEM "File"

聽 聽 聽 聽 MENU
聽 聽 聽 聽 聽 聽 MENUITEM "Exit" action oWnd:end()
聽 聽 聽 聽 ENDMENU
聽 聽 聽 聽 
聽 聽 聽 聽 MENUITEM "Edit"
聽 聽 聽 聽 MENUITEM "Format"
聽 聽 聽 聽 MENUITEM "View"
聽 聽 聽 聽 MENUITEM "Help"
聽 聽 ENDMENU

聽 聽 DEFINE WINDOW oWnd;
聽 聽 聽 聽 聽 聽MENU oMenu TITLE "Untitled - Fivewin"

聽 聽 ACTIVATE WINDOW oWnd
聽 聽 
RETURN NIL
FWH 18.05/xHarbour 1.2.3/BCC7/Windows 10
cnavarro
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: Windows 10 style menus
Posted: Wed Mar 16, 2016 01:47 AM

Yes, is one old problem of menus
I take time researching how to fix it

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
dtussman
Posts: 102
Joined: Sat Jun 06, 2015 06:57 PM
Re: Windows 10 style menus
Posted: Wed Mar 16, 2016 05:23 PM

James, I notice the same exact thing.

James Bott
Posts: 4840
Joined: Fri Nov 18, 2005 04:52 PM
Re: Windows 10 style menus
Posted: Wed Mar 16, 2016 09:36 PM

Cristobal,

I looked at the TMenu.prg and there is one significant thing I noticed. This class used to inherit from TControl, but that was commented out so now it doesn't inherit from any other class. Of course, this means that it doesn't have access to all the methods and data in TWindow and TControl. So we have no access to onMouseOver, or bMouseOver with which to change the colors.

Antonio, do you have any ideas how to fix the color on mouse-over?

James

FWH 18.05/xHarbour 1.2.3/BCC7/Windows 10
cnavarro
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: Windows 10 style menus
Posted: Wed Mar 16, 2016 10:05 PM
James ( excuse my poor english )

No, TMenu in previous versions, does not inherit from TControl
He has never inherited from TControl
When I started to develop new menus, my first idea was to have inherited from TControl to use all datas and methods, but Mr Rao said that gave me problems with xHarbour and that the class TMenu was not control
So not inherit from TControl (although I'm still doing tests when my time permits me)
In this case the onmouse ( MouseMove, etc ), should be replaced by
lAnd(GETDRAWISR (pItemStruct) [5], ODS_HOTLIGHT)
But it is not easy, but I keep doing tests
Thank you for your comments and your help
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
James Bott
Posts: 4840
Joined: Fri Nov 18, 2005 04:52 PM
Re: Windows 10 style menus
Posted: Wed Mar 16, 2016 11:37 PM

Christobal,

Well that explains a lot--I didn't know that you had developed the menu class.

I took a look at it and I have no idea how it works. I'm sure you spent many hours developing this. It would be very nice if it did look exactly like the standard windows app's menus when the top bar item's were moused over.

If I can be of any help in this task, please let me know.

Regards,
James

FWH 18.05/xHarbour 1.2.3/BCC7/Windows 10
cnavarro
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: Windows 10 style menus
Posted: Thu Mar 17, 2016 12:03 AM

James,
It was a very hard task to get the new menus are stable
The painted items when the mouse is over, I tried to fix it for some time, but we must be very careful to avoid damaging the current functioning
My goal is to fix
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
cnavarro
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: Windows 10 style menus
Posted: Thu Mar 17, 2016 01:59 PM
James Bott wrote:Christobal,

If I can be of any help in this task, please let me know.

Regards,
James


James, you use Fwh 16.02 version ?
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
James Bott
Posts: 4840
Joined: Fri Nov 18, 2005 04:52 PM
Re: Windows 10 style menus
Posted: Thu Mar 17, 2016 02:25 PM
Cristobal,

James, you use Fwh 16.02 version ?


Yes.

James
FWH 18.05/xHarbour 1.2.3/BCC7/Windows 10
cnavarro
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: Windows 10 style menus
Posted: Thu Mar 17, 2016 02:46 PM

Please, send me your mail

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

Continue the discussion

Static archive 路 New replies & topics via GitHub Discussions