FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour error btnget and fwh712
Posts: 566
Joined: Thu Aug 30, 2007 03:40 PM
error btnget and fwh712
Posted: Thu Dec 13, 2007 05: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

Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM
error btnget and fwh712
Posted: Thu Dec 13, 2007 07:51 PM

Norberto,

What source code do you have in line 682 ?

TBTNGET:KEYDOWN(682)

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 566
Joined: Thu Aug 30, 2007 03:40 PM
error btnget and fwh712
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

Posts: 10733
Joined: Sun Nov 19, 2006 05:22 AM
error btnget and fwh712
Posted: Thu Dec 13, 2007 11:09 PM

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

Regards



G. N. Rao.

Hyderabad, India
Posts: 566
Joined: Thu Aug 30, 2007 03:40 PM
error btnget and fwh712
Posted: Fri Dec 14, 2007 12:32 AM

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

Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM
error btnget and fwh712
Posted: Fri Dec 14, 2007 12:38 AM
Norberto,

Please modify Class TGet this way:
   if ::bKeyDown != nil
      if ValType( uVal := Eval( ::bKeyDown, nKey, nFlags, Self ) ) == "N" .and. ;
         uVal == 0
         return 0
      endif   
   endif
regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 474
Joined: Sun Oct 30, 2005 06:37 AM
error btnget and fwh712
Posted: Fri Dec 14, 2007 05: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

http://www.xtech2.top
Mobile:(86)13802729058
Email:100200651@qq.com
QQ:100200651
Weixin: qq100200651

Continue the discussion