23 

    23 

    24 procedure updatePosition;

    24 procedure updatePosition;

    25 var x, y: LongInt;

    25 var x, y: LongInt;

    26 begin

    26 begin

    27     SDL_GetMouseState(@x, @y);

    27     SDL_GetMouseState(@x, @y);

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

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

    30     begin

    30     begin

    31         handlePositionUpdate(x - cScreenWidth div 2, y - cScreenHeight div 2);

    31         handlePositionUpdate(x - cScreenWidth div 2, y - cScreenHeight div 2);

    32 

    32 

    33         if cHasFocus then

    33         if cHasFocus then