Una de XBrowse ( menus )

[Mike Serra]

Buenas Foro!, ¿teneis un ejemplo de como asignarle un menu flotante al xbrowse cuando pulsamos con el boton derecho del raton sobre el?

He estado probando a hacerlo como en la propia clase, el menu que sale en las cabeceras, pero no lo consigo.

Muchas gracias.

[Ramón Avendaño]

Hola Mike:

Te pongo un ejemplo para un menú Popup sobre las líneas de datos del xBrowse, (sobre la cabecera, sobre el píe o zona donde no aparecen datos, habría que hacer otra cosa):

Suponiendo que estas definiendo un XBrouse llamado oBrw, pon cuando lo estas creando:

Code: Select all  Expand view

  oBrw:bRClicked := {| nRow, nCol | PopupMenu( nRow, nCol, oBrw ) }

y define la función PopupMenu() mas o menos como:

Code: Select all  Expand view

FUNCTION PopupMenu( nRow, nCol, oBrw )

  LOCAL oMenu

  MENU oMenu POPUP
       MENUITEM "&Uno" ACTION MsgInfo( "Uno" )
       MENUITEM "&Dos" ACTION MsgInfo( "Dos" )
       MENUITEM "&Tres" ACTION MsgInfo( "Tres" )
  ENDMENU

ACTIVATE POPUP oMenu AT nRow, nCol OF oBrw

RETURN NIL

Un saludo,
Ramón Avendaño.