equal
deleted
inserted
replaced
162 begin |
162 begin |
163 CursorPoint.X:= x; |
163 CursorPoint.X:= x; |
164 CursorPoint.Y:= y; |
164 CursorPoint.Y:= y; |
165 end; |
165 end; |
166 |
166 |
|
167 procedure HW_getCursor(x,y: PLongInt); cdecl; export; |
|
168 begin |
|
169 x^:= CursorPoint.X; |
|
170 y^:= CursorPoint.Y; |
|
171 end; |
|
172 |
167 procedure HW_saveCursor(reset: boolean); cdecl; export; |
173 procedure HW_saveCursor(reset: boolean); cdecl; export; |
168 begin |
174 begin |
169 if reset then |
175 if reset then |
170 begin |
176 begin |
171 CursorPoint.X:= xx; |
177 CursorPoint.X:= xx; |