Caption / Menu Separation

Using Windows 10 in my formatted windows there is no separation between the caption and the following menu part. For both the background is white. %bg influences only the part below the menu. I would like to have a separation line between caption and menu or light grey background for the menu. How to get this?

If this is for your own use only then you can set the theme of your desktop by right clicking and selecting Personalize. Then click on Theme in the left hand panel and select a different theme.

If this is for your users then the problem becomes much more difficult and I would have to think about that.

I would like to change it for my customers. To move any formatted window on the screen, you have to pick into the caption area. Picking into the menu area has no effect. But one cannot see the difference.

As I understand it, the position of the menu bar relative to the caption and the background colours of the caption and menu bar are dictated by the desktop 'theme'.

The end user can change the theme (which is a Microsoft attribute of the desktop). They can select one of the given Microsoft themes or they can provide their own customised theme. There are also lots of apps available on the internet that allow you to customise your own theme.

As far as I know ClearWin+ can do nothing to help.

Of course, I know this. However, many customers are using the default where caption and menu bar have just white background.
Other development systems allow to make light grey background for the menu line.

I have just remembered that %em might do the trick.

Search for 'enhanced menus' in ftn95.chm.

You could try %em[theme1] or %em[theme2].

I found 'new enhanced menus' and tried all possibilities without any effect.

    iFontHandle = 0
    CALL SelectFont ()     ! Select font
    MA  = WINIO@ ('%fh&', iFontHandle) 

    MA = WINIO@ ('%ca@&', CA_STRING)
    MA = WINIO@ ('%mi[app_icon]&')
    
    MA = WINIO@ ('%nc[BG_MANAGER]&')
    MA = WINIO@ ('%rm&', CB_GETXT)
    MA = WINIO@ ('%bg&', RGB@(135,215,230))
        
    MA = WINIO@ ('%sp&', iCurrWinPosX, iCurrWinPosY)
    MA = WINIO@ ('%hw&', iWindowHandle)
    MA = WINIO@ ('%cc&', CB_EXIT)
    MA = WINIO@ ('%ew&', CB_EXIT)
    MA = WINIO@ ('%dl&', 2.0D0, CB_UPDCWW)

    MA = WINIO@ (%em .....

    MA = WINIO@ ('%mn[&File[]]&')
    MA = WINIO@ ('%?mn[[~Select &Project]]@&',  iAV_SeleDir,   CB_SELECT, 'Select BINGO project directory')
    MA = WINIO@ ('%?mn[[~Project &File]]@&',    iAV_SetProFil, CB_OPTI,   'Set BINGO Project File name')
    MA = WINIO@ ('%?mn[[&Access]]@&',                          CB_ACCESS, 'Remove ''ReadOnly'' status from all files in directory')

Can you post the coding for %em so that I can check this for you.

    MA = WINIO@ ('%em[w7]&')
    MA = WINIO@ ('%em[w8]&')
    MA = WINIO@ ('%em[theme1]&')
    MA = WINIO@ ('%em[theme2]&')
    MA = WINIO@ ('%em[background=#303030]&')

I have huge sympathies for Erwin’s problem, because on moving to Windows 10 I noticed this issue, which was compounded by the version of CorelDRAW I was then using drawing not only the caption but also the menu bar labels in white! (White on white not being all that readable). The only solution I could find at the time was to spend £100s upgrading, with the end result that CorelDRAW decided that my old files should become unreadable as they were in formats no longer supported.

My own reading of such commentaries that are on the web is that this is a rather intractable problem, and certainly not the ‘fault’ of Silverfrost, FTN95 or ClearWin+, but something embedded in Windows.

Eddie

Yes I can see that these options do not help.

I have added this to my list for investigation to see if the menu bar colour can be configured.

According to the Microsoft documentation this should be possible via a call to the Windows API function SetMenuInfo but I can't get it to work.

Thanks John,

But the money has already been spent. Anyway, it's a workaround. Most apps don't suffer from the problem, so the truth is out there.

Eddie