- Code: Select all Expand view
- oPanel:= TPanel():New(40,2,400,400,oSpiaggia)
oPanel:SetBrush(oBrush1)
oSpiaggia:oclient:=oPanel
oPanel:bRClicked = { | nRow, nCol, nFlags | ShowPopup( oPanel, nRow, nCol ) }
Function ShowPopup( oPanel, nRow, nCol )
local oMenu
MENU oMenu POPUP 2007
MENUITEM "&Stampa Foglio Bagnino" NAME "FOGLIO_BAGNINO" ACTION NIL // foglio(oApp:oDlg)
* MENUITEM "&Uscita Planning" action (oApp():oDlg:End(), oBarPre:END(), oApp:oBar:show())
MENUITEM "&Statistica " action NIL
SEPARATOR
MENUITEM "&Cerca un cliente" NAME "FOGLIO_BAGNINO" ACTION NIL
ENDMENU
ACTIVATE POPUP oMenu OF oPanel AT nRow, nCol
RETURN( NIL )
I not see the popup why ?
