8.х Рисунок табличного документа

Тема в разделе "Конфигурирование на платформе "1С:Предприятие 8"", создана пользователем Samouchka, 31 авг 2016.

  1. TopicStarter Overlay
    Samouchka
    Offline

    Samouchka Опытный в 1С

    Регистрация:
    20 мар 2013
    Сообщения:
    214
    Симпатии:
    1
    Баллы:
    29
    Всем здравствуйте! Имею 2 файла с картинками. Нужно получить один файл, наложив одну картинку на другую. И по возможности в формате jpg. Я же решаю задачу так:
    1) Создаю табличный документ и в него добавляю 2 рисунка, загружая их из файлов
    2) Располагаю один рисунок поверх другого
    3) Записываю область табличного документа с рисунками в файл формата PDF (за неимением другой возможности в 1С)
    4) А дальше можно формат pdf преобразовать в jpg через фотошоп
    Можно ли это как-то проще сделать и как? А результат меня всё же не устраивает - у рисунков есть линии вдоль контура. И при наложении рисунков друг на друга, их видно. Так, видна белая линия у верхнего рисунка по горизонтали и вертикали, и линия вокруг главного рисунка (скриншот открытия pdf файла прилагаю в файле "Картинка.JPG").
    Если можно исправить мой код, чтобы не было линий, то прошу подсказать, пожалуйста.

    Код:
    ТабДок=Новый ТабличныйДокумент;
    ТабДок.ОтображатьСетку=ложь;
    КартинкаГлавная=Новый Картинка(ПутьККартинке);
    КартинкаСверху=Новый Картинка(ПутьККартинке);    РисГлавный=ТабДок.Рисунки.Добавить(ТипРисункаТабличногоДокумента.Картинка);
    РисГлавный.ГраницаСверху=ложь;
    РисГлавный.ГраницаСлева=ложь;
    РисГлавный.ГраницаСнизу=ложь;
    РисГлавный.ГраницаСправа=ложь;   
    РисСверху=ТабДок.Рисунки.Добавить(ТипРисункаТабличногоДокумента.Картинка);
    РисСверху.ГраницаСверху=ложь;
    РисСверху.ГраницаСлева=ложь;
    РисСверху.ГраницаСнизу=ложь;
    РисСверху.ГраницаСправа=ложь;
    ИндексГлавный=ТабДок.Рисунки.Индекс(РисГлавный);
    ИндексСверху=ТабДок.Рисунки.Индекс(РисСверху);   
    ТабДок.Рисунки[ИндексГлавный].Картинка=КартинкаГлавная;
    ТабДок.Рисунки[ИндексСверху].Картинка=КартинкаСверху;   
    ТабДок.Рисунки[ИндексГлавный].Расположить(ТабДок.Область("R1C1:R16C8"));    ТабДок.Рисунки[ИндексСверху].Расположить(ТабДок.Область("R1C1:R8C4"));
    ТабДок.Область("R1C1:R16C8").ВысотаСтроки=5;
    ТабДок.Область("R1C1:R16C8").ШиринаКолонки=5;    ТабДок.ПолучитьОбласть("R1C1:R16C8").Записать(СохранятьВПапку+"\Картинка.pdf",ТипФайлаТабличногоДокумента.PDF);

    Вложения:

  2. Andris_1c-pro
    Offline

    Andris_1c-pro Новичок в 1С

    Регистрация:
    12 сен 2014
    Сообщения:
    45
    Симпатии:
    8
    Баллы:
    4
    В макете свойство у картинки посмотри
    Линию можно убрать

    Вложения:

  3. TopicStarter Overlay
    Samouchka
    Offline

    Samouchka Опытный в 1С

    Регистрация:
    20 мар 2013
    Сообщения:
    214
    Симпатии:
    1
    Баллы:
    29
    Так макета-то табличного документа у меня нет. Я всё делаю программно: и картинки создаю, и табличный документ, а потом располагаю картинки в областях ТабДока.

Поделиться этой страницей