Перем гМенеджер; Процедура ПриОткрытии() Таб = СоздатьОбъект("Таблица"); Таб.ТолькоПросмотр(1); Таб.Показать(); гМенеджер = СоздатьОбъект("МенеджерТабличногоДокумента"); гМенеджер.УстановитьТаблицу(Таб, Форма); КонецПроцедуры Процедура МенеджерТаблДокПриИзмененииВыделения(Менеджер, Таб) ТЗ = Менеджер.ПолучитьВыделенные(); ТЗ.ВыбратьСтроки(); Пока ТЗ.ПолучитьСтроку() = 1 Цикл Если ТЗ.ТипОбласти = 3 Тогда Обл = Таб.Область(ТЗ.R1, ТЗ.C1, ТЗ.R2, ТЗ.C2); Обл.Объединить(); Обл.ЦветФона(255); Менеджер.Обновить(Обл); КонецЕсли; КонецЦикла; КонецПроцедуры
Менеджер.Область(,1,,20).ШиринаСтолбцаРасш(0.125); Менеджер.Область(1,,20,).ВысотаСтрокиРасш(0.25); Менеджер.Обновить();