equal
deleted
inserted
replaced
77 enterKey: boolean; |
77 enterKey: boolean; |
78 tabKey: boolean; |
78 tabKey: boolean; |
79 |
79 |
80 chatAction: boolean; |
80 chatAction: boolean; |
81 pauseAction: boolean; |
81 pauseAction: boolean; |
82 switchAction: boolean; |
82 |
83 |
|
84 cursorUp: boolean; |
|
85 cursorDown: boolean; |
|
86 cursorLeft: boolean; |
|
87 cursorRight: boolean; |
|
88 {$IFDEF IPHONEOS} |
83 {$IFDEF IPHONEOS} |
89 procedure setiPhoneBinds; |
84 procedure setiPhoneBinds; |
90 {$ENDIF} |
85 {$ENDIF} |
91 {$ENDIF} |
86 {$ENDIF} |
92 implementation |
87 implementation |
344 DefaultBinds[25]:= '+left'; |
339 DefaultBinds[25]:= '+left'; |
345 DefaultBinds[26]:= '+right'; |
340 DefaultBinds[26]:= '+right'; |
346 DefaultBinds[27]:= '+precise'; |
341 DefaultBinds[27]:= '+precise'; |
347 DefaultBinds[44]:= 'chat'; |
342 DefaultBinds[44]:= 'chat'; |
348 DefaultBinds[55]:= 'pause'; |
343 DefaultBinds[55]:= 'pause'; |
349 DefaultBinds[66]:= '+cur_u'; |
|
350 DefaultBinds[67]:= '+cur_d'; |
|
351 DefaultBinds[68]:= '+cur_l'; |
|
352 DefaultBinds[69]:= '+cur_r'; |
|
353 {$ELSE} |
344 {$ELSE} |
354 DefaultBinds[KeyNameToCode('up')]:= '+up'; |
345 DefaultBinds[KeyNameToCode('up')]:= '+up'; |
355 DefaultBinds[KeyNameToCode('down')]:= '+down'; |
346 DefaultBinds[KeyNameToCode('down')]:= '+down'; |
356 DefaultBinds[KeyNameToCode('left')]:= '+left'; |
347 DefaultBinds[KeyNameToCode('left')]:= '+left'; |
357 DefaultBinds[KeyNameToCode('right')]:= '+right'; |
348 DefaultBinds[KeyNameToCode('right')]:= '+right'; |
389 tkbdn[13]:= ord(enterKey); |
380 tkbdn[13]:= ord(enterKey); |
390 tkbdn[32]:= ord(spaceKey); |
381 tkbdn[32]:= ord(spaceKey); |
391 |
382 |
392 tkbdn[44]:= ord(chatAction); |
383 tkbdn[44]:= ord(chatAction); |
393 tkbdn[55]:= ord(pauseAction); |
384 tkbdn[55]:= ord(pauseAction); |
394 //tkbdn[100]:= ord(switchAction); |
|
395 |
|
396 tkbdn[66]:= ord(cursorUp); |
|
397 tkbdn[67]:= ord(cursorDown); |
|
398 tkbdn[68]:= ord(cursorLeft); |
|
399 tkbdn[69]:= ord(cursorRight); |
|
400 |
385 |
401 // set to false the keys that only need one stoke |
386 // set to false the keys that only need one stoke |
402 leftClick:= false; |
387 leftClick:= false; |
403 middleClick:= false; |
388 middleClick:= false; |
404 rightClick:= false; |
389 rightClick:= false; |
407 enterKey:= false; |
392 enterKey:= false; |
408 backspaceKey:= false; |
393 backspaceKey:= false; |
409 |
394 |
410 chatAction:= false; |
395 chatAction:= false; |
411 pauseAction:= false; |
396 pauseAction:= false; |
412 //switchAction:= false; |
|
413 end; |
397 end; |
414 {$ENDIF} |
398 {$ENDIF} |
415 |
399 |
416 procedure FreezeEnterKey; |
400 procedure FreezeEnterKey; |
417 begin |
401 begin |
532 tabKey:= false; |
516 tabKey:= false; |
533 |
517 |
534 // other key emulation |
518 // other key emulation |
535 chatAction:= false; |
519 chatAction:= false; |
536 pauseAction:= false; |
520 pauseAction:= false; |
537 switchAction:= false; |
|
538 |
|
539 // cursor emulation |
|
540 cursorUp:= false; |
|
541 cursorDown:= false; |
|
542 cursorLeft:= false; |
|
543 cursorRight:= false; |
|
544 |
|
545 {$ENDIF} |
521 {$ENDIF} |
546 end; |
522 end; |
547 |
523 |
548 procedure freeModule; |
524 procedure freeModule; |
549 begin |
525 begin |