anchor.diff:      procedure MapScrollByMinimap(x,y: integer);
       procedure MapScrollToObject(AObject:TMapObject);
       procedure SetMapPosition(APosition:TPoint);
  +    procedure ChangeMapPosition(ADelta:TPoint);
       procedure SetMapViewMouse(x,y: integer);
   
       procedure SetBrushTerrain(tt: TTerrainType);
  
positive.code: var
    dx,dy: integer;
  begin
    if not Assigned(FSelectedObject) then
    begin
      Exit;
    end;
  
    dx := 0;
    dy := 0;
  
  
negative.code:      sb.Position := APosition;
     end;
  begin
    UpdateScrollbar(hScrollBar,APosition.x);
    FMapHPos := APosition.x;
  
    UpdateScrollbar(vScrollBar,APosition.y);
    FMapVPos := APosition.y;
  
    InvalidateMapAxis;
  end;
  
  procedure TfMain.ChangeMapPosition(ADelta: TPoint);
  var
    new_pos: TPoint;
  begin
    new_pos.x:=FMapHPos + ADelta.x;
    new_pos.y:=FMapVPos + ADelta.y;
    SetMapPosition(new_pos);
  end;
  
  procedure TfMain.SetMapViewMouse(x, y: integer);
  