XProfan

Windowstyle 31
Windowtitle "Trackmenü avec Checkfunktion sur API"
Fenêtre 0,0-640,440
DEF @CreatePopupMenu(0) !"User32","CreatePopupMenu"
DEF @AppendMenuEx(4) !"User32","AppendMenuA"
DEF @TrackPopupMenu(7) !"User32","TrackPopupMenu"
DEF @CheckMenuItem(3) !"User32","CheckMenuItem"
Déclarer Checkmerker%
Déclarer Menuhandle&,ITEM#
cela menu wird erzeugt
LET Menuhandle&=@CreatePopupMenu()
DIM Item#,255
String Item#,0="&Messagebox"
@AppendMenuEx(Menuhandle&,0,101,ITEM#)
Dispose Item#
DIM Item#,255
String Item#,0="&Check"
@AppendMenuEx(Menuhandle&,0,102,ITEM#)
Dispose item#

Tandis que @equ(0,0)

    Waitinput

    IF @equ(%MouseKey,2) Rechte Bouton de la souris gedrückt?

        @TrackPopupMenu(Menuhandle&,2,%mousex,%Mousey,0,%HWND,0) menu wird angezeigt..

        IF @equ(%MENUITEM,102)

            LET CHECKMERKER%=@NOT(Checkmerker%) Zustandsänderung merken...
            @CheckMenuItem(Menuhandle&,102,@mul(Checkmerker%,8)) Ähnlich comment qui Befehl Checkmenü!

        ELSEIF @equ(%MENUITEM,101)

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

        ENDIF

    endif

Wend

Windowstyle 31
Windowtitle "Trackmenü (rechte Bouton de la souris!) avec Checkfunktion sur API"
Fenêtre 0,0-640,440
DEF @CreatePopupMenu(0) !"User32","CreatePopupMenu"
DEF @AppendMenuEx(4) !"User32","AppendMenuA"
DEF @TrackPopupMenu(7) !"User32","TrackPopupMenu"
DEF @CheckMenuItem(3) !"User32","CheckMenuItem"
Déclarer Checkmerker%
Déclarer Menuhandle&,ITEM#
'cela menu wird erzeugt
LET Menuhandle&=@CreatePopupMenu()
DIM Item#,255
String Item#,0="&Messagebox"
@AppendMenuEx(Menuhandle&,0,101,ITEM#)
Dispose Item#
DIM Item#,255
String Item#,0="&Check"
@AppendMenuEx(Menuhandle&,0,102,ITEM#)
Dispose item#

Tandis que 1

    Waitinput

    IF %MouseKey=2'Rechte Bouton de la souris gedrückt?

        @TrackPopupMenu(Menuhandle&,2,%mousex,%Mousey,0,%HWND,0)'menu wird angezeigt..

        IF %MENUITEM=102

            LET CHECKMERKER%=@NOT(Checkmerker%)'Zustandsänderung merken...
            @CheckMenuItem(Menuhandle&,102, Checkmerker%*8)'Ähnlich comment qui Befehl Checkmenü!

        ELSEIF %MENUITEM=101

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

        ENDIF

    endif

endwhile