Capturar tecla en xbrowse?

[FranciscoA]

Amigos.
No logro capturar cuando se presionan las teclas VK_UP y VK_DOWN en xBrowse.

Esto no funciona:

Code: Select all  Expand view

oBrw:bKeyDown  := { | nKey | if( nKey = VK_DOWN .or. nKey = VK_UP, MsgInfo(nKey), ) }

He visto infinidad de ejemplos en el foro, pero lo mismo... no funcionan.

Alguno puede postear un ejemplo funcional, o unicamente el codigo pertinente?
Gracias de antemano.

[cnavarro]

Francisco, modifica el metodo asi

Code: Select all  Expand view

METHOD KeyDown( nKey, nFlags ) CLASS TXBrowse

   local oCol
   local uRet

   if Valtype( ::bKeyDown ) = "B"
      uRet  := EVal( ::bKeyDown, nKey, nFlags, Self )  //, ::SelectedCol()
      if ValType( uRet ) == 'N' .and. uRet == 0
         return 0
      endif
   endif

   if ! ::lScreenUpdating
      return ::Super:KeyDown( nKey, nFlags )
   endif

   ::CloseMessage()

   do case
   case nKey == VK_ESCAPE

.../...
 

y cuando lo uses, podrás hacerlo así:

Code: Select all  Expand view

    // Ejecuta el MsgInfo y después ejecutaría la accion por defecto de la tecla VK_DOWN o VK_UP
                             oBrw:bKeyDown := { | nKey | if( nKey = VK_DOWN .or. nKey = VK_UP, ( MsgInfo(nKey), 1 ) , ) }
 

o asi ( como ves, dependiendo de lo que devuelvas: 0 ó 1 )

Code: Select all  Expand view

    // Ejecuta el MsgInfo y termina ( vuelve )
                             oBrw:bKeyDown := { | nKey | if( nKey = VK_DOWN .or. nKey = VK_UP, ( MsgInfo(nKey), 0 ) , ) }
 

[FranciscoA]

Cristobal.
Trabajé en una copia de txBrowse.prg, y funciona bien, aunque tuve que omitirle la parte ::CloseMessage() porque daba error.
Muchas gracias.

[cnavarro]

Posiblemente ese método no existe en la clase que estás utilizando.
Saludos

[FranciscoA]

Maestro.
Es correcto, En mi version de xbrowse no aparece.
Many thanks