Page 1 of 1

Coordenadas del Mouse

Posted: Thu Jul 26, 2007 7:16 pm
by jrestojeda
// CAMBIAR EL ORDEN QUE SE MUESTRA EL BROWSE //
Function CambiaOrCli(oDbf,oSay,oLbx)
Local oMenu,nRow:=100,nCol:=100

MENU oMenu POPUP
MENUITEM "Ordenar por Código";
ACTION oSay:SetText("ORDENADO POR CODIGO"),;
oDbf:SetOrder(1)
MENUITEM "Ordenar por Razón Social";
ACTION oSay:SetText("ORDENADO POR RAZON SOCIAL"),;
oDbf:SetOrder(2)
MENUITEM "Ordenar por Localidad";
ACTION oSay:SetText("ORDENADO POR LOCALIDAD"),;
oDbf:SetOrder(3)
MENUITEM "Ordenar por Categoría";
ACTION oSay:SetText("ORDENADO POR CATEGORIA"),;
oDbf:SetOrder(4)
ENDMENU

ACTIVATE POPUP oMenu AT nRow,nCol OF oLbx

oDbf:GoTop()
oLbx:Refresh()
Return nil
//


Hola a todos como se ve en la función que escribí anteriormente, la función es un simple Menú Popup, pero quisiera que este menú aparezca donde presiono el boton derecho del mouse.
Ya está asociada al botón derecho pero quisiera que aparezca en las coordenadas de donde presiono el botón derecho.
En este caso siempre la estoy mostrando en las mismas coordenadas, nRow=100 y nCol=100.
Hay alguna forma de obtener el nRow y el nCol de donde presiono el botón derecho?

Desde ya muchas gracias.
Saludos, Esteban.

Posted: Thu Jul 26, 2007 7:47 pm
by Antonio Linares
Esteban,

Code: Select all

oBrowse:bRClicked = { | nRow, nCol | ShowPopup( nRow, nCol, oBrowse ) }

...

function ShowPopup( nRow, nCol, oBrowse )

   local oPopup

   MENU oPopup POPUP
      MENUITEM "&New"      ACTION MsgInfo( "new" )
      MENUITEM "&Modify"   ACTION MsgInfo( "modify" )
      MENUITEM "&Delete"   ACTION MsgInfo( "delete" )
      MENUITEM "&Search"   ACTION MsgInfo( "search" )
      SEPARATOR
      MENUITEM "&Print"    ACTION MsgInfo( "print" )
   ENDMENU

   ACTIVATE POPUP oPopup AT nRow, nCol OF oBrowse

return nil

Posted: Thu Jul 26, 2007 8:12 pm
by jrestojeda
Antonio funcionó perfecto lo que me recomendaste.
Muchísimas gracias.
Saludos, Esteban