XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Menüs: Das Hauptmenü eines Fenster ein-/ausblenden
PRFellow-Vorlage
Autor: Thomas Hölzer
Das Hauptmenü eines Fenster ein-/ausblenden
Def GetMenu(1) !USER32,GetMenu
Def SetMenu(2) !USER32,SetMenu
Def DestroyMenu(1)!USER32,DestroyMenu
Mit DestroyMenu(hMenu&) kann ein Menü auch zerstört werden
Mit SetMenu(0) wird es lediglich vom Fenster getrennt, bleibt
aber im Speicher, und kann mit SetMenu(%hwnd,hMenu&) wieder
zugewiesen werden.
Ein mit SetMenu(%hwnd,0) verstecktes Menü muß beim Programmende
immer mit DestroyMenu(Hmenu&) freigegeben werden, sonst
ensteht ein Speicherleck.
Ein sichtbares Menü wird immer automatisch mit dem Fenster
freigegeben. Deshalb wird DestroyMenu im Bsp. nicht verwendet.
Declare hMenu&
Cls
Popup &Datei
AppendMenu 1,&Keine Funktion
Popup &Bearbeiten
Das Handle des Menüs holen
Let hmenu&=GetMenu(%hwnd)
Print   Nach beliebiger Eingabe verschwindet das Menü...
WaitInput
Cls
Print  ...und nach der nächsten Eingabe kommt es zurück.
Ein Null-Handle als Fenstermenü anmelden
SetMenu(%hwnd,0)
Waitinput
Cls
Print  Mit beliebiger Eingabe beenden.
Das gespeicherte Menühandle zurückschreiben
SetMenu(%hwnd,hmenu&)
WaitInput