hedgewars/uWorld.pas
changeset 1595 33529f567d2d
parent 1529 3bc916b419cd
child 1660 0eaa6cf36276
equal deleted inserted replaced
1594:8e5c4ea7d52b 1595:33529f567d2d
   417 var EdgesDist: LongInt;
   417 var EdgesDist: LongInt;
   418 begin
   418 begin
   419 if (not (CurrentTeam^.ExtDriven and isCursorVisible))
   419 if (not (CurrentTeam^.ExtDriven and isCursorVisible))
   420    and cHasFocus then SDL_GetMouseState(@CursorPoint.X, @CursorPoint.Y);
   420    and cHasFocus then SDL_GetMouseState(@CursorPoint.X, @CursorPoint.Y);
   421 
   421 
   422 if (FollowGear <> nil) then
   422 if (FollowGear <> nil) and (not isCursorVisible) then
   423    if abs(CursorPoint.X - prevPoint.X) + abs(CursorPoint.Y - prevpoint.Y) > 4 then
   423    if abs(CursorPoint.X - prevPoint.X) + abs(CursorPoint.Y - prevpoint.Y) > 4 then
   424       begin
   424       begin
   425       FollowGear:= nil;
   425       FollowGear:= nil;
   426       exit
   426       exit
   427       end
   427       end