anchor.diff:    // hotkeys for object functions
     fSubMenuActionsEvents[0] := ObjectsChange;
     fSubMenuActionsEvents[1] := ObjectsChange;
  -  fSubMenuActionsEvents[2] := ObjectsChange;
  -  fSubMenuActionsEvents[3] := ObjectsChange;
  +  fSubMenuActionsEvents[2] := ObjectsBrushChange;
  +  fSubMenuActionsEvents[3] := ObjectsBrushChange;
     fSubMenuActionsEvents[4] := ObjectsPaletteButton_Click;
   
     fSubMenuActionsCtrls[0,0] := ObjectErase;
  
positive.code: end;
  
  
  procedure TKMMapEdTerrainObjects.ObjectsChange(Sender: TObject);
  var
    objIndex, I: 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);
  
  
    for I := 0 to 9 do
      if Sender = ObjectTypeSet[I] then
      begin
  
negative.code:   ForestDensity.Anchors := [anLeft, anTop, anRight];
    ForestDensity.Caption := gResTexts[TX_MAPED_OBJECTS_BRUSH_DENSITY];
    ForestDensity.Position := 10;
    ForestDensity.OnChange := ObjectsBrushChange;
    ForestDensity.Hint := gResTexts[TX_MAPED_OBJECTS_BRUSH_DENSITY_HINT];
  
    ForestAge   := TKMTrackBar.Create(Panel_Objects, 9, NextTop(50), (Panel_Objects.Width) - 18, 1, 3);
    ForestAge.Anchors := [anLeft, anTop, anRight];
    ForestAge.Caption := gResTexts[TX_MAPED_OBJECTS_BRUSH_AGE];
    ForestAge.Position := 1;
    ForestAge.OnChange := ObjectsBrushChange;
    ForestAge.Hint := gResTexts[TX_MAPED_OBJECTS_BRUSH_AGE_HINT];
  
  
  