FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour BtnGet
Posts: 297
Joined: Fri Apr 14, 2006 05:52 PM
BtnGet
Posted: Sun Jan 06, 2008 06:38 AM

Buenas foros, espero que os hayan traido muchas cosas los reyes magos, :) , yo me conformo con la clase btnget32. Me la bajé de http://www.box.net/shared/lck9effuyn#1:6315754, y tengo un problema, y es que cuando pulso sobre F2 que es la tecla que tiene asociada la ejecucion del ACTION, me ejecuta la funcion del action 2 veces, sin embargo si pulso el boton en vez del F2 funciona correctamente.

MUCHAS GRACIAS

FWH 7.12 + xHarbour

Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM
BtnGet
Posted: Sun Jan 06, 2008 07:22 AM

Mike,

Modifica esta línea en la clase TBtnGet:

::bKeyDown := { | nKey | If( nKey == VK_F2, ( Eval( ::bAction ), 0 ),) }

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 297
Joined: Fri Apr 14, 2006 05:52 PM
BtnGet
Posted: Sun Jan 06, 2008 07:26 AM

Buenos Dias Antonio, y Gracias, funciono perfecto.

Saludos.

Continue the discussion