anchor.diff:       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);
  
positive.code:     procedure MapScrollByMinimap(x,y: integer);
      procedure MapScrollToObject(AObject:TMapObject);
      procedure SetMapPosition(APosition:TPoint);
      procedure SetMapViewMouse(x,y: integer);
  
      procedure SetBrushTerrain(tt: TTerrainType);
  
negative.code: var
    dx,dy: integer;
  begin
    dx := 0;
    dy := 0;
  
  