FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Menú emergente en xBrowse (SOLUCIONADO)
Posts: 3358
Joined: Fri Oct 07, 2005 08:20 PM
Menú emergente en xBrowse (SOLUCIONADO)
Posted: Wed Oct 18, 2023 03:05 PM

Amigos del foro:

Necesito que sobre un xBrowse al dar clic, ya sea izquierdo o derecho, sobre una celda me muestre

un menú emergente, algún ejemplo?

Muchas gracias

SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero
Posts: 257
Joined: Mon Jun 10, 2013 06:40 PM
Re: Menú emergente en xBrowse
Posted: Wed Oct 18, 2023 03:22 PM
Armando, que tal

Que tipo de Menu?
Code (fw): Select all Collapse
       oBrow:bRClicked := { | nRow, nCol | ARTICULO1CLICKRIGHT(oDlg,oBrow,nRow,nCol) }


FUNCTION ARTICULO1CLICKRIGHT(oDlg,oBrow,nRow,nCol)
    Local oMenu
    DEFAULT nRow := 0, nCol := oBrow:nColAct
    MENU oMenu POPUP 2007
           MENUITEM "Movimientos...."      ACTION ..... lo que ejecuta
           MENUITEM "Imprimir...."            ACTION
           MENUITEM "Salir del Catalogo"   ACTION                                             
    ENDMENU
    ACTIVATE POPUP oMenu AT nRow - 5, nCol of oBrow
RETURN .T.
Posts: 3358
Joined: Fri Oct 07, 2005 08:20 PM
Re: Menú emergente en xBrowse
Posted: Wed Oct 18, 2023 03:28 PM

Hola Javier:

Espero que te encuentres bien de salud y con mucho trabajo.

Creo que tu ejemplo es lo que necesito, lo voy a probar y aviso.

Un abrazo

SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: Menú emergente en xBrowse
Posted: Wed Oct 18, 2023 03:44 PM
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
Posts: 3358
Joined: Fri Oct 07, 2005 08:20 PM
Re: Menú emergente en xBrowse
Posted: Wed Oct 18, 2023 08:30 PM
Javier y Amigos:

Siguiendo el consejo de Javier, tengo el siguiente código
Code (fw): Select all Collapse
               :bRClicked := { | nRow, nCol | MyPopMenu(oBrw,oBrw:nRowSel,oBrw:nColSel) }

STATIC FUNCTION MyPopMenu(oBrw,nRow,nCol)
   LOCAL oMenu

   MENU oMenu POPUP 2007
      MENUITEM "Registrar" ACTION MsgInfo("Registrar")
      SEPARATOR
      MENUITEM "Eliminar"  ACTION MsgInfo("Eliminar")
      SEPARATOR
      MENUITEM "Salir"     ACTION oMenu:END( )
   ENDMENU

   ACTIVATE POPUP oMenu AT nRow , nCol OF oBrw
RETURN(.T.)

Y funciona, me muestra el menú pero siempre lo muestra en la esquina superior izquierda del BROWSE
me gustaría que aparezca abajo del renglón y columna en la que el usuario da el clic y que solo ciertas
columnas tengan la posibilidad de crear el menú, ahora en cualquier parte del Browse que se da el clic
el menú se activa.

Saludos
SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: Menú emergente en xBrowse
Posted: Wed Oct 18, 2023 08:39 PM

Armando:

C:\FWH..\SAMPLES\MALLORCA.PRG

Regards, saludos.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
Posts: 3358
Joined: Fri Oct 07, 2005 08:20 PM
Re: Menú emergente en xBrowse
Posted: Wed Oct 18, 2023 08:45 PM

Karinha:

Gracias, Parece que el ejemplo en Mallorca.Prg el menú se activa en cualquier parte del Browse.

Saludos

SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero

Continue the discussion