FreeMenu()

Синтаксис

FreeMenu(#Menu)

Описание

Удаляет указанное Меню и освобождает всю связанную с ним память. Это Меню нельзя более использовать (его Номер с другими функциями в этой библиотеке), если только вы не создадите его снова.

Параметры

#Menu

Номер, идентифицирующий Меню, которое требуется удалить. Если в качестве этого параметра используется значение #PB_All, то все оставшиеся Меню удаляются.

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

Ничего.

Комментарии

После завершения программы все оставшиеся Меню удаляются автоматически.

Пример (Фран)

If OpenWindow(0, 200, 200, 300, 100, "Пример FreeMenu")
    ButtonGadget(0, 50, 10, 190, 30, "Удалить Меню")

    If CreateMenu(0, WindowID(0))
        MenuTitle("Проект")
        MenuItem(1, "Открыть")
    EndIf

    Repeat
        Event = WaitWindowEvent()
        If Event = #PB_Event_Gadget
            Select EventGadget()
                Case 0
                    If IsMenu(0) ; Существует ли Меню №0 ?
                        FreeMenu(0) ; Если да, то мы удаляем Меню
                    EndIf
            EndSelect
        EndIf
    Until Event = #PB_Event_CloseWindow
EndIf

См. также

CreateMenu(), CreateImageMenu(), CreatePopupMenu(), CreatePopupImageMenu()

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

Все