fwh712 btnget - tget.prg- bkeydown error

ShumingWang · Post by **ShumingWang** » Sun Dec 02, 2007 5:18 am

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

Post by **Antonio Linares** » Sun Dec 02, 2007 8:17 am

Shuming,

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

ShumingWang · Post by **ShumingWang** » Sun Dec 02, 2007 9:20 am

Antonio,
Done.
Thanks !
Shuming Wang