HideMenu()

Синтаксис

HideMenu(#Menu , State)

Описание

Скрывает или показывает указанное Меню.

Параметры

#Menu	Номер, идентифицирующий Меню, которое требуется скрыть или показать.
State	Этот параметр может быть одним из следующих значений: #True : Меню скрыто. #False: Меню отображается.

Возвращаемое значение

Ничего.

Пример (Фран): Скрытие Меню

If OpenWindow(0, 200, 200, 300, 100, "Пример HideMenu")
    ButtonGadget(10, 70, 10, 150, 30, "Скрыть Меню")
    If CreateMenu(0, WindowID(0))
        MenuTitle("Проект")
        MenuItem(1, "Новый")
        MenuItem(2, "Открыть")
    EndIf

    Repeat
        Event = WaitWindowEvent()
        If Event = #PB_Event_Gadget
            Select EventGadget()
                Case 10
                    HideMenu(0, #True) ; Скрытие Меню
            EndSelect

        EndIf
    Until Event = #PB_Event_CloseWindow
EndIf

Пример (Фран): Отображение Меню

If OpenWindow(0, 200, 200, 300, 100, "Пример HideMenu")
  ButtonGadget(0,70,10,150,30,"Отобразить Меню")
  If CreateMenu(0, WindowID(0))
    MenuTitle("Проект")
    MenuItem(1, "Новый")
    MenuItem(2, "Открыть") 
  EndIf
  
  HideMenu(0,#True) ; Скрытие Меню
  
  Repeat
    Event = WaitWindowEvent()          
    If Event = #PB_Event_Gadget  
      Select EventGadget()
        Case 0 
        HideMenu(0,#False) ; Отображение Меню  
      EndSelect
      
    EndIf
  Until Event = #PB_Event_CloseWindow
EndIf

Пример (Фран): Замена Меню

If OpenWindow(0, 200, 200, 300, 100, "Пример HideMenu")
    ButtonGadget(0, 70, 10, 150, 30, "Заменить Меню")
    If CreateMenu(0, WindowID(0))
        MenuTitle("Проект")
        MenuItem(1, "Новый")
        MenuItem(2, "Открыть")
    EndIf
    If CreateMenu(1, WindowID(0))
        MenuTitle("Меню")
        MenuItem(1, "Сохранить")
        MenuItem(2, "Выйти")
    EndIf

    HideMenu(0, #False) ; Отображение Меню "Проект"
    Repeat
        Event = WaitWindowEvent()
        If Event = #PB_Event_Gadget
            Select EventGadget()
                Case 0
                    HideMenu(1, #False) ; Отображение Меню "Меню"
            EndSelect

        EndIf
    Until Event = #PB_Event_CloseWindow
EndIf

См. также

CreateMenu(), CreateImageMenu()

Поддерживаемые OS

Все