equal
deleted
inserted
replaced
208 end; |
208 end; |
209 |
209 |
210 procedure ProcessKey(event: TSDL_KeyboardEvent); inline; |
210 procedure ProcessKey(event: TSDL_KeyboardEvent); inline; |
211 var code: LongInt; |
211 var code: LongInt; |
212 begin |
212 begin |
213 code:= event.keysym.scancode; |
213 // TODO |
|
214 code:= LongInt(event.keysym.scancode); |
214 //writelntoconsole('[KEY] '+inttostr(code)+ ' -> ''' +KeyNames[code] + ''', type = '+inttostr(event.type_)); |
215 //writelntoconsole('[KEY] '+inttostr(code)+ ' -> ''' +KeyNames[code] + ''', type = '+inttostr(event.type_)); |
215 ProcessKey(code, event.type_ = SDL_KEYDOWN); |
216 ProcessKey(code, event.type_ = SDL_KEYDOWN); |
216 end; |
217 end; |
217 |
218 |
218 procedure ProcessMouse(event: TSDL_MouseButtonEvent; ButtonDown: boolean); |
219 procedure ProcessMouse(event: TSDL_MouseButtonEvent; ButtonDown: boolean); |
313 KeyNames[cKeyMaxIndex - 3]:= 'wheelup'; |
314 KeyNames[cKeyMaxIndex - 3]:= 'wheelup'; |
314 KeyNames[cKeyMaxIndex - 4]:= 'wheeldown'; |
315 KeyNames[cKeyMaxIndex - 4]:= 'wheeldown'; |
315 |
316 |
316 for i:= 0 to cKeyMaxIndex - 5 do |
317 for i:= 0 to cKeyMaxIndex - 5 do |
317 begin |
318 begin |
318 s:= shortstring(SDL_GetScancodeName(i)); |
319 s:= shortstring(SDL_GetScancodeName(TSDL_Scancode(i))); |
319 |
320 |
320 for t:= 1 to Length(s) do |
321 for t:= 1 to Length(s) do |
321 if s[t] = ' ' then |
322 if s[t] = ' ' then |
322 s[t]:= '_'; |
323 s[t]:= '_'; |
323 KeyNames[i]:= LowerCase(s) |
324 KeyNames[i]:= LowerCase(s) |