XProfan

Italia

Beschreibung:

SetMenuDefaultItem hebt einen Menüpunkt durch Fettschrift hervor.

Deklaration:

DEF @SetMenuDefaultItem(3) !USER32,SetMenuDefaultItem

Parameter:

1.Parameter: Handle des Menüs.

2.Parameter: Je nach Parameter 3 ID oder Position des Menüitems als LongInt.

3.Parameter: Flag zur Interpretation von Parameter 2. =>
1 = Parameter 2 gibt die Position des Menüitems an. 1.Menüitem hat die Position 0.
0 = Parameter 2 gibt die ID des Menüitems an.

Rückgabewert:

1 bei Erfolg, 0 bei Misserfolg.

Beispiele:

Kompilieren Markieren Separieren

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