xbrowser EDIT_BUTTON y VK_DELETE?

xbrowser EDIT_BUTTON y VK_DELETE?

Postby goosfancito » Sun Oct 17, 2021 3: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: Select all  Expand view
  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
  ::oBrw:bKeyDown := { | nkey | iif(nkey == VK_DELETE, ::eliminarItem(),)}
FWH 21.02
Harbour 3.2.0dev (r2104281802)
Copyright (c) 1999-2021, https://harbour.github.io/
User avatar
goosfancito
 
Posts: 1954
Joined: Fri Oct 07, 2005 7:08 pm

Re: xbrowser EDIT_BUTTON y VK_DELETE?

Postby karinha » Sun Oct 17, 2021 7:40 pm

Intenta asi:

Code: Select all  Expand view

 ::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
User avatar
karinha
 
Posts: 7214
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Re: xbrowser EDIT_BUTTON y VK_DELETE?

Postby goosfancito » Sun Oct 17, 2021 8:52 pm

karinha wrote:Intenta asi:

Code: Select all  Expand view

 ::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/
User avatar
goosfancito
 
Posts: 1954
Joined: Fri Oct 07, 2005 7:08 pm

Re: xbrowser EDIT_BUTTON y VK_DELETE?

Postby cnavarro » Sun Oct 17, 2021 9:27 pm

Recuerda que uno de los parametros que recibe ese codeblock es:
Code: Select all  Expand view

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
User avatar
cnavarro
 
Posts: 6500
Joined: Wed Feb 15, 2012 8:25 pm
Location: España

Re: xbrowser EDIT_BUTTON y VK_DELETE?

Postby goosfancito » Mon Oct 18, 2021 4:56 pm

cnavarro wrote:Recuerda que uno de los parametros que recibe ese codeblock es:
Code: Select all  Expand view

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/
User avatar
goosfancito
 
Posts: 1954
Joined: Fri Oct 07, 2005 7:08 pm

Re: xbrowser EDIT_BUTTON y VK_DELETE?

Postby karinha » Mon Oct 18, 2021 7:33 pm

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
User avatar
karinha
 
Posts: 7214
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: VitalJavier and 83 guests