Добрый день, уважаемые форумчани. Прошу помощи
1С:Предприятие 8.3 (8.3.15.1869), "Управление производственным предприятием для Украины", редакция 1.3 (1.3.66.1) , формы обычные (не управляемые)
в макете отображается
1 .почему -то разная ширина колонок,
хотя в коде задаю ширину колонок
2. как сделать чтобы текст в колонке не обрезался, а переносился
3. почему-то тоже происходит со строками -хотя высота строк во всех колонках задаётся одинаковая, в наименовании параметров правой части - строки оказываются меньше и обрезают верхнюю часть текста строки,
шрифт во всех строках тоже задан одинаковый
НомерСтроки=5;
Для каждого строка из аа Цикл
i=0;
Для i = 1 По строка[0].свойства.Количество() Цикл
если строка[0].свойства[i-1].выбор=Истина Тогда
ТабДок.Область(5+(i-1),3).ШиринаКолонки = ШиринаРисунка;
ТабДок.Область(5+(i-1),2).ШиринаКолонки =ШиринаКол;
ТабДок.Область(5+(i-1),1).ШиринаКолонки = ШиринаКол;
ТабДок.Область(5+(i-1),1).ВысотаСтроки=ВысотаСтр;
ТабДок.Область(5+(i-1),2).ВысотаСтроки=ВысотаСтр;
ТабДок.Вывести(ОбластьПараметр1);
ТабДок.Присоединить(ОбластьКартинка11);
ТабДок.Область(5+(i-1),4).ВысотаСтроки=ВысотаСтр;
ТабДок.Область(5+(i-1),5).ВысотаСтроки=ВысотаСтр;
ТабДок.Область(5+(i-1),4).ШиринаКолонки =ШиринаКол;
ТабДок.Область(5+(i-1),5).ШиринаКолонки =ШиринаКол;
ТабДок.Область(5+(i-1),6).ШиринаКолонки = ШиринаРисунка;
ТабДок.Присоединить(ОбластьПараметр2);
ТабДок.Присоединить(ОбластьКартинка22);
конецесли;
КонецЦикла;
НомерСтроки_н=НомерСтроки;
НомерСтроки=НомерСтроки+строка[0].свойства.Количество();
НомерСтроки_к=НомерСтроки;
ОбластьКартинка01 = ТабДок.Область(НомерСтроки_н+1,3,НомерСтроки_к,3);
ОбластьКартинка01.Объединить();
Рисунок1 = ТабДок.Рисунки.Добавить(ТипРисункаТабличногоДокумента.Картинка);
Рисунок1.Картинка = Изображение1;
Рисунок1.Расположить(ОбластьКартинка01);
если Рисунок1.Высота>ВысотаРисунка тогда Рисунок1.Высота=ВысотаРисунка; конецесли;
если Рисунок1.Ширина>ШиринаРисунка тогда Рисунок1.Ширина=ШиринаРисунка; конецесли;
ОбластьКартинка02 = ТабДок.Область(НомерСтроки_н+1,6,НомерСтроки_к,6);
ОбластьКартинка02.Объединить();
Рисунок2 = ТабДок.Рисунки.Добавить(ТипРисункаТабличногоДокумента.Картинка);
Рисунок2.Картинка = Изображение2;
Рисунок2.Расположить(ОбластьКартинка02);
если Рисунок2.Высота>ВысотаРисунка тогда Рисунок2.Высота=ВысотаРисунка; конецесли;
если Рисунок2.Ширина>ШиринаРисунка тогда Рисунок2.Ширина=ШиринаРисунка; конецесли;
конеццикла;
ТабДок.ОтображатьСетку = Ложь;
ТабДок.Защита = Истина;
ТабДок.ТолькоПросмотр = Истина;
....
ТабДок.Вывести(ТабДок);
ТабДок.Показать();
Заранее спасибо за ответ
Сообщение отредактировал Vofka - 09.01.24, 9:05