anchor.diff:    BrushSize := TKMTrackBar.Create(Panel_Objects, 9, top + 3, (Panel_Objects.Width - (BTN_BRUSH_TYPE_S * 2) - 18) - 18, 4, MAPED_BRUSH_MAX_SIZE);
     BrushSize.Anchors := [anLeft, anTop, anRight];
     BrushSize.Position := 1;
  -  BrushSize.OnChange := ObjectsChange;
  +  BrushSize.OnChange := ObjectsBrushChange;
     BrushSize.Hint := GetHintWHotKey(TX_MAPED_TERRAIN_HEIGHTS_SIZE_HINT, gResTexts[TX_KEY_CTRL_MOUSEWHEEL]);
   
     BrushCircle := TKMButtonFlat.Create(Panel_Objects, Panel_Objects.Width - (BTN_BRUSH_TYPE_S * 2) - 18, top, BTN_BRUSH_TYPE_S, BTN_BRUSH_TYPE_S, 592);
     BrushCircle.Anchors := [anTop, anRight];
     BrushCircle.Hint := GetHintWHotkey(TX_MAPED_TERRAIN_HEIGHTS_CIRCLE, kfMapedSubMenuAction3);
  -  BrushCircle.OnClick := ObjectsChange;
  +  BrushCircle.OnClick := ObjectsBrushChange;
     BrushCircle.TexOffsetX := 1;
     BrushCircle.TexOffsetY := 1;
     BrushCircle.Down := True;
  
positive.code: 
      ObjectTypeSet[I] := TKMButtonFlat.Create(Panel_Objects, 9+BTN_BRUSH_SIZE*J, top + BTN_BRUSH_SIZE*K, 34, 34, rxIndex, rxTrees);
  
      ObjectTypeSet[I].OnClick := ObjectsChange;
      ObjectTypeSet[I].Hint := objectsHint;
    end;
  
  
negative.code: 
    gGameCursor.MapEdForestAge := ForestAge.Position;
    gGameCursor.MapEdObjectsDensity := ForestDensity.Position;
  end;
  
  
  procedure TKMMapEdTerrainObjects.ObjectsChange(Sender: TObject);
  var
    objIndex: Integer;
  begin
  
  
    case TKMButtonFlat(Sender).Tag of
      OBJ_BLOCK_TAG,
      OBJ_NONE_TAG:  objIndex := TKMButtonFlat(Sender).Tag; // Block or Erase
      else           objIndex := ObjectsScroll.Position * 3 + TKMButtonFlat(Sender).Tag; //0..n-1
    end;
  
    ObjectsUpdate(objIndex);
  
    // Update Objects Palette scroll position
    if (objIndex <> OBJ_BLOCK_TAG) and (objIndex <> OBJ_NONE_TAG)
      and not InRange(objIndex,
                      Scroll_ObjectsPalette.Position*fObjPaletteTableSize.X,
                      Scroll_ObjectsPalette.Position*fObjPaletteTableSize.X + fObjPaletteTableSize.X*fObjPaletteTableSize.Y - 1) then
      Scroll_ObjectsPalette.Position := ((objIndex - 1) div fObjPaletteTableSize.X);
  end;
  
  
  