XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Menüpunkt durch Fettschrift hervorheben
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