Set Menu Color

[Bruce Peaslee]

I like my windows and dialogs to be just a little darker shade of gray than standard. This causes the menu bar to stand out. Here is a little routine to change the menu color to match (or not) that of the window.

Code Select Expand

'ÂÃ,¯Ã‚Ã,¯Ã‚Ã,¯Ã‚Ã,¯Ã‚Ã,¯Ã‚Ã,¯Ã‚Ã,¯Ã‚Ã,¯Ã‚Ã,¯Ã‚Ã,¯Ã‚Ã,¯Ã‚Ã,¯Ã‚Ã,¯Ã‚Ã,¯Ã‚Ã,¯Ã‚Ã,¯Ã‚Ã,¯Ã‚Ã,¯Ã‚Ã,¯Ã‚Ã,¯Ã‚Ã,¯Ã‚Ã,¯Ã‚Ã,¯Ã‚Ã,¯Ã‚Ã,¯Ã‚Ã,¯Ã‚Ã,¯Ã‚Ã,¯Ã‚Ã,¯Ã‚Ã,¯Ã‚Ã,¯Ã‚Ã,¯Ã‚Ã,¯Ã‚Ã,¯Ã‚Ã,¯Ã‚Ã,¯Ã‚Ã,¯Ã‚Ã,¯Ã‚Ã,¯Ã‚Ã,¯Ã‚Ã,¯Ã‚Ã,¯Ã‚Ã,¯Ã‚Ã,¯Ã‚Ã,¯Ã‚Ã,¯Ã‚Ã,¯Ã‚Ã,¯Ã‚Ã,¯Ã‚Ã,¯Ã‚Ã,¯Ã‚Ã,¯Ã‚Ã,¯Ã‚Ã,¯Ã‚Ã,¯Ã‚Ã,¯Ã‚Ã,¯Ã‚Ã,¯Ã‚Ã,¯Ã‚Ã,¯Ã‚Ã,¯Ã‚Ã,¯Ã‚Ã,¯Ã‚Ã,¯Ã‚Ã,¯Ã‚Ã,¯Ã‚Ã,¯Ã‚Ã,¯Ã‚Ã,¯Ã‚Ã,¯Ã‚Ã,¯Ã‚Ã,¯Ã‚Ã,¯Ã‚Ã,¯Ã‚Ã,¯Ã‚Ã,¯Ã‚Ã,¯Ã‚Ã,¯Ã‚Ã,¯Ã‚Ã,¯Ã‚Ã,¯Ã‚Ã,¯Ã‚Ã,¯Ã‚Ã,¯Ã‚Ã,¯Ã‚Ã,¯Ã‚Ã,¯Ã‚Ã,¯Ã‚Ã,¯Ã‚Ã,¯Ã‚Ã,¯Ã‚Ã,¯Ã‚Ã,¯Ã‚Ã,¯Ã‚Ã,¯Ã‚Ã,¯Ã‚Ã,¯Ã‚Ã,¯Ã‚Ã,¯Ã‚Ã,¯Ã‚Ã,¯Ã‚Ã,¯Ã‚Ã,¯Ã‚Ã,¯Ã‚Ã,¯Ã‚Ã,¯Ã‚Ã,¯Ã‚Ã,¯Ã‚Ã,¯Ã‚Ã,¯Ã‚Ã,¯Ã‚Ã,¯Ã‚Ã,¯
Sub SetMenuColor(int hWnd, int dwColor, int bIncludeSubmenus)
'_________________________________________________________________________________________________________________



MENUINFO mi
int flags

flags  = MIM_BACKGROUND

if bIncludeSubmenus
flags = flags | MIM_APPLYTOSUBMENUS
endif

mi.cbSize = len(mi)
mi.fmask = flags
mi.hbrBack = CreateSolidBrush(dwColor)

SetMenuInfo(GetMenu(hWnd), mi)

DrawMenuBar(hWnd)

EndSub

'Usage

SetMenuColor(wMain, RGB(175,175,175), true)



[Guilect]

Thanks for sharing.
This goes into the snippets bucket until such time it gets used.   

[jerryclement]

Thanks for sharing.
This goes into the snippets bucket until such time it gets used.   

Thanks Peaslee,
Jerry C