FiveTech Support Forums

// Sample showing how to control right click events

#include "FiveWin.ch"

static oDlg

//----------------------------------------------------------------------------//

function Main()

   DEFINE DIALOG oDlg ;
      FROM 2, 2 TO 20, 50 ;
      TITLE "Testing Right Click"

   oDlg:bRClicked = { | nRow, nCol, nFlags | ShowPopup( nRow, nCol ) }

   ACTIVATE DIALOG oDlg CENTERED

return nil

//----------------------------------------------------------------------------//

function ShowPopup( nRow, nCol )

//function togn_onof(odlg)

   // local oPopup
   LOCAL oMenu

   MENU oMenu POPUP

      MENUITEM "&Disattiva Modifica Campo" //action ..
      MENUITEM "&Blocca Colonne a Sx <1>" //action ..
      MENUITEM "&Evidenzia Singola Cella ?" //action ..

      SEPARATOR
      MENUITEM "&Torna a Impostazioni iniziali" //action ..

      SEPARATOR
      MENUITEM "&Uscita" //action ..

      SEPARATOR
      MENUITEM "Row: " + Str( nRow ) ACTION MsgInfo( "Hello" )
      MENUITEM "Col: " + Str( nCol ) ACTION MsgBeep()

   ENDMENU

   ACTIVATE POPUP oMenu OF oDlg AT nRow, nCol

return nil