Mercurial Mercurial > sheepy-clone / annotate
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
hedgewars/uCursor.pas
author koda
Wed, 19 Dec 2012 19:28:13 +0100
changeset 8314 7faceaca67d4
parent 8225 186229af4fc1
child 8330 aaefa587e277
child 8346 3443e0de2c9d
permissions -rw-r--r--
can change library name and compile it on windows again
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
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;













c7000a6b397b
 - Implement a thin wrapper over real cursor, which eliminates need in SDL_WarpMouse outside game window



unc0rr


parents: 

diff
changeset




     8














c7000a6b397b
 - Implement a thin wrapper over real cursor, which eliminates need in SDL_WarpMouse outside game window



unc0rr


parents: 

diff
changeset




     9


implementation













c7000a6b397b
 - Implement a thin wrapper over real cursor, which eliminates need in SDL_WarpMouse outside game window



unc0rr


parents: 

diff
changeset




    10














c7000a6b397b
 - Implement a thin wrapper over real cursor, which eliminates need in SDL_WarpMouse outside game window



unc0rr


parents: 

diff
changeset




    11


uses SDLh, uVariables;













c7000a6b397b
 - Implement a thin wrapper over real cursor, which eliminates need in SDL_WarpMouse outside game window



unc0rr


parents: 

diff
changeset




    12














c7000a6b397b
 - Implement a thin wrapper over real cursor, which eliminates need in SDL_WarpMouse outside game window



unc0rr


parents: 

diff
changeset




    13


procedure init;













c7000a6b397b
 - Implement a thin wrapper over real cursor, which eliminates need in SDL_WarpMouse outside game window



unc0rr


parents: 

diff
changeset




    14


begin








8225






186229af4fc1
GCI2012: Remove Quit Prompt On Mouse Click



Drew Gottlieb


parents: 
6580

diff
changeset




    15


    resetPosition();













186229af4fc1
GCI2012: Remove Quit Prompt On Mouse Click



Drew Gottlieb


parents: 
6580

diff
changeset




    16


end;













186229af4fc1
GCI2012: Remove Quit Prompt On Mouse Click



Drew Gottlieb


parents: 
6580

diff
changeset




    17














186229af4fc1
GCI2012: Remove Quit Prompt On Mouse Click



Drew Gottlieb


parents: 
6580

diff
changeset




    18


procedure resetPosition;













186229af4fc1
GCI2012: Remove Quit Prompt On Mouse Click



Drew Gottlieb


parents: 
6580

diff
changeset




    19


begin








5191






c7000a6b397b
 - Implement a thin wrapper over real cursor, which eliminates need in SDL_WarpMouse outside game window



unc0rr


parents: 

diff
changeset




    20


    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




    21


end;













c7000a6b397b
 - Implement a thin wrapper over real cursor, which eliminates need in SDL_WarpMouse outside game window



unc0rr


parents: 

diff
changeset




    22














c7000a6b397b
 - Implement a thin wrapper over real cursor, which eliminates need in SDL_WarpMouse outside game window



unc0rr


parents: 

diff
changeset




    23


procedure updatePosition;













c7000a6b397b
 - Implement a thin wrapper over real cursor, which eliminates need in SDL_WarpMouse outside game window



unc0rr


parents: 

diff
changeset




    24


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




    25


begin













c7000a6b397b
 - Implement a thin wrapper over real cursor, which eliminates need in SDL_WarpMouse outside game window



unc0rr


parents: 

diff
changeset




    26


    SDL_GetMouseState(@x, @y);













c7000a6b397b
 - Implement a thin wrapper over real cursor, which eliminates need in SDL_WarpMouse outside game window



unc0rr


parents: 

diff
changeset




    27














c7000a6b397b
 - Implement a thin wrapper over real cursor, which eliminates need in SDL_WarpMouse outside game window



unc0rr


parents: 

diff
changeset




    28


    if(x <> cScreenWidth div 2) or (y <> cScreenHeight div 2) then













c7000a6b397b
 - Implement a thin wrapper over real cursor, which eliminates need in SDL_WarpMouse outside game window



unc0rr


parents: 

diff
changeset




    29


        begin













c7000a6b397b
 - Implement a thin wrapper over real cursor, which eliminates need in SDL_WarpMouse outside game window



unc0rr


parents: 

diff
changeset




    30


        CursorPoint.X:= CursorPoint.X + x - cScreenWidth div 2;













c7000a6b397b
 - Implement a thin wrapper over real cursor, which eliminates need in SDL_WarpMouse outside game window



unc0rr


parents: 

diff
changeset




    31


        CursorPoint.Y:= CursorPoint.Y - y + cScreenHeight div 2;













c7000a6b397b
 - Implement a thin wrapper over real cursor, which eliminates need in SDL_WarpMouse outside game window



unc0rr


parents: 

diff
changeset




    32









6580






6155187bf599
A partial reformatting of the pascal code to have consistent syntax.  Things that are still inconsistent.



lovelacer


parents: 
5199

diff
changeset




    33


        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




    34


            SDL_WarpMouse(cScreenWidth div 2, 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




    35


        end













c7000a6b397b
 - Implement a thin wrapper over real cursor, which eliminates need in SDL_WarpMouse outside game window



unc0rr


parents: 

diff
changeset




    36


end;













c7000a6b397b
 - Implement a thin wrapper over real cursor, which eliminates need in SDL_WarpMouse outside game window



unc0rr


parents: 

diff
changeset




    37














c7000a6b397b
 - Implement a thin wrapper over real cursor, which eliminates need in SDL_WarpMouse outside game window



unc0rr


parents: 

diff
changeset




    38


end.















sheepy-clone