xBrowse and menu

[mgsoft]

Dear Mr. Nages,

Is it possible to show a menu with several options when clicking on a field in a row?

Thank you. Best regards

[nageswaragunupudi]

Code: Select all  Expand view  RUN

oBrw:bPopup := { |oCol| MyPopMenuFunction( oCol ) }
 

The "MyPopMenuFunction( oCol )" should return a PopMenu object.
The parameter oCol is the currently selected column.

Right-clicking on any column opens the popup menu just below the current cell..

If you want to implement this only for a specific column then

Code: Select all  Expand view  RUN

oCol:bPopup := { |oCol| MyPopMenuFunction( oCol ) }
 

In this case, right-click on that column only activates the popup menu.

For implementation sample, please see \fwh\samples\testxbr3.prg

[mgsoft]

Hi,

And what about bLClicked?

I need to show the menu in this event, but it does not work. The menu does not show up.

If you need, I can build a sample code.

Thank you.

[cnavarro]

Try with this code

Code: Select all  Expand view  RUN

      :bLClicked         := { | nR, nC, nF | MyPopupMnu( oBrw, nR, nC ) }
.../...

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

Function MyPopupMnu( o, nRow, nCol )

   local oMnu

   MENU oMnu POPUP

      MENUITEM "Option 1"    ACTION Msginfo( o:oWnd:ClassName() )
      SEPARATOR
      MENUITEM "Exit" RESOURCE "close" ACTION ( o:oWnd:End() )

   ENDMENU
   ACTIVATE MENU oMnu AT nRow, nCol OF o:oWnd

Return oMnu

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

[nageswaragunupudi]

My advice works with right-click.

We advise you not to use single click for any action because single click is used for navigation

Right click and popup menu is a standard user interface

[ukoenig]

my solution on left mouseclick
using a defined style connected to the cell
( radio, combo, listbox, fieldedit, dateselection ... )



more samples radio and listbox



regards
Uwe

[mgsoft]

Thank you Cristóbal, works perfect!!!