XProfan

Español

Descripción:

EnableMenuItem (de)aktiviert una Menuelement, auch en un externo (de uno DLL geladenen) Menu.

Deklaration:

DEf @EnableMenuItem(3) !USER32,EnableMenuItem

Parámetro:

1.Parámetro: Das Handle el Menuleiste

2.Parámetro: Je después de Parámetro 3 Position (bastante links=0) oder ID (%MENUITEM) des Menüpunktes.

3.Parámetro:
Ein Flag, el el Inhalt de Parámetro 2 angibt=>
- $0 = (MF_BYCOMMAND) In Parámetro 2 es el ID des Menüpunktes.
- $400 = (MF_BYPOSITION) In Parámetro 2 es el Position des Menüpunktes.
Dazu kann con | una Flag addiert voluntad, el el Darstellung des Menüpunktes angibt.=>
- $2 = (MF_DISABLED) Der Menüpunkt es no anwählbar, aber auch no ausgegraut.
- $0 = (MF_ENABLED) Der Menüpunkt es no ausgegraut y anwählbar.
- $1 = (MF_GRAYED) Der Menüpunkt es ausgegraut y no anwählbar.

Rückgabewert:

Existiert el Menüpunkt no, se $FFFFFFFF zurückgegeben, ansonsten el vorherige Status des Menüs ($0, $1 0el $2)

Beispiele:

Kompilieren Marca Separación

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