Вопро про меню

[Zubik]

Бьюсь над динамическим меню своими силами, получилось его создать, через сабклассинг привязать к пунктам события на щелчок.

Но вот другая проблема, мне нужно при нажатии на пункт меню выделить его галочкой, а при последующем нажатии на этот же пункт - сбросить галку.

Сначало я формирую структуру "info" при обработке сообщения WM_MENUSELECT над каждым пунктом меню (с помощью ф-ции GetMenuItemInfo).
Затем обрабатываю сообщение WM_COMMAND

Создал процедуру, обрабатываемую при WM_COMMAND (при щелче на нужном пункте):

......

if info.fState = MFS_UNCHECKED then
info.fMask = MIIM_STATE
info.fType = MFS_CHECKED
SetMenuItemInfo hMenu, идент. пункта меню (беру из ф-цииWndProc), 0, info
Exit Sub
End If

if info.fState = MFS_CHECKED then
info.fMask = MIIM_STATE
info.fType = MFS_UNCHECKED
SetMenuItemInfo hMenu, идент. пункта меню (беру из ф-цииWndProc), 0, info
End If

........

Получается, что при щелчке галочка на пункте ставится, а при следующем клике - не сбрасывается.

Скорее всего - чтото не правильно, только что? Подскажите плиз.

[keks-n]

Полный код давай, в архиве. Тогда над ним можно будет пошаманить. Я навскидку сказать не могу, а у нашего телепата кончились деньги и в инете он почти не появляется.

[lister]

Советую исследовать следующий пример:

http://bbs.vbstreets.ru/download.php?id=1052

[Zubik]

Ребята, спасибо за советы... но я сегодня утром пришёл на работу.. и понял в чем причина. Всё оказалось банально просто :о)
исправил ошибку и всё получилось:

раньше:
if info.fState = MFS_UNCHECKED then
info.fMask = MIIM_STATE
info.fType = MFS_CHECKED
SetMenuItemInfo hMenu, идент. пункта меню (беру из ф-цииWndProc), 0, info
Exit Sub
End If

if info.fState = MFS_CHECKED then
info.fMask = MIIM_STATE
info.fType = MFS_UNCHECKED
SetMenuItemInfo hMenu, идент. пункта меню (беру из ф-цииWndProc), 0, info
End If

исправлено:
if info.fType = MFS_UNCHECKED then
info.fMask = MIIM_STATE
info.fType = MFS_CHECKED
SetMenuItemInfo hMenu, идент. пункта меню (беру из ф-цииWndProc), 0, info
Exit Sub
End If

if info.fType = MFS_CHECKED then
info.fMask = MIIM_STATE
info.fType = MFS_UNCHECKED
SetMenuItemInfo hMenu, идент. пункта меню (беру из ф-цииWndProc), 0, info
End If

[kuhtiov]

А целеком исходник этой хрени не мог бы выложить?