FiveTech Software tech support forums

Posted: **Thu Dec 13, 2007 5:45 pm**

hi, i receive this:

Error description: Error BASE/1070 Erro nos parametros: ==
Args:
[ 1] = C
[ 2] = N 0

Stack Calls
===========
Called from: TGET.prg => TBTNGET:KEYDOWN(682)
Called from: => TWINDOW:HANDLEEVENT(0)
Called from: CONTROL.prg => TCONTROL:HANDLEEVENT(1392)
Called from: TGET.prg => TBTNGET:HANDLEEVENT(486)
Called from: WINDOW.prg => _FWH(3267)

theres any fix? thanks

Posted: **Thu Dec 13, 2007 7:51 pm**

Norberto,

What source code do you have in line 682 ?

TBTNGET:KEYDOWN(682)

Posted: **Thu Dec 13, 2007 10:35 pm**

Antonio, this:

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

i comment this , and works again, but i dont know what´s affect.

thanks

Posted: **Thu Dec 13, 2007 11:09 pm**

Where is teh TBtnGet Class? It is not in FWH.

Posted: **Fri Dec 14, 2007 12:32 am**

BtnGet is an 3rd part lib , free, i compile the source. works fine until fwh712.

Posted: **Fri Dec 14, 2007 12:38 am**

Norberto,

Please modify Class TGet this way:

Code: Select all

   if ::bKeyDown != nil
      if ValType( uVal := Eval( ::bKeyDown, nKey, nFlags, Self ) ) == "N" .and. ;
         uVal == 0
         return 0
      endif   
   endif

Posted: **Fri Dec 14, 2007 5:33 am**

\source\btnget.prg

line 128:
change
::bKeyDown := { | nKey | IIF( nKey == VK_F2, ;
eval( ::bAction ), "") }

into

::bKeyDown := { | nKey | IIF( nKey == VK_F2, ;
eval( ::bAction ), ) }

Regards!

Shuming Wang

FiveTech Software tech support forums

error btnget and fwh712

error btnget and fwh712