Для реализации вышеописанного необходимо установить ActiveX-библиотеку GflAx, после этого возможно обращение к любым ее свойствам и методам. Привожу пример обработки, с помощью которой можно открыть файл картинки любого формата, поиграть ее масштабом, подвигать в разные стороны - то есть простейший вьюер графики на 1С. Среди файлов находится также сама библиотека, отдельным файлом лежит хэлп по ней, где описаны все ее богатые возможности (на английском).
Расширенная работа с графикой в среде 1С 7.7 и 1С 8.*
Разработка - Работа с интерфейсом
Скачать исходный код
Наименование | Файл | Версия | Размер | |||
---|---|---|---|---|---|---|
-
.1204812853 183,50Kb
2198
|
.1204812853 | 183,50Kb | 2198 | Скачать бесплатно | ||
-
.1204813257 834,04Kb
2057
|
.1204813257 | 834,04Kb | 2057 | Скачать бесплатно | ||
-
.1204813351 65,02Kb
1900
|
.1204813351 | 65,02Kb | 1900 | Скачать бесплатно | ||
Возможные форматы графических файлов - впечатляет
.1204818605 7,97Kb
1722
|
.1204818605 | 7,97Kb | 1722 | Скачать бесплатно | ||
Набор дополнительных процедур и функций с работы с GflAx (например для вывода графиков)
.1206457138 51,00Kb
1769
|
.1206457138 | 51,00Kb | 1769 | Скачать бесплатно |
См. также
Богатый редактор картинок, хранимых в базе, с возможностью РИСОВАНИЯ. Редактор внешних файлов картинок. Объект, расширяющий возможности работы с картинками из встроенного языка (Три в одном) + Обработка «Стандартизация картинок»
Работа с интерфейсом Рабочее место Платформа 1С v8.3 Управляемые формы Конфигурации 1cv8 Платные (руб)
Обработка предназначена для редактирования картинок в режиме «Предприятие», с возможностью РИСОВАТЬ на них. Поддерживается работа как в обычных формах (толстый клиент) так и на управляемых формах (тонкий клиент). Обработка позволяет редактировать как картинки, хранимые в базе, так и графические файлы с диска на файловой системе. Помимо базовых функций (изменение размеров, преобразование формата, обрезание картинки, повороты и т.п.) – редактор имеет богатый набор инструментов для рисования. Доступна функция вставки изображения из буфера обмена. Также обработка может быть использована из встроенного языка как объект для редактирования картинок. Объект может быть использован: на стороне клиента, на стороне сервера, из внешнего соединения. Данная обработка будет особенно полезна тем, кто вносит картинки в базу (изображения номенклатуры, фотографии физических лиц и т.п.). Функционал реализуется с использованием JavaScript и бесплатного ПО ImageMagick (без использования внешних компонент).
6000 руб.
16.01.2015 62060 43 59
[Расширения] Динамическое управление видимостью и доступностью элементов форм (УФ) (8.3.6+)
Работа с интерфейсом Платформа 1С v8.3 Управляемые формы Конфигурации 1cv8 Платные (руб)
Механизм «Динамическое управление доступом к элементам форм объектов 1С8» предназначен для обеспечения возможности оперативного управления видимостью и доступностью элементов форм документов и справочников продуктов фирмы «1С» «1С:Предприятие 8». Решение универсальное, встраивается в любую конфигурацию с минимальными доработками, что позволяет без проблем обновлять типовые решения.
5000 руб.
14.01.2016 54672 16 21
Управление дашбордами
Работа с интерфейсом Платформа 1С v8.3 Конфигурации 1cv8 Платные (руб)
Обработка предназначена для создания и управления дашбордами.
2400 руб.
29.06.2020 16890 22 4
Новогоднее оформление для 1С
Работа с интерфейсом Платформа 1С v8.3 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 1С:Зарплата и Управление Персоналом 3.x 1С:Управление нашей фирмой 3.0 Бесплатно (free)
Добавьте новогоднего настроения! Расширение создает декорацию в виде гирлянды на некоторых формах объектов.
27.12.2023 11136 760 elcoan 45
Конструктор HTML, CSS и javascript
Инструментарий разработчика Работа с интерфейсом Платформа 1С v8.3 Конфигурации 1cv8 Абонемент ($m)
Подходит для создания web-страниц для замены управляемых форм 1С, красивых отчетов, интерфейса мобильного приложения на платформе 1С и для простых страниц веб-сайтов.
2 стартмани
10.04.2023 9874 153 acces969 31
Модель состояния для MVC
Работа с интерфейсом Платформа 1С v8.3 Конфигурации 1cv8 Абонемент ($m)
"MVC плохо применима в 1С" - познакомьтесь с моделью состояния и, возможно, ваше мнение поменяется! Представленное решение является эволюционным развитием идеи реализации MVC для 1С. В новой версии добавлены DSL для описания модели состояния, а также параметризация свойств параметров и элементов формы.
1 стартмани
05.07.2022 3928 kalyaka 4
Табло очереди заказов на экран телевизора
WEB-интеграция Работа с интерфейсом Платформа 1С v8.3 1С:Розница 2 Платные (руб)
Связка из веб-приложения и расширения для 1С: Розница 2.3.
3600 руб.
29.04.2022 12279 1 5
Условное оформление элементов форм в пользовательском режиме 1С (управление видимостью и доступностью элементов форм)
Работа с интерфейсом Платформа 1С v8.3 Платные (руб)
Подсистема условного оформления элементов форм (далее подсистема) предназначена для настройки оформления элементов форм (видимость, доступность, цвет фона, цвет текста и прочее) в пользовательском режиме 1С. Также подсистему возможно использовать для ограничения доступа к реквизитам формы для определенных пользователей (или групп пользователей).
6000 руб.
18.01.2022 8935 1 2
Будьте добры!Помогите пожалуйста понять, что неправильно делаю, хотя вроде всё должно быть правильно!!!
У меня возникло впечатление, что данная компонента у меня подглючивает!!!
Если я создаю картинку допустим 1000*1000, то в некоторых участках вообще невозможно что-либо отобразить (элементарную линию или прямоугольник и т.д.), а в некоторых участках рисуется неадекватные параметрам фигуры!!!
Привожу элементарный пример построения прямоугольника, который несоответствует своим пропорциям и параметрам:
Функция ПолучитьЦвет(Красный,Зеленый,Синий)
Возврат Окр(Синий)*65536+Окр(Зеленый)*256+Окр(Красный);
КонецФункции
//*******************************************
Процедура Выполнить()
картинка=СоздатьОбъект("GFLAX.GFLAX");
картинка.NewBitmap(1000,1000,ПолучитьЦвет(255,255,255));
Картинка.DrawRectangle(200,0,400,150);
Картинка.SaveFormat=4;
картинка.SaveBitmap(КаталогИБ()+"pictures\graf.bmp");
График.Загрузить(КаталогИБ()+"pictures\graf.bmp");
График.РежимРисования(2);
КонецПроцедуры
Заранее сердечно благодарю!!!
1. В макет таблицы вставляешь картинку.
2. В свойствах картинки на закладке "Текст" пишешь:
ПриВыводеКартинки(Таб.ТекущийОбъект,Файл)
3. В модуль вставляешь процедуру:
Процедура ПриВыводеКартинки(Картинка,Файл)
Картинка.РежимРисования(3);
Картинка.Загрузить(Файл);
КонецПроцедуры
4. Выводишь таблицу:
СпрТовары=СоздатьОбъект("Справочник.Товары");
Таб=СоздатьОбъект("Таблица");
СпрТовары.ВыбратьЭлементы();
Пока СпрТовары.ПолучитьЭлемент()=1 Цикл
Файл=КаталогСКартинками+СпрТовары.ИмяКартинки;
Таб.ВывестиСекцию("Строка");
КонецЦикла
Таб.Показать();
"GFL SDK/GFLAx" is provided as Freeware for private non-commercial or educational use (including non-profit organization).
You must contact me for commercial use and distribution. webmaster@xnview.com
@GFL SDK/GFLAx" разработан как бесплатный для частного некоммерческого использования или использования в образовательных целях (включая не приносящие денежной выгоды организации)
Для использования в коммерческих целях или распространения программы вы должны связаться со мной по адресу
webmaster@xnview.com
Плюс налицо распространение (distribution)
Саш, это не в упрек тебе, просто для сведения ;)
(17) неа, неверно двигается - возьми картинку размера большего чем подложка...
а именно: сильно простое условие написано в процедуре сдвига - не все варианты отрабатывает правильно - если интересно будет - можешь код у меня глянуть - но это не суть важно! важно то, что есть хороший активикс! за что и спасибо!
-- Да, сюда можно прюкрутить, например, эх, когда руки дойдут:-)
опция и меню принтера притушена, что делать?????
Подскажите пожалуйста!!! Заранее мегаспасибо!!!
Форма = Отчеты.Отчет1.ПолучитьФорму("Форма");
Форма.ЭлементыФормы.ДобавитьActiveX("GflAx.GflAx.1","gflax");
График = ЭлементыФормы.gflax;
Ошибки нет, но использовать gflax неудается.
Как поступить в данном случае?
P.S.: в данный момент занимаюсь извращением: составляю линию из отдельных полей картинок с изображением черного квадрата 3х3 пикселя %)
1. кладешь на форму картинку.
2. создаешь объект gflax (в восьмерке это вроде Новый(), в семерке СоздатьОбъект()), идентификатор можешь посмотреть в примере для семерки.
3. с помощью объекта gflax рисуешь в буфере картинку, сохраняешь в bmp-файл.
4. загружаешь файл в лежащую на форме картинку.
5. при необходимости возврощаешься к п.3
Можешь посмотреть пример к семерке, по аналогии заточишь под себя. если ты ни в 7.7, ни в 8.1 не силен, то помочь не могу.
Меня смутило понятие идентификатор, google по запросу "идентификатор gflax" ничего не дал. Нашел в 7.7 это
Картинка=СоздатьОбъект("GFLAX.GFLAX");
Возможно имелся ввиду тип, но может быть я и ошибаюсь.
В разных вариациях потестил след. часть кода в 8.1 (Нарисовать Линию и Получить Цвет здесь не приводится)
Форма = Отчеты.Отчет1.ПолучитьФорму("Форма");
Форма.ЭлементыФормы.ДобавитьActiveX("GflAx.GflAx.1","GFLAX");
Картинка = Новый("GFLAX.GFLAX");
НарисоватьЛинию(Картинка, 1, 2, 3, 4, 1,ПолучитьЦвет(220,250,255));
Ошибки были, либо неверный тип "GFLAX.GFLAX", либо GFLAX не найдено поле (метод).
Пока что не нашел ни одного примера для 8.1 с использованием этого AX, и наводит на мысль, что поддержка 8.1 - пустые слова.
Если я правильно понял идею.
Мб и поможет, но нужно рисование прямой линии, соединяющей произвольные две точки, здесь же только функция времени.
(44)
Документация достойная, сразу получилось подключить в VBA, а значит возможно я там смогу нарисовать то, что мне нужно, сохранить и открыть в 1с. Жаль, что я сразу не понял того, что в 1с это делается таким же путем (сохранение-открытие), а следовательно построение анимации будет хуже, чем я предполагал. Осталось получить ответ на важный вопрос: Можно ли использовать напрямую GFLAx в 8.1 и рисовать на встроенном элементе управления?
Своим извращением решил задачу, жаль что без помощи выложенного здесь средства.
(49) -> (48) не я ее придумал себе
:)))))))))))))))))))))))))))))))))))))))))))))))))))))))))
Картинка.DrawRectangle(200,0,200,150);
Я кстати изучал Вашу серъёзную разработку, но не совсем разобрался как в ней можно в отчёте в печатной форме допустим сформировать график, а потом вывести его на принтер.
А на форме я выводил различные геом. фигуры легко, что конешн радует!!!
DrawRectangle(X As long, Y As long, Width As long, Height As long)
То есть в методе указываются не координаты начальной и конечной точек, у координаты начальной точки плюс ширина плюс высота. Во втором примере у вас как раз все правильно было указано.
Простите меня пожалуста, что я так "протормозил". Честно говоря не обратил внимание на параметры рисования прямоугольника и зациклился на координатах.
Впредь теперь буду тщательно изучать доку!!!
МегаСпасибо Вам за помощь и за ВАШ труд!!!
Пример на 1с 7.7
Картинки=СоздатьОбъект("GFLAx.GFLAx");
Картинки.MergeAddFile("D:\12345.JPG",90,1,1);
Картинки.MergeAddFile("D:\123.JPG",20,1,1);
Картинки.Merge();
Картинки.SaveFormat = 1;
Картинки.SaveBitmap("D:\123456789_" + Строка(Y)+".JPG");
При изменении масштаба, сдвиге картинке и т.д. каждый раз записывается на диск временная картинка.
В реальной работе не приведет ли это к тому, что у пользователей будут через несколько месяцев умирать жесткие диски?
Ну при условии, скажем, что просматривается в день около сотни фотографий + еще несколько операций по изменению масштаба и т.д.
Как я делаю обычно в Photoshop:
1) копируем исходный слой в буфер (Ctrl+A, Ctrl+C)
2) создаем копию слоя из буфера (Ctrl+V)
3) переходим на исходный слой, скрываем его (Слои -> Скрыть слои), затем переходим на слой-копию
4) добавляем к слою-копии слой-маску (Слои -> Слой-маска -> Показать все)
5) переходим на слой-маску (Alt + щелчок по слою-маске)
6) вставляем изображение из буфера (Ctrl+V)
7) инвертируем слой-маску (Ctrl+I)
8) идем в кривые (Ctrl+M), центральную точку кривой тянем до верха
9) переходим на слой-копию (Alt + щелчок по слою)
10) любуемся результатом, если удовлетворяет то выполняем сведение (Слои -> Выполнить сведение)
Это работает (с некоторыми вариациями) когда фон однотонный, иначе только ручками (лассо, ластик, штамп и т.д.)
если не очень понятна инструкция
Для получения уведомлений о новых публикациях автора подключите телеграм бот: Инфостарт бот
№ 15599
Создание 06.03.08 17:14
Обновление 25.03.08 00:00
Просмотры 42420
Загрузки 9646
Рейтинг
159
Комментарии 88
Код открыт Не указано
Рубрики Работа с интерфейсом
Кому Программист
Тип файла Внешняя обработка (ert,epf)
Платформа Платформа 1С v8.3
Конфигурация
Конфигурации 1cv8
,
Конфигурации 1cv7
,
Не имеет значения
Операционная система Не имеет значения
Страна Россия
Отрасль Не имеет значения
Налоги Не имеет значения
Вид учета Не имеет значения
Доступ к файлу Бесплатно (free)