Версия для печати темы (https://pro1c.org.ua/index.php?s=24241b7adfff4f54fdacfce353327a0f&showtopic=67424)

Автор: Svetas_2024 06.01.24, 9:07

Добрый день, уважаемые форумчани. Прошу помощи
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:11

Ширина колонок на картинке одинаковая. Или вы имеете ввиду шакапа таблицы и данные? Если да, то для шапки тоже надо задать ширину.


Свойство ячейки Размещение текста

Автор: Svetas_2024 09.01.24, 13:02

Vofka @ Сегодня, 9:11 ,
нет в том и дело, что на картинке отчета на разная параметр 1 и параметр 2 - ширина у наименования разная -но почему?