anchor.diff:  
   procedure TKMMapEdTerrainObjects.ObjPalette_UpdateControlsPosition;
   var
  -  RowsCnt, ColsCnt, EmptySpaceHeight: Integer;
  +  RowsCnt, ColsCnt: Integer;
   begin
     PopUp_ObjectsPalette.Top := 25;
     PopUp_ObjectsPalette.Left := 25;
     PopUp_ObjectsPalette.Width := PopUp_ObjectsPalette.MasterParent.Width - 50;
     PopUp_ObjectsPalette.Height := PopUp_ObjectsPalette.MasterParent.Height - 50;
  -  ClosePalette_Button.Left := PopUp_ObjectsPalette.Center.X - 100;
  -  ObjectsPalette_Label.Left := PopUp_ObjectsPalette.Center.X;
  -  ObjectsPalette_Scroll.Left := PopUp_ObjectsPalette.Width - 20;
  -  ObjectsPalette_Scroll.Height := PopUp_ObjectsPalette.Height - 75;
   
     RowsCnt := (PopUp_ObjectsPalette.Height - 80) div 85;
     ColsCnt := Min(OBJECTS_PALETTE_MAX_COLS_CNT, (PopUp_ObjectsPalette.Width) div 65); // Calc cols count without Scroll first
  
positive.code:     ObjectsPalette_Bevel.BackAlpha := 0.7;
      ObjectsPalette_Bevel.EdgeAlpha := 0.9;
  
      ObjectsPalette_Scroll := TKMScrollBar.Create(PopUp_ObjectsPalette, PopUp_ObjectsPalette.Width - 20, 25, 20, PopUp_ObjectsPalette.Height - 75, sa_Vertical, bsGame);
      ObjectsPalette_Scroll.MinValue := 0;
      ObjectsPalette_Scroll.Position := 0;
      ObjectsPalette_Scroll.OnChange := ObjectsPalette_Refresh;
  
      ObjectsPalette_Bevel.OnMouseWheel := ObjectsPalette_Scroll.MouseWheel;
      ObjectsPalette_Bevel.OnClickShift := ObjPalette_ClickShift;
  
  
negative.code: end;
  
  
  function TKMMapEdTerrainObjects.GetObjPaletteTableHeight: Integer;
  begin
    Result := 85*Min(fObjPaletteTableSize.Y, ((fCountCompact - 1) div fObjPaletteTableSize.X) + 1);
  end;
  
  
  function TKMMapEdTerrainObjects.GetObjPaletteTableWidth: Integer;
  begin
    Result := 65*fObjPaletteTableSize.X;
  end;
  
  
  