equal
deleted
inserted
replaced
35 procedure ProcessMouse(event: TSDL_MouseButtonEvent; ButtonDown: boolean); |
35 procedure ProcessMouse(event: TSDL_MouseButtonEvent; ButtonDown: boolean); |
36 //procedure ProcessMouseWheel(x, y: LongInt); |
36 //procedure ProcessMouseWheel(x, y: LongInt); |
37 procedure ProcessMouseWheel(y: LongInt); |
37 procedure ProcessMouseWheel(y: LongInt); |
38 procedure ProcessKey(event: TSDL_KeyboardEvent); inline; |
38 procedure ProcessKey(event: TSDL_KeyboardEvent); inline; |
39 procedure ProcessKey(code: LongInt; KeyDown: boolean); |
39 procedure ProcessKey(code: LongInt; KeyDown: boolean); |
|
40 |
|
41 {$IFDEF USE_AM_NUMCOLUMN} |
|
42 function CheckDefaultSlotKeys: boolean; |
|
43 {$ENDIF} |
40 |
44 |
41 procedure ResetKbd; |
45 procedure ResetKbd; |
42 procedure ResetMouseWheel; |
46 procedure ResetMouseWheel; |
43 procedure FreezeEnterKey; |
47 procedure FreezeEnterKey; |
44 procedure InitKbdKeyTable; |
48 procedure InitKbdKeyTable; |
486 |
490 |
487 InitDefaultBinds |
491 InitDefaultBinds |
488 end; |
492 end; |
489 |
493 |
490 |
494 |
|
495 {$IFDEF USE_AM_NUMCOLUMN} |
|
496 function CheckDefaultSlotKeys: boolean; |
|
497 {$IFDEF USE_TOUCH_INTERFACE} |
|
498 begin |
|
499 CheckDefaultSlotKeys:= false; |
|
500 {$ELSE} |
|
501 var i, code: LongInt; |
|
502 begin |
|
503 WriteLnToConsole('Check'); |
|
504 for i:=1 to cMaxSlotIndex do |
|
505 begin |
|
506 code:= KeyNameToCode('f'+IntToStr(i)); |
|
507 WriteLnToConsole('f'+IntToStr(i)); |
|
508 WriteLnToConsole(CurrentBinds.binds[CurrentBinds.indices[code]]); |
|
509 if CurrentBinds.binds[CurrentBinds.indices[code]] <> 'slot '+char(i+48) then |
|
510 begin |
|
511 WriteLnToConsole('false'); |
|
512 CheckDefaultSlotKeys:= false; |
|
513 exit; |
|
514 end; |
|
515 end; |
|
516 WriteLnToConsole('true'); |
|
517 CheckDefaultSlotKeys:= true; |
|
518 {$ENDIF} |
|
519 end; |
|
520 {$ENDIF} |
491 |
521 |
492 {$IFNDEF MOBILE} |
522 {$IFNDEF MOBILE} |
493 procedure SetBinds(var binds: TBinds); |
523 procedure SetBinds(var binds: TBinds); |
494 var |
524 var |
495 t: LongInt; |
525 t: LongInt; |