hedgewars: hedgewars/uCursor.pas@545e1198e8b9 (annotated)

5191 c7000a6b397b - Implement a thin wrapper over real cursor, which eliminates need in SDL_WarpMouse outside game window unc0rr parents: diff changeset	1	unit uCursor;
c7000a6b397b - Implement a thin wrapper over real cursor, which eliminates need in SDL_WarpMouse outside game window unc0rr parents: diff changeset	2
c7000a6b397b - Implement a thin wrapper over real cursor, which eliminates need in SDL_WarpMouse outside game window unc0rr parents: diff changeset	3	interface
c7000a6b397b - Implement a thin wrapper over real cursor, which eliminates need in SDL_WarpMouse outside game window unc0rr parents: diff changeset	4
c7000a6b397b - Implement a thin wrapper over real cursor, which eliminates need in SDL_WarpMouse outside game window unc0rr parents: diff changeset	5	procedure init;
8225 186229af4fc1 GCI2012: Remove Quit Prompt On Mouse Click Drew Gottlieb parents: 6580 diff changeset	6	procedure resetPosition;
5191 c7000a6b397b - Implement a thin wrapper over real cursor, which eliminates need in SDL_WarpMouse outside game window unc0rr parents: diff changeset	7	procedure updatePosition;
8346 3443e0de2c9d GCI2012: Advanced Keyboard Configuration dag10 parents: 8225 diff changeset	8	procedure handlePositionUpdate(x, y: LongInt);
5191 c7000a6b397b - Implement a thin wrapper over real cursor, which eliminates need in SDL_WarpMouse outside game window unc0rr parents: diff changeset	9
c7000a6b397b - Implement a thin wrapper over real cursor, which eliminates need in SDL_WarpMouse outside game window unc0rr parents: diff changeset	10	implementation
c7000a6b397b - Implement a thin wrapper over real cursor, which eliminates need in SDL_WarpMouse outside game window unc0rr parents: diff changeset	11
c7000a6b397b - Implement a thin wrapper over real cursor, which eliminates need in SDL_WarpMouse outside game window unc0rr parents: diff changeset	12	uses SDLh, uVariables;
c7000a6b397b - Implement a thin wrapper over real cursor, which eliminates need in SDL_WarpMouse outside game window unc0rr parents: diff changeset	13
c7000a6b397b - Implement a thin wrapper over real cursor, which eliminates need in SDL_WarpMouse outside game window unc0rr parents: diff changeset	14	procedure init;
c7000a6b397b - Implement a thin wrapper over real cursor, which eliminates need in SDL_WarpMouse outside game window unc0rr parents: diff changeset	15	begin
8225 186229af4fc1 GCI2012: Remove Quit Prompt On Mouse Click Drew Gottlieb parents: 6580 diff changeset	16	resetPosition();
186229af4fc1 GCI2012: Remove Quit Prompt On Mouse Click Drew Gottlieb parents: 6580 diff changeset	17	end;
186229af4fc1 GCI2012: Remove Quit Prompt On Mouse Click Drew Gottlieb parents: 6580 diff changeset	18
186229af4fc1 GCI2012: Remove Quit Prompt On Mouse Click Drew Gottlieb parents: 6580 diff changeset	19	procedure resetPosition;
186229af4fc1 GCI2012: Remove Quit Prompt On Mouse Click Drew Gottlieb parents: 6580 diff changeset	20	begin
12659 545e1198e8b9 Fix camera going crazy when starting game with mouse centered Wuzzy <almikes@aol.com> parents: 10017 diff changeset	21	// Move curser by 1px in case it's already centered.
545e1198e8b9 Fix camera going crazy when starting game with mouse centered Wuzzy <almikes@aol.com> parents: 10017 diff changeset	22	// Due to switch to SDL2, the game camera in the Alpha for 0.9.23
545e1198e8b9 Fix camera going crazy when starting game with mouse centered Wuzzy <almikes@aol.com> parents: 10017 diff changeset	23	// screwed up if the game started with the mouse already being
545e1198e8b9 Fix camera going crazy when starting game with mouse centered Wuzzy <almikes@aol.com> parents: 10017 diff changeset	24	// centered.
545e1198e8b9 Fix camera going crazy when starting game with mouse centered Wuzzy <almikes@aol.com> parents: 10017 diff changeset	25	// No big deal since this function is (so far) only called once.
545e1198e8b9 Fix camera going crazy when starting game with mouse centered Wuzzy <almikes@aol.com> parents: 10017 diff changeset	26	// This fixes it, but we might have overlooked an SDL2-related
545e1198e8b9 Fix camera going crazy when starting game with mouse centered Wuzzy <almikes@aol.com> parents: 10017 diff changeset	27	// bug somewhere else.
545e1198e8b9 Fix camera going crazy when starting game with mouse centered Wuzzy <almikes@aol.com> parents: 10017 diff changeset	28	SDL_WarpMouse((cScreenWidth div 2) + 1, cScreenHeight div 2);
5191 c7000a6b397b - Implement a thin wrapper over real cursor, which eliminates need in SDL_WarpMouse outside game window unc0rr parents: diff changeset	29	SDL_WarpMouse(cScreenWidth div 2, cScreenHeight div 2);
c7000a6b397b - Implement a thin wrapper over real cursor, which eliminates need in SDL_WarpMouse outside game window unc0rr parents: diff changeset	30	end;
c7000a6b397b - Implement a thin wrapper over real cursor, which eliminates need in SDL_WarpMouse outside game window unc0rr parents: diff changeset	31
c7000a6b397b - Implement a thin wrapper over real cursor, which eliminates need in SDL_WarpMouse outside game window unc0rr parents: diff changeset	32	procedure updatePosition;
c7000a6b397b - Implement a thin wrapper over real cursor, which eliminates need in SDL_WarpMouse outside game window unc0rr parents: diff changeset	33	var x, y: LongInt;
c7000a6b397b - Implement a thin wrapper over real cursor, which eliminates need in SDL_WarpMouse outside game window unc0rr parents: diff changeset	34	begin
c7000a6b397b - Implement a thin wrapper over real cursor, which eliminates need in SDL_WarpMouse outside game window unc0rr parents: diff changeset	35	SDL_GetMouseState(@x, @y);
10017 de822cd3df3a fixwhitespace and dos2unix koda parents: 10015 diff changeset	36
5191 c7000a6b397b - Implement a thin wrapper over real cursor, which eliminates need in SDL_WarpMouse outside game window unc0rr parents: diff changeset	37	if(x <> cScreenWidth div 2) or (y <> cScreenHeight div 2) then
8346 3443e0de2c9d GCI2012: Advanced Keyboard Configuration dag10 parents: 8225 diff changeset	38	begin
3443e0de2c9d GCI2012: Advanced Keyboard Configuration dag10 parents: 8225 diff changeset	39	handlePositionUpdate(x - cScreenWidth div 2, y - cScreenHeight div 2);
5191 c7000a6b397b - Implement a thin wrapper over real cursor, which eliminates need in SDL_WarpMouse outside game window unc0rr parents: diff changeset	40
6580 6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 5199 diff changeset	41	if cHasFocus then
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 5199 diff changeset	42	SDL_WarpMouse(cScreenWidth div 2, cScreenHeight div 2);
10015 4feced261c68 partial merge of the webgl branch koda parents: 8444 diff changeset	43	end
5191 c7000a6b397b - Implement a thin wrapper over real cursor, which eliminates need in SDL_WarpMouse outside game window unc0rr parents: diff changeset	44	end;
c7000a6b397b - Implement a thin wrapper over real cursor, which eliminates need in SDL_WarpMouse outside game window unc0rr parents: diff changeset	45
8346 3443e0de2c9d GCI2012: Advanced Keyboard Configuration dag10 parents: 8225 diff changeset	46	procedure handlePositionUpdate(x, y: LongInt);
3443e0de2c9d GCI2012: Advanced Keyboard Configuration dag10 parents: 8225 diff changeset	47	begin
3443e0de2c9d GCI2012: Advanced Keyboard Configuration dag10 parents: 8225 diff changeset	48	CursorPoint.X:= CursorPoint.X + x;
3443e0de2c9d GCI2012: Advanced Keyboard Configuration dag10 parents: 8225 diff changeset	49	CursorPoint.Y:= CursorPoint.Y - y;
5191 c7000a6b397b - Implement a thin wrapper over real cursor, which eliminates need in SDL_WarpMouse outside game window unc0rr parents: diff changeset	50	end;
c7000a6b397b - Implement a thin wrapper over real cursor, which eliminates need in SDL_WarpMouse outside game window unc0rr parents: diff changeset	51
c7000a6b397b - Implement a thin wrapper over real cursor, which eliminates need in SDL_WarpMouse outside game window unc0rr parents: diff changeset	52	end.

author	Wuzzy <almikes@aol.com>
	Fri, 06 Oct 2017 17:32:02 +0200
changeset 12659	545e1198e8b9
parent 10017	de822cd3df3a
child 12660	d3fb69e31165
permissions	-rw-r--r--