anchor.diff:  begin
     inherited Create;
   
  -  fToolBarWidth := aToolBarWidth;
  +  fToolbarWidth := aToolBarWidth;
   
     fMapX := 1; //Avoid division by 0
     fMapY := 1; //Avoid division by 0
  
positive.code:     property ViewportClip: TPoint read fViewportClip;
      property ViewRect: TKMRect read fViewRect;
      property Zoom: Single read fZoom write SetZoom;
  
      procedure ResetZoom;
      procedure Resize(NewWidth, NewHeight: Integer);
  
negative.code: 
  function TKMViewport.MapToScreen(const aMapLoc: TKMPointF): TKMPoint;
  begin
    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;
  
  
  