topic-7689

Posts: 601

Joined: Wed Jul 04, 2007 03:51 PM

Coordenadas del Mouse
Posted: Thu Jul 26, 2007 07:16 PM

// 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.

Ojeda Esteban Eduardo.

Buenos Aires - Argentina.

FWH - PellesC - DBF/CDX - ADS - Gloriosos .Bat - MySql - C# .net - FastReport

Skype: jreduojeda

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Coordenadas del Mouse
Posted: Thu Jul 26, 2007 07:47 PM

Esteban,

Code: Select all Collapse

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

regards, saludos

Antonio Linares
www.fivetechsoft.com

jrestojeda

Posts: 601

Joined: Wed Jul 04, 2007 03:51 PM

Coordenadas del Mouse
Posted: Thu Jul 26, 2007 08:12 PM

Antonio funcionó perfecto lo que me recomendaste.
Muchísimas gracias.
Saludos, Esteban

Ojeda Esteban Eduardo.

Buenos Aires - Argentina.

FWH - PellesC - DBF/CDX - ADS - Gloriosos .Bat - MySql - C# .net - FastReport

Skype: jreduojeda

FiveTech Support Forums

Continue the discussion