// Пропорционально сжимает ширины колонок табличного поля. // // Параметры: // ТабличноеПоле – ТабличноеПоле; // Сжатие – Число, *2 – коэффициент сжатия; // УважатьЗапретИзмененияРазмера – Булево, *Истина – не сжимать колонки с запретом изменения размера; // Процедура СжатьКолонкиТабличногоПоля(ТабличноеПоле, Сжатие = 2, УважатьЗапретИзмененияРазмера = Истина) Экспорт МассивКолонокДляОбработки = Новый Массив; Для Каждого Колонка Из ТабличноеПоле.Колонки Цикл Ширина = Колонка.Ширина; Если Ширина = 0 Тогда // Антибаг платформы. Ширина = 10; КонецЕсли; Если Ложь Или Не УважатьЗапретИзмененияРазмера Или Колонка.ИзменениеРазмера = ИзменениеРазмераКолонки.Изменять Тогда НоваяШирина = Ширина / Сжатие; НоваяШирина = Макс(НоваяШирина, 1); Колонка.Ширина = НоваяШирина; КонецЕсли; КонецЦикла; КонецПроцедуры