XProfan

Français

Beschreibung:

EnableMenuItem (de)aktiviert un Menuelement, aussi dans einem externe (aus einer DLL geladenen) Menu.

Deklaration:

DEf @EnableMenuItem(3) !USER32,EnableMenuItem

paramètre:

1.paramètre: cela Handle qui Menuleiste

2.paramètre: Je pour paramètre 3 Position (entier links=0) ou bien ID (%MENUITEM) des Menüpunktes.

3.paramètre:
un Flag, qui den le contenu de paramètre 2 angibt=>
- $0 = (MF_BYCOMMAND) dans paramètre 2 steht qui ID des Menüpunktes.
- $400 = (MF_BYPOSITION) dans paramètre 2 steht qui Position des Menüpunktes.
en supplément peux avec | un Flag addiert volonté, qui qui représentation des Menüpunktes angibt.=>
- $2 = (MF_DISABLED) qui Menüpunkt ist pas anwählbar, mais aussi pas ausgegraut.
- $0 = (MF_ENABLED) qui Menüpunkt ist pas ausgegraut et anwählbar.
- $1 = (MF_GRAYED) qui Menüpunkt ist ausgegraut et pas anwählbar.

Rückgabewert:

Existiert qui Menüpunkt pas, wird $FFFFFFFF retour, ansonsten qui vorherige Status des Menüs ($0, $1 0qui $2)

Beispiele:

Kompilieren Marque Séparation

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