FiveTech Support Forums

  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 )