Page 1 of 1

fwh712 btnget - tget.prg- bkeydown error

Posted: Sun Dec 02, 2007 5:18 am
by ShumingWang
Hi,
Input chars to btnget, call from Tget.prg,

METHOD KeyDown( nKey, nFlags ) CLASS TGet

add the lines compare to v7.11
if ::bKeyDown != nil
if Eval( ::bKeyDown, nKey, nFlags, Self ) == 0 //Runtime Error description: Error BASE/1070 Argument error: ==
return 0
endif
endif

Best Regards!
Shuming Wang

Posted: Sun Dec 02, 2007 8:17 am
by Antonio Linares
Shuming,

You have to modify bKeyDown in BtnGet so it returns nil or a number

Posted: Sun Dec 02, 2007 9:20 am
by ShumingWang
Antonio,
Done.
Thanks !
Shuming Wang