topic-19178

Posts: 41

Joined: Wed Sep 23, 2009 11:50 AM

xBrowse y bRclick
Posted: Mon Jun 28, 2010 11:47 PM

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 (fw): Select all Collapse

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

¿Cómo puedo hacerlo?. Gracias.

Rolis

groiss

Posts: 234

Joined: Tue Sep 01, 2009 07:55 AM

Re: xBrowse y bRclick
Posted: Tue Jun 29, 2010 06:54 AM

Rolis, te dejo un ejemplo:

Code (fw): Select all Collapse

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

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

rolitocere

Posts: 41

Joined: Wed Sep 23, 2009 11:50 AM

Re: xBrowse y bRclick
Posted: Tue Jun 29, 2010 04:21 PM

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 (fw): Select all Collapse

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

Muchas gracias por responder.

Saludos.

Rolis

AIDA

Posts: 880

Joined: Fri Jan 12, 2007 08:35 PM

Re: xBrowse y bRclick
Posted: Wed Jun 30, 2010 01:02 AM

Hola

Yo lo tengo a si

Saluditos

Code (fw): Select all Collapse

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

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

Que es mejor que programar? creo que nada :)
Atropellada pero aqui ando :P

I love Fivewin

séʌǝɹ ןɐ ɐʇsǝ opunɯ ǝʇsǝ

nageswaragunupudi

Posts: 10733

Joined: Sun Nov 19, 2006 05:22 AM

Re: xBrowse y bRclick
Posted: Sat Jul 03, 2010 01:53 PM

Simpler way:

Code (fw): Select all Collapse

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 (fw): Select all Collapse

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

There is no need to use bRClicked.

Regards

G. N. Rao.

Hyderabad, India

FiveTech Support Forums

Continue the discussion