anchor.diff:      if mc=m then
       begin
   
  -      FMap.CurrentLevelIndex := M.Tag;
  -      FSelectedObject := nil;
  -      InvalidateMapDimensions;
  -      InvalidateMapContent;
  -
  +      DoSetMapLevelIndex(M.Tag);
         mc.Checked := True;
       end
       else begin
  
positive.code:   SetupLevelSelection;
  end;
  
  procedure TfMain.MapViewClick(Sender: TObject);
  begin
    //FActiveBrush.TileClicked(FMouseTileX, FMouseTileY);
  
negative.code: 
      procedure MapChanded;
  
      procedure DoSetMapLevelIndex(ANewIndex: Integer);
  
      procedure DoMapLevelWheelScroll(Shift: TShiftState; WheelDelta: Integer);
  
      procedure DoMapViewWheelScroll(sb: TScrollBar;Shift: TShiftState; WheelDelta: Integer;MousePos: TPoint);
  
      procedure PaintAxis(Kind: TAxisKind; Axis: TPaintBox);
  
      procedure RenderCursor;
  