equal
deleted
inserted
replaced
1 unit uCursor; |
1 unit uCursor; |
2 |
2 |
3 interface |
3 interface |
4 |
4 |
5 procedure init; |
5 procedure init; |
|
6 procedure resetPosition; |
6 procedure updatePosition; |
7 procedure updatePosition; |
7 |
8 |
8 implementation |
9 implementation |
9 |
10 |
10 uses SDLh, uVariables; |
11 uses SDLh, uVariables; |
12 {$IFDEF WEBGL} |
13 {$IFDEF WEBGL} |
13 var offsetx, offsety : Integer; |
14 var offsetx, offsety : Integer; |
14 {$ENDIF} |
15 {$ENDIF} |
15 |
16 |
16 procedure init; |
17 procedure init; |
|
18 begin |
|
19 resetPosition(); |
|
20 end; |
|
21 |
|
22 procedure resetPosition; |
17 begin |
23 begin |
18 SDL_WarpMouse(cScreenWidth div 2, cScreenHeight div 2); |
24 SDL_WarpMouse(cScreenWidth div 2, cScreenHeight div 2); |
19 end; |
25 end; |
20 |
26 |
21 procedure updatePosition; |
27 procedure updatePosition; |