Hi Rodrigo Duarte Bruscain,
FoxcodePlus - Workaround for Fast Typing + Spacebar
* Foxcodeplus.prg
Procedure SelectItem
*- se pressionei ENTER or SPACE
Case Inlist(plnKeyAscii, 13, 32)
waitabit(100) && New line
Keyboard Chr(plnKeyAscii) Plain
* New Function at the end of "foxcodeplus.prg"
* Start
Function waitabit
****
Lparameters tndelay
Declare Sleep In kernel32 Integer
Sleep(tndelay)
Clear Dlls 'SLEEP'
* End
*- functions created to avoid errors
Procedure _EdGetPos
Procedure _EDPOSINVI
Procedure _EdGetChar
Procedure _wSelect
Procedure _wontop
Procedure _EdGetEnv
Procedure _EdSetEnv
Procedure _WZOOM
Procedure _wtitle
Procedure _EdGetLNum
Procedure _EdGetLPos
Procedure _EdGetStr
Procedure _EdSelect
Procedure _EdDelete
Procedure _EdInsert
Procedure _EdSetPos
Procedure _WHTOHWND
Procedure _EDSTOSEL
Procedure _WLEFT
*unbindevents(0, WM_KEYUP)
*sys(2030,1)
*set step on
Warm regards,
mk.
FoxcodePlus - Workaround for Fast Typing + Spacebar
* Foxcodeplus.prg
Procedure SelectItem
*- se pressionei ENTER or SPACE
Case Inlist(plnKeyAscii, 13, 32)
waitabit(100) && New line
Keyboard Chr(plnKeyAscii) Plain
* New Function at the end of "foxcodeplus.prg"
* Start
Function waitabit
****
Lparameters tndelay
Declare Sleep In kernel32 Integer
Sleep(tndelay)
Clear Dlls 'SLEEP'
* End
*- functions created to avoid errors
Procedure _EdGetPos
Procedure _EDPOSINVI
Procedure _EdGetChar
Procedure _wSelect
Procedure _wontop
Procedure _EdGetEnv
Procedure _EdSetEnv
Procedure _WZOOM
Procedure _wtitle
Procedure _EdGetLNum
Procedure _EdGetLPos
Procedure _EdGetStr
Procedure _EdSelect
Procedure _EdDelete
Procedure _EdInsert
Procedure _EdSetPos
Procedure _WHTOHWND
Procedure _EDSTOSEL
Procedure _WLEFT
*unbindevents(0, WM_KEYUP)
*sys(2030,1)
*set step on
Warm regards,
mk.