XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Trackmenü mit Checkfunktion über API
Windowstyle 31+512
Windowtitle Trackmenü mit Checkfunktion über API
Window 0,0-640,440
Def @Createpopupmenu(0) !USER32,CreatePopupMenu
Def @Appendmenuex(4) !USER32,AppendMenuA
Def @Trackpopupmenu(7) !USER32,TrackPopupMenu
Def @Checkmenuitem(3) !USER32,CheckMenuItem
Def @Destroymenu(1) !USER32,DestroyMenu
Declare Checkmerker%
Declare Menuhandle&,Item$
Das Menü wird erzeugt
Let Menuhandle&=@Createpopupmenu()
Let Item$=&Messagebox
@Appendmenuex(Menuhandle&,0,101,@Addr(Item$))
Let Item$=&Check
@Appendmenuex(Menuhandle&,0,102,@Addr(Item$))

While %Menuitem<>-2

    Waitinput

    If @Equ(%Mousekey,2)Rechte Maustaste gedrückt?

        @Trackpopupmenu(Menuhandle&,0,%Mousex+5,%Mousey-10,0,%Hwnd,0)Menü wird angezeigt..

        If @Equ(%Menuitem,102)

            Let Checkmerker%=@Not(Checkmerker%)Zustandsänderung merken...
            @Checkmenuitem(Menuhandle&,102,@Mul(Checkmerker%,8))Ähnlich wie der Befehl Checkmenü!

        Elseif @Equ(%Menuitem,101)

            @Messagebox(Menüpunkt eins geklickt!,Hinweis,64)

        Endif

    Endif

Wend

@Destroymenu(Menuhandle&)Speicher freigeben