Delete_Menu

Синтаксис

sub Delete_Menu(ByVal menu As HMENU)

Описание

Удаляет меню и освобождает все ресурсы с ним связанные

Параметры

menu - хендл меню

Платформы

Windows , Linux

Пример

#Include "window9.bi"
Dim As HMENU menu,MenName,MenName1,MenName2
Dim As Long event, y
OpenWindow("",10,10,400,400)
menu=Create_Menu()
MenName=MenuTitle(menu,"Файл")
MenName1=MenuTitle(menu,"Помощь")
MenuItem(1001,MenName,"1 меню")
#Ifdef __FB_WIN32__
#Else
Function getMenu_height_Size() As Long
  dim as any ptr pMenu = g_object_get_data(cast(any ptr, pGlobalTypeWindow9->CurentHwnd) , "main_menu")
  if pMenu Then
     for i as integer = 0 to 1000 ' wait set setting x-server
        sendnullevent
        WindowEvent
     Next
     dim as GdkRectangle rect
     gtk_widget_get_allocation(pMenu , @rect)
     return rect.height
  EndIf
End Function
y = getMenu_height_Size()
#EndIf
ButtonGadget(1,10,10+y,100,30,"удалить меню")
Do
  event=WaitEvent
  If event=EventGadget then
     Select case EventNumber
        Case 1
           Delete_Menu(menu)
     End Select
  EndIf
  If event=EventClose Then End
Loop

Created with the Personal Edition of HelpNDoc: Free help authoring environment