xBrowse y bRclick

[rolitocere]

Hola

Necesito hacer que si presiono el botón derecho del mouse sobre una columna, se abra un menú de opciones pero no logro capturar este evento.

Algo así como

Code: Select all  Expand view

oBrw:aCols[1]:bRclick:={|| MiFuncion() }

¿Cómo puedo hacerlo?. Gracias.

Rolis

[groiss]

Rolis, te dejo un ejemplo:

Code: Select all  Expand view

  obrw:bRClicked := { | nRow, nCol | menuayutec(nrow, ncol, obrw ) }
 

Espero que sea esto lo que buscas.
Un saludo
José Luis

[rolitocere]

José Luis,

No es justo lo que necesito, pero me diste una idea para lograrlo.

Lo que necesito es que mi función se ejecute cuando haga Rclick sobre la columna 1 del xBrowse. Logré hacerlo así:

Code: Select all  Expand view

obrw:bRClicked := { | nRow, nCol | if(nCol>25 .and. nCol<175 , MiFuncion() , ) }

Muchas gracias por responder.

Saludos.

Rolis

[AIDA]

Hola


Yo lo tengo a si

Saluditos

Code: Select all  Expand view

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

//----------------------------------------------------------------------------//

function ShowPopup( nRow, nCol, oBrw )

   local oPopup, oFont

   MENU oPopup POPUP
      MENUITEM "Tipo de letra." ACTION oBrw:SelFont()
        MENUITEM "Consulta rapida."
        MENUITEM "Reporte rapido."
   ENDMENU

   ACTIVATE POPUP oPopup OF oBrw AT nRow, nCol

return nil

//----------------------------------------------------------------------------//
 

[nageswaragunupudi]

Simpler way:

Code: Select all  Expand view

oBrw:bPopUp := { |oCol| MyPopUp( oCol ) }

.....
......

static function MyPopUp( oCol )

   local oPop

   MENU oPop POPUP 2007
       MENUITEM 'Right Align' ACTION oCol:nDataStrAlign := AL_RIGHT
       ,,,,,
   ENDMENU

return oPop


 

or

Code: Select all  Expand view

oCol:bPopUp := { |o| MyPopUp( o ) }

There is no need to use bRClicked.