topic-40936

Posts: 1956

Joined: Fri Oct 07, 2005 07:08 PM

xbrowser EDIT_BUTTON y VK_DELETE?
Posted: Sun Oct 17, 2021 03:25 PM

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

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

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

FWH 21.02
Harbour 3.2.0dev (r2104281802)
Copyright (c) 1999-2021, https://harbour.github.io/

karinha

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Re: xbrowser EDIT_BUTTON y VK_DELETE?
Posted: Sun Oct 17, 2021 07:40 PM

Intenta asi:

Code (fw): Select all Collapse

 ::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.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

goosfancito

Posts: 1956

Joined: Fri Oct 07, 2005 07:08 PM

Re: xbrowser EDIT_BUTTON y VK_DELETE?
Posted: Sun Oct 17, 2021 08:52 PM

karinha wrote:Intenta asi:

Code (fw): Select all Collapse

 ::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()?

FWH 21.02
Harbour 3.2.0dev (r2104281802)
Copyright (c) 1999-2021, https://harbour.github.io/

cnavarro

Posts: 6755

Joined: Wed Feb 15, 2012 08:25 PM

Re: xbrowser EDIT_BUTTON y VK_DELETE?
Posted: Sun Oct 17, 2021 09:27 PM

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

Code (fw): Select all Collapse

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

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces

goosfancito

Posts: 1956

Joined: Fri Oct 07, 2005 07:08 PM

Re: xbrowser EDIT_BUTTON y VK_DELETE?
Posted: Mon Oct 18, 2021 04:56 PM

cnavarro wrote:Recuerda que uno de los parametros que recibe ese codeblock es:
Code (fw): Select all Collapse
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.

FWH 21.02
Harbour 3.2.0dev (r2104281802)
Copyright (c) 1999-2021, https://harbour.github.io/

karinha

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Re: xbrowser EDIT_BUTTON y VK_DELETE?
Posted: Mon Oct 18, 2021 07:33 PM

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

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

FiveTech Support Forums

Continue the discussion