equal
deleted
inserted
replaced
28 function KeyNameToCode(name: shortstring): LongInt; inline; |
28 function KeyNameToCode(name: shortstring): LongInt; inline; |
29 function KeyNameToCode(name: shortstring; Modifier: shortstring): LongInt; |
29 function KeyNameToCode(name: shortstring; Modifier: shortstring): LongInt; |
30 //procedure MaskModifier(var code: LongInt; modifier: LongWord); |
30 //procedure MaskModifier(var code: LongInt; modifier: LongWord); |
31 procedure MaskModifier(Modifier: shortstring; var code: LongInt); |
31 procedure MaskModifier(Modifier: shortstring; var code: LongInt); |
32 procedure ProcessMouse(event: TSDL_MouseButtonEvent; ButtonDown: boolean); |
32 procedure ProcessMouse(event: TSDL_MouseButtonEvent; ButtonDown: boolean); |
33 procedure ProcessMouseWheel(x, y: LongInt); |
33 //procedure ProcessMouseWheel(x, y: LongInt); |
|
34 procedure ProcessMouseWheel(y: LongInt); |
34 procedure ProcessKey(event: TSDL_KeyboardEvent); inline; |
35 procedure ProcessKey(event: TSDL_KeyboardEvent); inline; |
35 procedure ProcessKey(code: LongInt; KeyDown: boolean); |
36 procedure ProcessKey(code: LongInt; KeyDown: boolean); |
36 |
37 |
37 procedure ResetKbd; |
38 procedure ResetKbd; |
38 procedure ResetMouseWheel; |
39 procedure ResetMouseWheel; |
230 end; |
231 end; |
231 end; |
232 end; |
232 |
233 |
233 var mwheelupCode, mwheeldownCode: Integer; |
234 var mwheelupCode, mwheeldownCode: Integer; |
234 |
235 |
235 procedure ProcessMouseWheel(x, y: LongInt); |
236 //procedure ProcessMouseWheel(x, y: LongInt); |
236 begin |
237 procedure ProcessMouseWheel(y: LongInt); |
|
238 begin |
|
239 // we don't use |
237 //writelntoconsole('[MOUSEWHEEL] '+inttostr(x)+', '+inttostr(y)); |
240 //writelntoconsole('[MOUSEWHEEL] '+inttostr(x)+', '+inttostr(y)); |
238 if y > 0 then |
241 if y > 0 then |
239 begin |
242 begin |
240 // reset other direction |
243 // reset other direction |
241 if tkbd[mwheeldownCode] then |
244 if tkbd[mwheeldownCode] then |