anchor.diff:  
   function TKMViewport.MapToScreen(const aMapLoc: TKMPointF): TKMPoint;
   begin
  -  Result.X := Round((aMapLoc.X - fPosition.X) * CELL_SIZE_PX * fZoom + fViewRect.Right / 2 + fToolBarWidth / 2);
  -  Result.Y := Round((aMapLoc.Y - fPosition.Y) * CELL_SIZE_PX * fZoom + fViewRect.Bottom / 2);
  +  Result.X := Round((aMapLoc.X - fPosition.X) * ZoomedCellSizePX + fViewRect.Right / 2 + ToolbarWidth / 2);
  +  Result.Y := Round((aMapLoc.Y - fPosition.Y) * ZoomedCellSizePX + fViewRect.Bottom / 2);
   end;
   
   
  
positive.code: 
  procedure TKMViewport.Resize(NewWidth, NewHeight: Integer);
  begin
    fViewRect.Left   := fToolBarWidth;
    fViewRect.Top    := 0;
    fViewRect.Right  := NewWidth;
    fViewRect.Bottom := NewHeight;
  
    fViewportClip.X := fViewRect.Right-fViewRect.Left;
    fViewportClip.Y := fViewRect.Bottom-fViewRect.Top;
  
    SetZoom(fZoom); //View size has changed and that affects Zoom restrictions
  end;
  
negative.code: 
  implementation
  uses
    Math, SysUtils,
    KromUtils,
    KM_Resource, KM_ResCursors,
    KM_Main, KM_GameApp, KM_GameSettings, KM_Sound,
    KM_Defaults, KM_CommonUtils;
  