fwh712 btnget - tget.prg- bkeydown error
Posted: 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
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