Page 1 of 1
Una de XBrowse ( menus )
Posted: Fri May 25, 2007 10:54 am
by 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.
Posted: Fri May 25, 2007 8:25 pm
by 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
oBrw:bRClicked := {| nRow, nCol | PopupMenu( nRow, nCol, oBrw ) }
y define la función PopupMenu() mas o menos como:
Code: Select all
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.