right-clicking on the TMenuItem

[Natter]

Is it possible to handle right-clicking on the TMenuItem object ?

[karinha]

Maybe:

Code: Select all  Expand view

   SwapMouseButton( 1 ) // For Left-handers
 

Regards, saludos.

[Natter]

I didn't understand. How can I use SwapMouseButton(1 ) ? Any click (both right and left) on the TMenuItem object causes the selection of a menu option. I need to make this choice only on the left click. And use the right click for other purposes.

[karinha]

Sorry Natter, it was the only idea that occurred to me at the time. Comment what you would do differently, PLS.

Code: Select all  Expand view

// C:\FWH\SAMPLES\NATTER3.PRG

#include "Fivewin.ch"

STATIC cName1

FUNCTION Main()

   LOCAL oWnd

   cName1 := "Test"

   DEFINE WINDOW oWnd

   oWnd:bRClicked  := {| nRow, nCol, nFlags | MyMenu( oWnd, nRow, nCol ) }

   ACTIVATE WINDOW oWnd CENTERED

RETURN NIL

FUNCTION MyMenu( oWnd, nRow, nCol )

   LOCAL oMenu, oItem1, oItem2, oItem3
   LOCAL cName := "Test.."
   LOCAL cName2 := "Test2"

   MENU oMenu POPUP 2007

//    IF lOptionLeft

      SwapMouseButton( 1 ) // For Left-handers

//    ENDIF

      MENUITEM oItem1 PROMPT "Natter Click" ;
          ACTION( oWnd:End() )

      MENUITEM oItem2 PROMPT cName1

      SEPARATOR

      MENUITEM oITem3 PROMPT "Others" ACTION MsgInfo( Len( oMenu:aMenuItems ) )

   ENDMENU

   ACTIVATE POPUP oMenu WINDOW oWnd  AT 140, 10

   SwapMouseButton( 0 )

RETURN( oMenu )

DLL32 FUNCTION SwapMouseButton(swap AS 7) AS 7 PASCAL LIB "USER32.DLL"

// FIN / END
 

Regards, saludos.