SetStateMenu

SetStateMenu

SetStateMenu(Hmenu, item, state)

Позволяет устанавливать различные состояния пунктов меню

Hmenu - Хендл меню

item - Пункт меню

state - Статус меню, может быть:

0 - меню активно, флажок не установлен

1 - пункт меню недоступен, отображается серым цветом

2 - пункт меню недоступен

3 - Установить флажок

Пример:

#Include "window9.bi"

Dim As HMENU hMessages,MenName,MenName1,MenName2

OpenWindow("",10,10,400,400)
hMessages=Create_Menu()
MenName=MenuTitle(hMessages,"Файл")
MenName1=MenuTitle(hMessages,"Помощь")
MenuItem(1001,MenName,"1 меню")
MenuItem(1002,MenName,"2 меню")
ButtonGadget(1,10,50,150,30,"установить флажок")

Do
 Var event=WaitEvent
 If event=EventGadget then
  Select case EventNumber
   Case 1
         SetStateMenu(hMessages,1001,3)
  End Select
 EndIf
 If event=EventClose Then End
Loop

http://mneniya.ucoz.ru/

Created with the Personal Edition of HelpNDoc: Produce electronic books easily