anchor.diff:    // Update palette buttons Down state
     for I := 0 to fCountCompact - 1 do
       ObjectsPaletteTable[I].Down := (gGameCursor.Mode = cmObjects)
  -                                and not (gGameCursor.Tag1 in [OBJ_NONE, OBJ_BLOCK])
  +                                and (gGameCursor.Tag1 <> OBJ_NONE)
  +                                and (gGameCursor.Tag1 <> OBJ_BLOCK)
                                   and (ObjectsPaletteTable[I].Tag = fMapElemToCompact[gGameCursor.Tag1]);
   end;
   
  
positive.code:   OBJ_CELL_W = 64;
    OBJ_CELL_H = 84;
  
  
  { TKMMapEdTerrainObjects }
  constructor TKMMapEdTerrainObjects.Create(aParent: TKMPanel; aHideAllPages: TEvent);
  
negative.code:     end;
    ObjectErase := TKMButtonFlat.Create(Panel_Objects, 9, 4, 32, 32, 340);
    ObjectErase.Hint := GetHintWHotkey(TX_MAPED_TERRAIN_OBJECTS_REMOVE, SC_MAPEDIT_SUB_MENU_ACTION_1);
    ObjectErase.Tag := OBJ_NONE_TAG; //no object
    ObjectErase.OnClick := ObjectsChange;
  
    ObjectBlock := TKMButtonFlat.Create(Panel_Objects, TB_MAP_ED_WIDTH-32, 4, 32, 32, 254,rxTrees);
    ObjectBlock.Hint := GetHintWHotkey(TX_MAPED_TERRAIN_OBJECTS_BLOCK, SC_MAPEDIT_SUB_MENU_ACTION_2);
    ObjectBlock.Tag := OBJ_BLOCK_TAG; //block object
    ObjectBlock.OnClick := ObjectsChange;
  
    ObjectsPalette_Button := TKMButtonFlat.Create(Panel_Objects, 7, 320, TB_MAP_ED_WIDTH - 7, 21, 0);
  