XProfan

Français

Beschreibung:

SetMenuDefaultItem hebt une Menüpunkt par Fettschrift hervor.

Deklaration:

DEF @SetMenuDefaultItem(3) !USER32,SetMenuDefaultItem

paramètre:

1.paramètre: Handle des Menüs.

2.paramètre: Je pour paramètre 3 ID ou bien Position des Menüitems comme LongInt.

3.paramètre: Flag zur Interpretation de paramètre 2. =>
1 = paramètre 2 gibt qui Position des Menüitems à. 1.Menüitem hat qui Position 0.
0 = paramètre 2 gibt qui ID des Menüitems à.

Rückgabewert:

1 chez Erfolg, 0 chez Misserfolg.

Beispiele:

Kompilieren Marque Séparation

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