Tengo un xbrowse con un menú pop-up cuando se hace click sobre el boton derecho del ratón. El caso es que si hacemos varios click con el boton derecho del ratón en varios registros, al hacer un click con el boton izquierdo en un registro, en primer lugar el puntero del ratón cambia y aparece una "mano" como si fuese a seleccionar algo, y lo peor es que todos los registros del xbrowse se desplazan automáticamente hacia arriba.
He modificado el ejemplo que viene con fivewin: testxbrw.prg, en concreto en la función "BasicCell" y se produce el mismo comportamiento extraño.
¿Alguna forma de solucionarlo?
¿Es un problema de definición del menú? ¿o del xbrowse?
Gracias a todos
Code: Select all
//----------------------------------------------------------------------------//
STATIC FUNCTION BasicCell( oWnd )
local oChild, oBrw
DEFINE WINDOW oChild TITLE "Basic Cell selector browse" MDICHILD OF oWnd
@ 0,0 XBROWSE oBrw OF oWnd ALIAS Alias()
/*
oBrw := TXBrowse():New( oWnd )
oBrw:SetRDD()
*/
oBrw:CreateFromCode()
oBrw:cToolTip = "This is a test"
oBrw :bRClicked = { | nRow, nCol | FLoad_MenuExped( nRow, nCol, oBrw ) } //---> CLICK DERECHO CARGA MENU POP-UP
oChild:oClient := oBrw
ACTIVATE WINDOW oChild ON INIT oBrw:SetFocus()
RETURN NIL
//---------------------------------------------- MENU POP-UP
Function FLoad_MenuExped( nRow, nCol, oBrw)
Local oMenu
MENU oMenu POPUP 2007
MENUITEM "Uno" ACTION ( Msginfo("Right click on... ") )
SEPARATOR
MENUITEM "Dos" ACTION ( Msginfo("Right click on... ") )
MENUITEM "Tres" ACTION ( Msginfo("Right click on... ") )
ENDMENU
ACTIVATE POPUP oMenu AT nRow, nCol OF oBrw
Return
Ernesto
