hedgewars/uCursor.pas
changeset 6580 6155187bf599
parent 5199 5eae5da831e1
child 8026 4a4f21070479
child 8222 d3dc08500fc0
equal deleted inserted replaced
6579:fc52f7c22c9b 6580:6155187bf599
    22     if(x <> cScreenWidth div 2) or (y <> cScreenHeight div 2) then
    22     if(x <> cScreenWidth div 2) or (y <> cScreenHeight div 2) then
    23         begin
    23         begin
    24         CursorPoint.X:= CursorPoint.X + x - cScreenWidth div 2;
    24         CursorPoint.X:= CursorPoint.X + x - cScreenWidth div 2;
    25         CursorPoint.Y:= CursorPoint.Y - y + cScreenHeight div 2;
    25         CursorPoint.Y:= CursorPoint.Y - y + cScreenHeight div 2;
    26 
    26 
    27         if cHasFocus then SDL_WarpMouse(cScreenWidth div 2, cScreenHeight div 2);
    27         if cHasFocus then
       
    28             SDL_WarpMouse(cScreenWidth div 2, cScreenHeight div 2);
    28         end
    29         end
    29 end;
    30 end;
    30 
    31 
    31 end.
    32 end.