xBrowse

[Mike Serra]

tengo un xbrowse en una ventana y no se porque capturando el metodo
bkeydown me ejecuta el resultado 2 veces, es decir:

Code: Select all  Expand view

...
...
::oBrowse:bKeydown:={|nkey|press_on_browse(nKey,self)}
...
...

function press_on_browse(nKey,self)
        do case
            case nkey = VK_F2 .and. ::lInsertButton
                ::lInsertMode:=.t.
                ::lModifyMode:=.f.
                ::Insert()
            case nkey = VK_F3 .and. ::lModifyButton
                ::lInsertMode:=.f.
                ::lModifyMode:=.t.
                ::Modify()
            case nkey = VK_F4 .and. ::lDeleteButton
                ::Delete()
            case nkey = VK_F5 .and. ::lSearchButton
                ::Search()
            case nkey = VK_F6 .and. ::lListButton
                ::List()
            case nkey = VK_ESCAPE
                ::Destroy()
        end case
return


con este código, si pulso sobre F2 entra 2 veces en Insert()

¿Que puede ser?

Muchas Gracias Foro!!

[Antonio Linares]

Mike,

En la Clase TXBrowse realiza esta modificación:

Code: Select all  Expand view

METHOD KeyDown( nKey, nFlags ) CLASS TXBrowse

   if ::bKeyDown != nil
      Eval( ::bKeyDown, nKey, nFlags )
      return nil
   endif   

   ...


[Antonio Linares]

Mike,

Mejor, preferiblemente, elimina esas líneas:

Code: Select all  Expand view

   if ::bKeyDown != nil
      Eval( ::bKeyDown, nKey, nFlags )
   endif   


[Mike Serra]

Funcionó correctamente, Gracias Antonio