SYS "CreatePopupMenu" TO hsub%
:
SYS "CreatePopupMenu" TO hpop1%
SYS "AppendMenu", hpop1%, 0, 1, "&Red"
SYS "AppendMenu", hpop1%, 0, 2, "&Green"
SYS "AppendMenu", hpop1%, 0, 4, "&Blue"
SYS "AppendMenu", hpop1%, 0, 3, "&Yellow"
SYS "AppendMenu", hpop1%, 0, 5, "&Magenta"
SYS "AppendMenu", hpop1%, 0, 6, "&Cyan"
:
SYS "CreateMenu" TO hmenu%
SYS "AppendMenu", hmenu%, 16, hpop1%, "&Primary"
SYS "SetMenu", @hwnd%, hmenu%
SYS "DrawMenuBar", @hwnd%
:
ON SYS PROCmenu(@wparam%) : RETURN
REPEAT UNTIL INKEY$(10)="/"
SYS "DestroyMenu", hpop1%
SYS "DestroyMenu", hmenu%
G=GET : QUIT
END
:
DEF PROCmenu(col%)
PRINTcol%
ENDPROC
SYS "SetMenu", @hwnd%, 0
SYS "DestroyMenu", hpop1%
SYS "DestroyMenu", hmenu%