MEnu POPUP (Ayuda) - Solucionado

[ruben Dario]

Menu Tengo el menu popup como es la instrucion para que el menu salga donde este el puntero de mous.

La nRow y nCol dele tomar la posicion de la coordenada del puntore de maus. Alguien sabe cual es.
Por ejemplo en clipper era col(), row() si no estoy mal.

ACTIVATE DIALOG oDlg16 CENTERED VALID (lExit) ON PAINT gradpaint2(oDlg16,hDC,dlg_dsv1);
ON RIGHT CLICK ShowPopUp(oDlg16,MatValid,@aContl,oBar12,nRow, nCol)
Cuano se hace el llamado del menu popup me lo muestra en la misma posicion donde esta el puntero del maus. ver figura.
de esta manera lo necesito

[img]
http://imageshack.us/photo/my-images/847/dibujo1c.jpg/
[/img]

Tengo una clase y hago el llamado de esta manera
::oWdlcx:bRClicked := {|| ::ShowPopu1(nRow, nCol) }
si lo carga pero no me lo muestra en la posicion donde esta el puntero de maus.

[img]
http://imageshack.us/photo/my-images/854/dibujo2ee.jpg/
[/img]

Code: Select all  Expand view

::oWdlcx:bRClicked := {|| ::ShowPopu1(nRow, nCol) }

..
..



ETHOD  ShowPopu1(nRow, nCol) CLASS TBarDLG //Func ShowPopup(oDlg01,MatValid,aContl,oBar12,nRow,nCol) //sampels fwbrow
Local oPopup,abAction
   if !::l2007;MENU oPopup POPUP 2007;else;MENU oPopup POPUP ;endif
   FOR nFor := 1 TO ::nLen
     MENUITEM ::aBmppop[nFor] PROMPT ::abPrompt[ nFor ] RESOURCE ::acBitmap[nFor] ACTION ::abAction[ nFor ];
     BLOCK ::abAction[ nFor ]
   Next
   ENDMENU
   ACTIVATE POPUP oPopup AT nRow, nCol OF ::oWdlcx  

return nil

 

[FranciscoA]

A ver si te entendí bien.

Mira este ejemplo (desde un oBrw en un dialog desde recursos):

oBrw2:bRClicked := {|nRow,nCol| PopMesa(oDlg,oLbx,cDirMesas,@aBmp,@aMesas,@aPathMesas,bAreaMesa,@nTotal,nRecno,dFecha,nTasaus, oBrw2,nRow,nCol) }


//--------------------------------------------------------------------------------
Function PopMesa(oDlg,oLbx,cDirMesas,aBmp,aMesas,aPathMesas,bAreaMesa,nTotal,nRecno,dFecha,nTasaus, oBrw2,nRow,nCol)
local oMenu

MENU oMenu POPUP 2007
MENUITEM "&Ver productos resumidos "+MyMesa ;
ACTION ( VerProdResu(MyMesa),;
(MyMesa)->(dbgoBottom()),oBrw2:Refresh() )

MENUITEM "&Trasladar al Cliente a otra mesa desocupada" ;
ACTION ( TraslaMesa(oBrw2,oLbx,cDirMesas,@aMesas,@aBmp,@aPathMesas,bAreaMesa),;
RefresqueBrw2(@nTotal,oBrw2) )
ENDMENU
ACTIVATE POPUP oMenu OF oBrw2 AT nRow, nCol
ENDIF

RETURN oMenu

Espero te sirva de ejemplo.
Saludos.

[ruben Dario]

A ver si te entendí bien.

Mira este ejemplo (desde un oBrw en un dialog desde recursos):

oBrw2:bRClicked := {|nRow,nCol| PopMesa(oDlg,oLbx,cDirMesas,@aBmp,@aMesas,@aPathMesas,bAreaMesa,@nTotal,nRecno,dFecha,nTasaus, oBrw2,nRow,nCol) }


//--------------------------------------------------------------------------------
Function PopMesa(oDlg,oLbx,cDirMesas,aBmp,aMesas,aPathMesas,bAreaMesa,nTotal,nRecno,dFecha,nTasaus, oBrw2,nRow,nCol)
local oMenu

MENU oMenu POPUP 2007
MENUITEM "&Ver productos resumidos "+MyMesa ;
ACTION ( VerProdResu(MyMesa),;
(MyMesa)->(dbgoBottom()),oBrw2:Refresh() )

MENUITEM "&Trasladar al Cliente a otra mesa desocupada" ;
ACTION ( TraslaMesa(oBrw2,oLbx,cDirMesas,@aMesas,@aBmp,@aPathMesas,bAreaMesa),;
RefresqueBrw2(@nTotal,oBrw2) )
ENDMENU
ACTIVATE POPUP oMenu OF oBrw2 AT nRow, nCol
ENDIF

RETURN oMenu

Espero te sirva de ejemplo.
Saludos.

Cuando se hace el llamado desde un Browser no hay problema , cuando es dese un dialogo no funciona, de todas maneras coloque la imagen.

[FranciscoA]

Rubén, tomando el mismo ejemplo, le hice modificaciones y queda así:
1- En el evento bRclicked, al llamar la funcion, le agregué al final como parámetro el objeto contenedor (oDlg, en este caso)
2- En la funcion receptora, le agregué al final el mencionado parametro (oBjMenu, en este caso)
3- Al gestionar el ACTIVATE POPUP hago referencia a oBjMenu

oDlg:bRClicked := {|nRow,nCol| PopMesa(oDlg,oLbx,cDirMesas,@aBmp,@aMesas,@aPathMesas,bAreaMesa,@nTotal,nRecno,dFecha,nTasaus, oBrw2,nRow,nCol, oDlg) }


//--------------------------------------------------------------------------------
Function PopMesa(oDlg,oLbx,cDirMesas,aBmp,aMesas,aPathMesas,bAreaMesa,nTotal,nRecno,dFecha,nTasaus, oBrw2,nRow,nCol, oBjMenu)
local oMenu

MENU oMenu POPUP 2007
MENUITEM "&Ver productos resumidos "+MyMesa ;
ACTION ( VerProdResu(MyMesa),;
(MyMesa)->(dbgoBottom()),oBrw2:Refresh() )

MENUITEM "&Trasladar al Cliente a otra mesa desocupada" ;
ACTION ( TraslaMesa(oBrw2,oLbx,cDirMesas,@aMesas,@aBmp,@aPathMesas,bAreaMesa),;
RefresqueBrw2(@nTotal,oBrw2) )
ENDMENU
ACTIVATE POPUP oMenu OF oBjMenu AT nRow, nCol
ENDIF

RETURN oMenu

Espero te sirva de ejemplo.
Saludos.

[ruben Dario]

Francisco, esto es exactamento lo que estoy haciendo y me funciona, el problema es que quiero que me despliegue el menu el la posicion donde lo activo con el el maus op sea cuabndo doy click derecho lo debe desplegar en esa posiciony no en la line 0, columna 0 como hago para saber la coordena del al dar Click. si obsevas la dos figura al desplegar el menu te das cuenta.

[FranciscoA]

Rubén, el ejemplo lo he probado y funciona. El menú se despliega en la posición donde doy RClick sobre el dialog.
¿Por qué no muestras un ejemplo autocontenido para probarlo?, quizás así te podamos ayudar.
Saludos.

[FranciscoA]

Aqui va un ejemplo autocontenido para que lo pruebes.

Code: Select all  Expand view

#INCLUDE "FIVEWIN.CH"

Function Main()
local oDlg

Define Dialog oDlg From 2,4 to 20,70 Title "Prueba con Menu PopUp"

oDlg:bRClicked := {|nRow,nCol| PopEjemplo(nRow,nCol,oDlg) }

Activate dialog oDlg Centered

Return nil


Function PopEjemplo(nRow,nCol,oDlg)
local oMenu

MENU oMenu POPUP 2007

  MENUITEM "&Ver productos resumidos por mesa" ;
    ACTION MsgInfo("Hola")
  MENUITEM "&Trasladar al Cliente a otra mesa desocupada" ;
    ACTION MsgInfo("Hola de nuevo")
ENDMENU

ACTIVATE POPUP oMenu OF oDlg AT nRow, nCol

RETURN oMenu

Saludos

[ruben Dario]

Gracias Francisco ya funciono, el problema era que no estaba colocando dentro de las dos barras nCol y nRow