Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
24 окт 2021, 10:15

Побочный эффект с картинкой

Автор aleon1, 16 июн 2021, 02:43

0 Пользователей и 1 гость просматривают эту тему.

aleon1

Добрый день!
Обнаружился побочный эффект с выводом картинки в печатную форму.
В макете описан параметр Эскиз, для него указан ПараметрКартинки, вот так:



Все работает почти нормально, если не считать вот этого:



Вывожу картинку вот таким образом:


Если ЗначениеЗаполнено(Характ.ФайлКартинки) Тогда
Попытка
ДанныеКартинки = РаботаСФайлами.ДвоичныеДанныеФайла(Характ.ФайлКартинки);
ИмяФайла = ПолучитьИмяВременногоФайла();
ДанныеКартинки.Записать(ИмяФайла);
Картинка = Новый Картинка(ИмяФайла);
Продукция.Параметры.Эскиз = Картинка;
Исключение
Продукция.Параметры.Эскиз = "";
КонецПопытки
КонецЕсли;


Откуда берется текст "Картинка" внизу изображения и что надо сделать, чтобы его не было?
Знал Fortran, Macroassembler, Clipper, Lisp, C, Pascal, VBA, HTML, CSS, JavaScript, только 1С не могу одолеть

LexaK

если еще это актуально
уберите из свойств ячейки

Параметр:  Эскиз   //очистите этот реквизит

оставьте
ПараметрКартинки: Эскиз

(там где у вас на рисунке Макет)


да, еще хотел спросить, а зачем вы двоичные данные записываете в файл?
картинку же можно сразу получить из двоичных данных!
ответ Понравился? (в смысле пригодился?)

aleon1

Цитата: LexaK от 17 июн 2021, 11:26
уберите из свойств ячейки

Параметр:  Эскиз   //очистите этот реквизит

оставьте
ПараметрКартинки: Эскиз

(там где у вас на рисунке Макет)

Сделал так, текст "Картинка" исчез. Спасибо!

Цитата: LexaK от 17 июн 2021, 11:26
да, еще хотел спросить, а зачем вы двоичные данные записываете в файл?
картинку же можно сразу получить из двоичных данных!

Вы правы, так короче

ДанныеКартинки = РаботаСФайлами.ДвоичныеДанныеФайла(Характ.ФайлКартинки);
    Картинка = Новый Картинка(ДанныеКартинки);
Продукция.Параметры.Эскиз = Картинка;

Здесь есть еще такой момент: если понадобится вывести картинку с надписью, так чтобы вместо "Картинка" задать какой-то осмысленный текст надписи, куда его писать?
Кроме такого

        Продукция.Область(Верх, Лево, Низ, Право).Текст = "Текст надписи"   

ничего в голову не приходит.
Знал Fortran, Macroassembler, Clipper, Lisp, C, Pascal, VBA, HTML, CSS, JavaScript, только 1С не могу одолеть

Похожие темы (4)

Рейтинг@Mail.ru Rambler's Top100

Поиск