topic-7114

Posts: 297

Joined: Fri Apr 14, 2006 05:52 PM

Una de XBrowse ( menus )
Posted: Fri May 25, 2007 10:54 AM

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

Posts: 8

Joined: Thu Mar 01, 2007 10:08 PM

Una de XBrowse ( menus )
Posted: Fri May 25, 2007 08:25 PM

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 Collapse

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

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

Code: Select all Collapse

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.

FiveTech Support Forums

Continue the discussion