FreeMenu()

Syntaxe

FreeMenu(#Menu)
Description
Supprime un menu et libère toutes ses ressources.

Arguments

#Menu Le menu à supprimer.

Si #PB_All est spécifié, tous les autres menus sont libérés.

Valeur de retour

Aucune.

Remarques

Tous les menus restants sont automatiquement supprimés quand le programme se termine.

Exemple

   If OpenWindow(0, 200, 200, 300, 100, "Exemple FreeMenu")
    ButtonGadget(0,50,10,190,30,"Supprime le Menu")

    If CreateMenu(0, WindowID(0))
      MenuTitle("Projet")
      MenuItem(1, "Ouvrir")     
    EndIf
    
    Repeat
      Event = WaitWindowEvent()          
      If Event = #PB_Event_Gadget  
        Select EventGadget()
          Case 0 
            If IsMenu(0)  ; Le menu existe-t-il ?
              FreeMenu(0) ; Si oui alors on le supprime
            EndIf           
        EndSelect
      EndIf
    Until Event = #PB_Event_CloseWindow
  EndIf

Voir aussi

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

OS Supportés

Tous

<- DisplayPopupMenu() - Menu Index - GetMenuItemState() ->