hedgewars/uCursor.pas
changeset 14814 c2793ff4e887
parent 14813 9443dc6663ba
equal deleted inserted replaced
14813:9443dc6663ba 14814:c2793ff4e887
       
     1 {$INCLUDE "options.inc"}
       
     2 
     1 unit uCursor;
     3 unit uCursor;
     2 
     4 
     3 interface
     5 interface
     4 
     6 
     5 procedure init;
     7 procedure init;
    15 
    17 
    16 procedure init;
    18 procedure init;
    17 begin
    19 begin
    18     SDL_ShowCursor(SDL_DISABLE);
    20     SDL_ShowCursor(SDL_DISABLE);
    19     resetPosition();
    21     resetPosition();
       
    22 {$IFNDEF USE_TOUCH_INTERFACE}
    20     SDL_SetRelativeMouseMode(SDL_TRUE);
    23     SDL_SetRelativeMouseMode(SDL_TRUE);
       
    24 {$ENDIF}
    21 end;
    25 end;
    22 
    26 
    23 procedure resetPosition;
    27 procedure resetPosition;
    24 begin
    28 begin
    25     if GameType = gmtRecord then
    29     if GameType = gmtRecord then