Code: Select all
DebugPrint("Test:")
Function p_KeyDownFunc()
DebugPrint("DOWN")
EndFunction
Function p_KeyUpFunc()
DebugPrint("UP")
EndFunction
InstallEventHandler({OnKeyDown=p_KeyDownFunc, OnKeyUp=p_KeyUpFunc})
Code: Select all
DebugPrint("Test:")
Function p_KeyDownFunc()
DebugPrint("DOWN")
EndFunction
Function p_KeyUpFunc()
DebugPrint("UP")
EndFunction
InstallEventHandler({OnKeyDown=p_KeyDownFunc, OnKeyUp=p_KeyUpFunc})
Code: Select all
DebugPrint("Test:")
Function p_KeyUpFunc(msg)
Local TempKey$=msg.userdata
If TempKey$=" " Then TempKey$="SPACE"
If IsKeyDown(TempKey$)
SetTimeout(1, p_KeyUpFunc, 40, TempKey$)
Return()
EndIf
DebugPrint("UP")
EndFunction
Function p_KeyDownFunc(msg)
SetTimeout(1, p_KeyUpFunc, 40, msg.key)
DebugPrint("DOWN")
EndFunction
InstallEventHandler({OnKeyDown=p_KeyDownFunc})