XProfan

Italia

Beschreibung:

EnableMenuItem (de)aktiviert ein Menuelement, auch in einem externen (aus einer DLL geladenen) Menu.

Deklaration:

DEf @EnableMenuItem(3) !USER32,EnableMenuItem

Parameter:

1.Parameter: Das Handle der Menuleiste

2.Parameter: Je nach Parameter 3 Position (ganz links=0) oder ID (%MENUITEM) des Menüpunktes.

3.Parameter:
Ein Flag, der den Inhalt von Parameter 2 angibt=>
- $0 = (MF_BYCOMMAND) In Parameter 2 steht die ID des Menüpunktes.
- $400 = (MF_BYPOSITION) In Parameter 2 steht die Position des Menüpunktes.
Dazu kann mit | ein Flag addiert werden, der die Darstellung des Menüpunktes angibt.=>
- $2 = (MF_DISABLED) Der Menüpunkt ist nicht anwählbar, aber auch nicht ausgegraut.
- $0 = (MF_ENABLED) Der Menüpunkt ist nicht ausgegraut und anwählbar.
- $1 = (MF_GRAYED) Der Menüpunkt ist ausgegraut und nicht anwählbar.

Rückgabewert:

Existiert der Menüpunkt nicht, wird $FFFFFFFF zurückgegeben, ansonsten der vorherige Status des Menüs ($0, $1 0der $2)

Beispiele:

Kompilieren Markieren Separieren

THX, "Pascal" :-)
window 50,50-500,500
popup "Datei"
appendmenu 01,"Neuer Eintrag"
appendmenu 02,"Eintrag löschen"
appendmenu 03,"Eigenschaften"
popup "Hilfe"
appendmenu 13,"Kontexthilfe"
appendmenu 14,"Hilfedatei"
appendmenu 15,"Info über..."
print "Taste drücken"
def @GetMenu(1) !"USER32","GetMenu"
def @EnableMenuItem(3) !"USER32","EnableMenuItem"
def @DrawMenuBar(1) !"USER32","DrawMenuBar"
declare Menu&
let Menu&=@GetMenu(%hwnd)	Handle des Fenstermenüs
declare Position%
let Position%=1  Position des Menüpunktes (ganz links=0)

while 1

    waitkey
    @EnableMenuItem(Menu&,Position%,1025)  Disable=1025
    @DrawMenuBar(%hwnd)	 Neuzeichnen
    waitkey
    @EnableMenuItem(Menu&,Position%,1024)  Enable=1024
    @DrawMenuBar(%hwnd)	 Neuzeichnen

endwhile