XProfan

Español

Descripción:

SetMenuDefaultItem hebt una Menüpunkt por Fettschrift hervor.

Deklaration:

DEF @SetMenuDefaultItem(3) !USER32,SetMenuDefaultItem

Parámetro:

1.Parámetro: Handle des Menüs.

2.Parámetro: Je después de Parámetro 3 ID oder Position des Menüitems como LongInt.

3.Parámetro: Flag a Interpretation de Parámetro 2. =>
1 = Parámetro 2 son el Position des Menüitems a. 1.Menüitem ha el Position 0.
0 = Parámetro 2 son el ID des Menüitems a.

Rückgabewert:

1 en Erfolg, 0 en Misserfolg.

Beispiele:

Kompilieren Marca Separación

DEF @SetMenuDefaultItem(3) !"USER32","SetMenuDefaultItem"
DEF @GetMenu(1) !"USER32","GetMenu"
DEF @GetSubMenu(2) !"USER32","GetSubMenu"
DEF @DrawMenuBar(1) !"USER32","DrawMenuBar"
Declare MenuHandle&
Windowstyle 31
Windowtitle "Menü Item Default"
Window 0,0-640,440
Popup "&Programm"
Appendmenu 101,"Hauptmenü &Programm hervorheben!"
Appendmenu 103,"&beenden"
Popup "&Optionen"
Appendmenu 201,"&Eintrag 1"
Appendmenu 202,"&Eintrag 2"
Appendmenu 203,"&Eintrag 3"
LET MENUHANDLE&=@GetSubMenu(@Getmenu(%HWND),0)
@SetMenuDefaultItem(MenuHandle&,103,0)
@DrawMenuBar(%HWND)

While 0=0

    Waitinput
    CASE @Menuitem(103) : END

    IF @Menuitem(101)

        @SetMenuDefaultItem(@Getmenu(%HWND),0,1)
        @DrawMenuBar(%HWND)

    endif

Wend