xbrowser EDIT_BUTTON y VK_DELETE?

[goosfancito]

Hola. tengo este codigo que lo que deseo hacer es que cuando presione la tecla VK_DELETE me vaya a un método que
se llama ::eliminarItem()

Code: Select all  Expand view  RUN

  WITH OBJECT ::oBrw
      :aCols[ 2 ]:oDataFont     := oFont1
      :aCols[ 2 ]:nHeadStrAlign := AL_CENTER
      :aCols[ 2 ]:oHeaderFont   := oFont1
      :aCols[ 2 ]:cHeader       := "Descripcion"
      :aCols[ 2 ]:nWidth        := 450

      :aCols[ 2 ]:nEditType     := EDIT_BUTTON

      :aCols[ 2 ]:bEditBlock    := { | oCol | ;
                                     ::productos(), ;
                                     ::oBrw:Refresh(), ;
                                     ::oBrw:setfocus() ;
                                   }
 

mas abajo en la misma definicion del xbroowser capturo la tecla presionada, pero siempre "antes" de ir al metodo ::eliminarItem() salta el metodo "productos()"

Code: Select all  Expand view  RUN

  ::oBrw:bKeyDown := { | nkey | iif(nkey == VK_DELETE, ::eliminarItem(),)}

[karinha]

Intenta asi:

Code: Select all  Expand view  RUN

 ::oBrw:bKeyDown   := { |nKey| If( nKey == VK_DELETE, ( ::EliminarItem() ), NIL ) }
 ::oBrw:bKeyChar   := { |nKey| If( nKey == VK_ESCAPE, ( ::oBrw:Seek( "" ), ::oDlg:End() ), NIL ) }
 ::oBrw:bLDblClick := { || ::EliminarItem(), ::oDlg:End() }
 

Regards, saludos.

[goosfancito]

Intenta asi:

Code: Select all  Expand view  RUN

 ::oBrw:bKeyDown   := { |nKey| If( nKey == VK_DELETE, ( ::EliminarItem() ), NIL ) }
 ::oBrw:bKeyChar   := { |nKey| If( nKey == VK_ESCAPE, ( ::oBrw:Seek( "" ), ::oDlg:End() ), NIL ) }
 ::oBrw:bLDblClick := { || ::EliminarItem(), ::oDlg:End() }
 

Regards, saludos.

y donde pongo el codigo que ejecuta el metodo ::productos()?

[cnavarro]

Recuerda que uno de los parametros que recibe ese codeblock es:

Code: Select all  Expand view  RUN

bEditBlock := { | nRow, nCol, oCol, nKey | ...
 

[goosfancito]

Recuerda que uno de los parametros que recibe ese codeblock es:

Code: Select all  Expand view  RUN

bEditBlock := { | nRow, nCol, oCol, nKey | ...
 

no me funciona como quiero.
yo quiero que al presionar la tecla DELETE me elimine los datos de la linea, y cuando presiono sobre el boton de los ... aparezca el dialogo para agregar un producto.

[karinha]

http://forums.fivetechsupport.com/viewtopic.php?f=3&t=37294&p=222707&hilit=bEditBlock&sid=57058534e0858dc2d58a0e49a7095c14&sid=0b5773a3ee5e91972e8704269f55e9a9#p222707