anchor.diff:    for I := 0 to 2 do
       for J := 0 to 2 do
       begin
  -      ObjectsTable[I*3+J] := TKMButtonFlat.Create(Panel_Objects, I*65, 40+J*85,64,84,1,rxTrees); //RXid=1  // 1 2
  +      ObjectsTable[I*3+J] := TKMButtonFlat.Create(Panel_Objects, I*(OBJ_CELL_W + 1), 40 + J*(OBJ_CELL_H + 1),
  +                                                  OBJ_CELL_W, OBJ_CELL_H, 1, rxTrees); //RXid=1  // 1 2
         ObjectsTable[I*3+J].Tag := I*3+J; //Store ID
         ObjectsTable[I*3+J].OnClick := ObjectsChange;
         ObjectsTable[I*3+J].OnMouseWheel := ObjectsScroll.MouseWheel;
       end;
  -  ObjectErase := TKMButtonFlat.Create(Panel_Objects, 0, 8,32,32,340);
  +  ObjectErase := TKMButtonFlat.Create(Panel_Objects, 0, 8, 32, 32, 340);
     ObjectErase.Hint := gResTexts[TX_MAPED_TERRAIN_OBJECTS_REMOVE];
     ObjectErase.Tag := 255; //no object
     ObjectErase.OnClick := ObjectsChange;
   
  -  ObjectBlock := TKMButtonFlat.Create(Panel_Objects, TB_WIDTH-32, 8,32,32,254,rxTrees);
  +  ObjectBlock := TKMButtonFlat.Create(Panel_Objects, TB_WIDTH-32, 8, 32, 32, 254,rxTrees);
     ObjectBlock.Hint := gResTexts[TX_MAPED_TERRAIN_OBJECTS_BLOCK];
     ObjectBlock.Tag := 61; //no object
     ObjectBlock.OnClick := ObjectsChange;
  
positive.code:       K := (I + Scroll_ObjectsPalette.Position)*fObjPaletteTableSize.X + J;
        if K < fCountCompact then
        begin
          ObjectsPaletteTable[K].Left := J*65 + LeftAdj;
          ObjectsPaletteTable[K].Top := 25 + I*85 + TopAdj;
          ObjectsPaletteTable[K].TexID := gMapElements[fCompactToMapElem[K]].Anim.Step[1] + 1;
          ObjectsPaletteTable[K].Caption := IntToStr(fCompactToMapElem[K]);
          ObjectsPaletteTable[K].Visible := True;
  
negative.code: var
    I, J, K, LeftAdj, TopAdj: Integer;
  begin
    LeftAdj := (PopUp_ObjectsPalette.Width - fObjPaletteTableSize.X*(OBJ_CELL_W + 1) - 25*Byte(Scroll_ObjectsPalette.Visible)) div 2;
    TopAdj := Image_ObjectsPalette.Top + 25;
  
    K := 0;
  
    Button_ObjPaletteErase.Left := LeftAdj;
    Button_ObjPaletteBlock.Left := LeftAdj + OBJ_CELL_W + 1;
  
    for I := 0 to fObjPaletteTableSize.Y - 1 do
      for J := 0 to fObjPaletteTableSize.X - 1 do
  