цвет меню

[Алексей.Ф.]

Как изменить цвет линейки меню, чтобы он совпадал с фоновым цветом формы?

[alibek]

SetSystemColor

[tyomitch]

Нет - тогда у всех меню в системе цвет изменится.
Надо просто задать нужный hbrBack вызовом SetMenuInfo.

[Алексей.Ф.]

Надо просто задать нужный hbrBack вызовом SetMenuInfo.

Если не трудно, пример, как его задать?

[tyomitch]

Код: Выделить всё

Option Explicit
Private Declare Function DrawMenuBar Lib "user32.dll" (ByVal hwnd As Long) As Long
Private Declare Function GetMenu Lib "user32.dll" (ByVal hwnd As Long) As Long
Private Declare Function SetMenuInfo Lib "user32.dll" (ByVal hmenu As Long, ByRef MENUINFO As MENUINFO) As Long
Private Declare Function CreateSolidBrush Lib "gdi32.dll" (ByVal crColor As Long) As Long
Private Type MENUINFO
   cbSize As Long
   fMask As Long
   dwStyle As Long
   cyMax As Long
   hbrBack As Long
   dwContextHelpID As Long
   dwMenuData As Long
End Type
Private Const MIM_BACKGROUND = &H2

Private Sub Form_DblClick()
Dim mi As MENUINFO
mi.cbSize = Len(mi)
mi.fMask = MIM_BACKGROUND
mi.hbrBack = CreateSolidBrush(vbRed)
SetMenuInfo GetMenu(hwnd), mi
DrawMenuBar hwnd
End Sub


[alibek]

tyomitch, разве?
У меня сейчас нет MSDN, а по диалапу тормозит сильно, но насколько я помню (правда смутно), изменения назначаются только текущему окну.

[Amed]

Да, так и есть. Измененяется цвет только текущего меню текущего окна.

А разве надо было не это?

[tyomitch]

The SetSysColors function sends a WM_SYSCOLORCHANGE message to all windows to inform them of the change in color. It also directs the system to repaint the affected portions of all currently visible windows.

The SetSysColors function changes the current session only. The new colors are not saved when the system terminates.

Да, и что такое - "текущее окно"? Она же не принимает hWnd?

[tyomitch]

2Amed: alibek говорит про SetSysColors.

[Amed]

А, действительно, про SetSysColors.
Попробовал, действительно изменилась вся схема цветов Windows. А что ещё можно было ожидать? Действительно, нет же указателя на конкретное окно...

[Алексей.Ф.]

Попробовал. Выдает ошибку: User-defined type not defined.

[A.A.Z.]

Все работает Попробуй скопировать еще раз

[Алексей.Ф.]

Спасибо, работает. Я там в одном месте сам протормозил.