menu.spf

\ Ôàéë:       menu.spf
\ Àâòîð:      VoidVolker
\ Äàòà:       27/08/2015 10:48
\ Âåðñèÿ:     1.4

0
CELL -- -menuXT
CELL -- -menuX
CELL -- -menuY
CELL -- -cancel
CONSTANT /menu

: MenuShow { m \ h -- } \ ( menu -- )
    m @ EXECUTE TO h

    0   \ TrackPopupMenuEx òðåáóåò õýíäë îêíà, êîòîðîå áóäåò ïîëó÷àòü îïîâåùåíèÿ î ñîáûòèÿõ ìåíþ — äëÿ ýòîãî êàêèì-òî îáðàçîì èñïîëüçóåòñÿ èêîíêà ííêðîíà (ýòîò êóñîê êîäà ñ äðåìó÷èõ âðåìåí)
    WITH TrayIcon Z" static"  0 0 Window >R ENDWITH
    R@ R> SetForegroundWindow DROP
    m -menuY @ m -menuX @
    256 h TrackPopupMenuEx  \ 0|xt
    h DestroyMenu DROP

    ?DUP IF
        EXECUTE
    ELSE
        m -cancel @ ?DUP IF
            EXECUTE
        THEN
    THEN
;

: MenuShowAtCursor   \ ( menu -- )
    >R CalcMenuYX R@ -menuX !
    R@ -menuY !
    R> MenuShow
;

: MenuXY!   \ ( x y menu -- )
    SWAP OVER -menuX ! -menuY !
;

: Menu:
    CREATE
    HERE            \ menu
    0 , 0 , 0 , 0 ,
    :NONAME
    POSTPONE POPUPMENU
;

\ Õàêè ôëàãîâ - ìîæíî ñäåëàòü ïóíêò ìåíþ çàáëîêèðîâàííûì, ñ ãàëî÷êîé, íîâûé ñòîëáåö èëè íîðìàëüíûì
: ItemGrey       1 ['] MENUITEM 81 + DUP @ ROT OR SWAP ! ;
: ItemDisable    2 ['] MENUITEM 81 + DUP @ ROT OR SWAP ! ;
: ItemCheck      8 ['] MENUITEM 81 + DUP @ ROT OR SWAP ! ;
: ItemCol       32 ['] MENUITEM 81 + DUP @ ROT OR SWAP ! ;
: ItemBreak     64 ['] MENUITEM 81 + DUP @ ROT OR SWAP ! ;
: ItemNormal     0 ['] MENUITEM 81 + ! ;
\ Òîæå ñàìîå äëÿ ïîäìåíþ
: SubGrey        1 ['] END-POPUP 21 + DUP @ ROT OR SWAP ! ;
: SubDisable     2 ['] END-POPUP 21 + DUP @ ROT OR SWAP ! ;
: SubCheck       8 ['] END-POPUP 21 + DUP @ ROT OR SWAP ! ;
: SubCol        32 ['] END-POPUP 21 + DUP @ ROT OR SWAP ! ;
: SubBreak      64 ['] END-POPUP 21 + DUP @ ROT OR SWAP ! ;
: SubNormal     16 ['] END-POPUP 21 + ! ;
\ Ïîñëå ñîçäàíèÿ ïóíêòà ìåíþ ñëåäóþùèå ïóíêòû ìåíþ áóäóò íîðìàëüíûìè

: ;Menu
    POSTPONE END-MENU
    [COMPILE] ; SWAP !
; IMMEDIATE

: Item:
    eval-string, \ 0 PARSE [COMPILE] SLITERAL
    [COMPILE] [NONAME
; IMMEDIATE

: Item   \ ( a u -- )
    [COMPILE] [NONAME
; IMMEDIATE

: ;Item   \ ( xt -- )
    [COMPILE] NONAME]
    POSTPONE MENUITEM
    POSTPONE ItemNormal
; IMMEDIATE

: SubMenu(
    POSTPONE POPUP
; IMMEDIATE

: )SubMenu   \ ( a u -- )
    POSTPONE END-POPUP
; IMMEDIATE

: )SubMenu:    \ ( -- ) ( "string" -> )
    eval-string, \ 0 PARSE [COMPILE] SLITERAL
    POSTPONE END-POPUP
    POSTPONE SubNormal
; IMMEDIATE

: ----
    POSTPONE MENUSEPARATOR
; IMMEDIATE

: Cancel
    [COMPILE] [NONAME
; IMMEDIATE

: ;Cancel
    DUP >R
    [COMPILE] NONAME] POSTPONE DROP
    OVER R> SWAP -cancel !
; IMMEDIATE


\EOF
\ Ïðèìåð:
<%
Menu: MyMenu1 \ Ãîðèçîíòàëüíîå ìåíþ. Äëÿ âåðòèêàëüíîãî - ïðîñòî íå íàäî èñïîëüçîâàòü ItemCol è SubCol

    Item: "Item 1"
        ." Item 1 run" CR
    ;Item

    \ Äåëàåì ñëåäóþùèé ïóíêò ìåíþ ñïðàâà:
    ItemCol
    \ È äîáàâëåì åìó ãàëî÷êó:
    ItemCheck
    Item: "Item 2"
        ." Item 2 run" CR
    ;Item


    SubMenu(

        Item: "Item 3"
            ." Item 3 run" CR
        ;Item

        \ Äîáàâëÿåì ðàçäåëèòåëü - ãîðèçîíòàëüíóþ ÷åðòó
        ----

        Item: "Item 4"
            ." Item 4 run" CR
        ;Item

    \ Òàê æå ñìåùàåì è ïîäìåíþ âïðàâî:
    SubCol )SubMenu: "Submenu"

    Cancel
        ." Íè÷åãî íå áûëî âûáðàíî" CR
    ;Cancel

;Menu

Menu: MyMenu2

    FT-CUR FT>DD.MM.YYYY/hh:mm:ss Item
          S" rundll32 shell32,Control_RunDLL timedate.cpl" START-APP
    ;Item

    S" COMSPEC" ENV Item
        S" COMSPEC" ENV START-APP
    ;Item

;Menu

%>

#( Show_my_menu
\ NoActive
SingleInstance
WatchHotKey: "{F3}"
Action:
MyMenu1 MenuShowAtCursor
)#

#( Show_my_menu
\ NoActive
SingleInstance
WatchHotKey: "{F4}"
Action:
MyMenu1 MenuShow
)#

#( Show_my_menu
\ NoActive
SingleInstance
WatchHotKey: "{F5}"
Action:
100 100 MyMenu1 MenuXY!
MyMenu1 MenuShow
)#