[Win32forth-cvs] win32forth-stc/Templates PopupWindow.f,NONE,1.1

[Jos v.d.V. <jo...@us...>]

Update of /cvsroot/win32forth/win32forth-stc/Templates
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv22542

Added Files:
	PopupWindow.f 
Log Message:
Jos: Added an other template

--- NEW FILE: PopupWindow.f ---
anew  -PopupWindow.f

\ Needed in a listview or treeview when you would like to have a popup menu.
\ The popup window could be activated when there is a right click on an item.

Needs Window.f
Needs Menu.f

defer    ClosePopupWindow            ' noop is ClosePopupWindow

POPUPBAR PopupOnItem     \   Define the Popup bar for a window here.
    POPUP " "
       MENUITEM  "Some action (Not yet defined)"  ClosePopupWindow  noop ;
ENDBAR

:Object    PopupWindow    <super  Window

: StartPopup    ( -- )  0 WM_RBUTTONDOWN GetHandle: self Call PostMessage drop ;
:noname         ( - )                   Close: Self   ;  is ClosePopupWindow
: CleanupClose  ( h_m w_l - res )       2drop ClosePopupWindow  ;

:M ClassInit:     ( -- )   ClassInit: super   PopupOnItem SetPopupBar: Self ;M
:M WindowStyle:   ( -- style )          WS_POPUP                ;M
:M ExWindowStyle: ( -- extended_style ) WS_EX_TOOLWINDOW        ;M
:M StartSize:     ( -- width height )   1 1                     ;M
:M StartPos:      ( -- x y )            mousex  mousey          ;M
:M WM_LBUTTONDOWN ( h m w l -- res )    CleanupClose            ;M
:M On_KillFocus:  ( h m w l -- res )    CleanupClose            ;M
:M On_Done:       ( h m w l -- res )    On_Done: super 0        ;M
:M SetParent:     ( HwndParent -- )     to parent               ;M
:M On_Paint:      ( -- )   hwnd start: PopupOnItem   StartPopup ;M

:M Start:         ( mousex mousey HwndParent -- )
        SetParent: Self
        to mousey to mousex
        Start: super
        ;M


;Object

\  screen-size swap 2/  swap 2/ 0 Start: PopupWindow      \ to show how it looks

\s
(( Use from an other window:

: StartPopupWindow ( -- )
           hWnd get-mouse-xy
           GetWindowRect: Self 2drop
           rot + >r + r>  Hwnd Start: PopupWindow
          ;  ))

\s