1С 8.x : Как сжать ширину колонок табличного поля

 // Пропорционально сжимает ширины колонок табличного поля.

//

// Параметры:

//  ТабличноеПоле – ТабличноеПоле;

//  Сжатие        – Число, *2 – коэффициент сжатия;

//  УважатьЗапретИзмененияРазмера – Булево, *Истина – не сжимать колонки с запретом изменения размера;

//

Процедура СжатьКолонкиТабличногоПоля(ТабличноеПоле, Сжатие = 2, УважатьЗапретИзмененияРазмера = Истина) Экспорт



	МассивКолонокДляОбработки = Новый Массив;

	Для Каждого Колонка Из ТабличноеПоле.Колонки Цикл

		Ширина = Колонка.Ширина;

		Если Ширина = 0 Тогда

			// Антибаг платформы.

			Ширина = 10;

		КонецЕсли;

		Если Ложь

			Или Не УважатьЗапретИзмененияРазмера

			Или Колонка.ИзменениеРазмера = ИзменениеРазмераКолонки.Изменять

		Тогда

			НоваяШирина = Ширина / Сжатие;

			НоваяШирина = Макс(НоваяШирина, 1);

			Колонка.Ширина = НоваяШирина;

		КонецЕсли;

	КонецЦикла;



КонецПроцедуры