equal
deleted
inserted
replaced
11 procedure updatePosition(); |
11 procedure updatePosition(); |
12 procedure handlePositionUpdate(x, y: LongInt); |
12 procedure handlePositionUpdate(x, y: LongInt); |
13 |
13 |
14 implementation |
14 implementation |
15 |
15 |
16 uses SDLh, uVariables, uTypes; |
16 uses SDLh, uVariables, uTypes, uDrawing; |
17 |
17 |
18 procedure init; |
18 procedure init; |
19 begin |
19 begin |
20 SDL_ShowCursor(SDL_DISABLE); |
20 SDL_ShowCursor(SDL_DISABLE); |
21 resetPosition(); |
21 resetPosition(); |
52 |
52 |
53 procedure handlePositionUpdate(x, y: LongInt); |
53 procedure handlePositionUpdate(x, y: LongInt); |
54 begin |
54 begin |
55 CursorPoint.X:= CursorPoint.X + x; |
55 CursorPoint.X:= CursorPoint.X + x; |
56 CursorPoint.Y:= CursorPoint.Y - y; |
56 CursorPoint.Y:= CursorPoint.Y - y; |
|
57 uDrawing.onCursorMoved(); |
57 end; |
58 end; |
58 |
59 |
59 end. |
60 end. |