Mercurial Mercurial > hedgewars / 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
Tue, 18 Dec 2012 03:07:45 +0100
changeset 8310 a98c349bc06b
parent 8225 186229af4fc1
child 8330 aaefa587e277
child 8346 3443e0de2c9d
permissions -rw-r--r--
minor adjustments to libengine, moc is correctly created as definitions are set before calling it, params are better numbered and we don't subclass qthread but rather use moveToThread()
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.















hedgewars