error btnget and fwh712

norberto · Post by **norberto** » 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

Post by **Antonio Linares** » Thu Dec 13, 2007 7:51 pm

Norberto,

What source code do you have in line 682 ?

TBTNGET:KEYDOWN(682)

norberto · Post by **norberto** » 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

Post by **nageswaragunupudi** » Thu Dec 13, 2007 11:09 pm

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

norberto · Post by **norberto** » Fri Dec 14, 2007 12:32 am

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

Post by **Antonio Linares** » Fri Dec 14, 2007 12:38 am

Norberto,

Please modify Class TGet this way:

Code: Select all | Expand

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

ShumingWang · Post by **ShumingWang** » 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