| changeset 7850 | fcbb024090a4 |
| parent 7246 | 7773a1c92e1b |
| child 8204 | 9a6030d96273 |
| 7849:a12155461b34 | 7850:fcbb024090a4 |
|---|---|
20 |
20 |
21 unit uTouch; |
21 unit uTouch; |
22 |
22 |
23 interface |
23 interface |
24 |
24 |
25 uses SysUtils, uConsole, uVariables, SDLh, uFloat, uConsts, uCommands, uIO, GLUnit, uTypes, uCaptions, uAmmos, uWorld, uMobile; |
25 uses SysUtils, uConsole, uVariables, SDLh, uFloat, uConsts, uCommands, GLUnit, uTypes, uCaptions, uAmmos, uWorld, uMobile; |
26 |
26 |
27 |
27 |
28 procedure initModule; |
28 procedure initModule; |
29 procedure freeModule; |
|
29 |
30 |
30 procedure ProcessTouch; |
31 procedure ProcessTouch; |
31 procedure NewTurnBeginning; |
32 procedure NewTurnBeginning; |
32 |
33 |
33 procedure onTouchDown(x,y: Longword; pointerId: TSDL_FingerId); |
34 procedure onTouchDown(x,y: Longword; pointerId: TSDL_FingerId); |
641 |
642 |
642 rectSize:= round(baseRectSize * uMobile.getScreenDPI); |
643 rectSize:= round(baseRectSize * uMobile.getScreenDPI); |
643 halfRectSize:= rectSize shl 1; |
644 halfRectSize:= rectSize shl 1; |
644 end; |
645 end; |
645 |
646 |
647 procedure freeModule; |
|
648 begin |
|
649 end; |
|
650 |
|
646 begin |
651 begin |
647 end. |
652 end. |