Hilfe

MenuEnabled

B+

Aufruf

wert = MenuEnabled (menü)

Parameter

menü Identität eines Menüs


Rückgabewert

0 = Menü ausgeschaltet
1 = Menü eingeschaltet


Beschreibung

Die Funktion MenuEnabled ermittelt, ob ein Menü ausgeschaltet ist. Menü kann mit DisableMenu ausgeschaltet und mit EnableMenu eingeschaltet werden. Nachdem ein Menü geändert wurde, muss UpdateWindowMenu auf jeden Fall aufgerufen werden - da das Menü sonst nicht geändert wird.



Beispiel

Standardbeispiel:

window=CreateWindow("Window",50,50,200,200,0,5)
menu1=CreateMenu("Alien",1,WindowMenu(window))
menu2=CreateMenu("Mensch",2,WindowMenu(window))
menu3=CreateMenu("Mensch ausschalten",3,menu1)
menu4=CreateMenu("Alien ausschalten",4,menu2)
UpdateWindowMenu window

Repeat
If WaitEvent(1)=$1001 Then
Select EventData()
Case 3
value=MenuChecked(menu3)
If value=0 Then CheckMenu(menu3) : DisableMenu menu4
If value=1 Then UncheckMenu(menu3) : EnableMenu menu4
UpdateWindowMenu window
Case 4
value=MenuChecked(menu4)
If value=0 Then CheckMenu(menu4) : DisableMenu menu3
If value=1 Then UncheckMenu(menu4) : EnableMenu menu3
UpdateWindowMenu window
End Select
EndIf
If KeyHit(1)=1 Then End
Forever


Siehe auch

CheckMenu, CreateMenu, DisableMenu, EnableMenu, MenuChecked, MenuText, SetMenuText, UncheckMenu, UpdateWindowMenu, WindowMenu

Übersicht GUI Menü