equal
deleted
inserted
replaced
49 while (Result > 0) and (KeyNames[Result] <> name) do dec(Result); |
49 while (Result > 0) and (KeyNames[Result] <> name) do dec(Result); |
50 KeyNameToCode:= Result |
50 KeyNameToCode:= Result |
51 end; |
51 end; |
52 |
52 |
53 procedure ProcessKbd; |
53 procedure ProcessKbd; |
54 var i: integer; |
54 var i: LongInt; |
55 s: shortstring; |
55 s: shortstring; |
56 pkbd: PByteArray; |
56 pkbd: PByteArray; |
57 Trusted: boolean; |
57 Trusted: boolean; |
58 begin |
58 begin |
59 KbdKeyPressed:= false; |
59 KbdKeyPressed:= false; |
84 tkbd[i]:= pkbd^[i] |
84 tkbd[i]:= pkbd^[i] |
85 end |
85 end |
86 end; |
86 end; |
87 |
87 |
88 procedure ResetKbd; |
88 procedure ResetKbd; |
89 var i, t: integer; |
89 var i, t: LongInt; |
90 pkbd: PByteArray; |
90 pkbd: PByteArray; |
91 begin |
91 begin |
92 pkbd:= PByteArray(SDL_GetKeyState(@i)); |
92 pkbd:= PByteArray(SDL_GetKeyState(@i)); |
93 TryDo(i < cKeyMaxIndex, 'SDL keys number is more than expected (' + inttostr(i) + ')', true); |
93 TryDo(i < cKeyMaxIndex, 'SDL keys number is more than expected (' + inttostr(i) + ')', true); |
94 for t:= 0 to Pred(i) do |
94 for t:= 0 to Pred(i) do |
95 tkbd[i]:= pkbd^[i] |
95 tkbd[i]:= pkbd^[i] |
96 end; |
96 end; |
97 |
97 |
98 procedure InitKbdKeyTable; |
98 procedure InitKbdKeyTable; |
99 var i, t: integer; |
99 var i, t: LongInt; |
100 s: string[15]; |
100 s: string[15]; |
101 begin |
101 begin |
102 KeyNames[1]:= 'mousel'; |
102 KeyNames[1]:= 'mousel'; |
103 KeyNames[2]:= 'mousem'; |
103 KeyNames[2]:= 'mousem'; |
104 KeyNames[3]:= 'mouser'; |
104 KeyNames[3]:= 'mouser'; |