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
Sun, 11 Nov 2012 17:15:19 +0100
branchwebgl
changeset 8026 4a4f21070479
parent 6580 6155187bf599
child 8330 aaefa587e277
permissions -rw-r--r--
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
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;













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



unc0rr


parents: 

diff
changeset




     6


procedure updatePosition;













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



unc0rr


parents: 

diff
changeset




     7














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



unc0rr


parents: 

diff
changeset




     8


implementation













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


uses SDLh, uVariables;













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



unc0rr


parents: 

diff
changeset




    11









8026






4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)



koda


parents: 
6580

diff
changeset




    12


{$IFDEF WEBGL}













4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)



koda


parents: 
6580

diff
changeset




    13


var offsetx, offsety : Integer;













4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)



koda


parents: 
6580

diff
changeset




    14


{$ENDIF}













4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)



koda


parents: 
6580

diff
changeset




    15









5191






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



unc0rr


parents: 

diff
changeset




    16


procedure init;













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



unc0rr


parents: 

diff
changeset




    17


begin













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



unc0rr


parents: 

diff
changeset




    18


    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




    19


end;













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



unc0rr


parents: 

diff
changeset




    20














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



unc0rr


parents: 

diff
changeset




    21


procedure updatePosition;













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



unc0rr


parents: 

diff
changeset




    22


var x, y: LongInt;








8026






4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)



koda


parents: 
6580

diff
changeset




    23


{$IFDEF WEBGL}













4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)



koda


parents: 
6580

diff
changeset




    24


    tx, ty : LongInt;













4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)



koda


parents: 
6580

diff
changeset




    25


{$ENDIF}








5191






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



unc0rr


parents: 

diff
changeset




    26


begin













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



unc0rr


parents: 

diff
changeset




    27


    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




    28









8026






4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)



koda


parents: 
6580

diff
changeset




    29


{$IFDEF WEBGL}













4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)



koda


parents: 
6580

diff
changeset




    30


    tx := x;













4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)



koda


parents: 
6580

diff
changeset




    31


    ty := y;













4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)



koda


parents: 
6580

diff
changeset




    32


    x := x + offsetx;













4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)



koda


parents: 
6580

diff
changeset




    33


    y := y + offsety;













4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)



koda


parents: 
6580

diff
changeset




    34


{$ENDIF}













4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)



koda


parents: 
6580

diff
changeset




    35









5191






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



unc0rr


parents: 

diff
changeset




    36


    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




    37


        begin













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



unc0rr


parents: 

diff
changeset




    38


        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




    39


        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




    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








8026






4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)



koda


parents: 
6580

diff
changeset




    42


            begin













4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)



koda


parents: 
6580

diff
changeset




    43


            {$IFNDEF WEBGL}








6580






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



lovelacer


parents: 
5199

diff
changeset




    44


            SDL_WarpMouse(cScreenWidth div 2, cScreenHeight div 2);








8026






4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)



koda


parents: 
6580

diff
changeset




    45


            {$ELSE}













4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)



koda


parents: 
6580

diff
changeset




    46


            offsetx := cScreenWidth div 2 - tx;













4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)



koda


parents: 
6580

diff
changeset




    47


            offsety := cScreenHeight div 2 - ty;













4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)



koda


parents: 
6580

diff
changeset




    48


            {$ENDIF}













4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)



koda


parents: 
6580

diff
changeset




    49


            end;








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


end;













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



unc0rr


parents: 

diff
changeset




    52














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



unc0rr


parents: 

diff
changeset




    53


end.















hedgewars