//
Примеры
Подключение внешней компоненты
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 |
&НаКлиенте Перем ИдентификаторКомпоненты, ВнешняяКомпонента; &НаСервере Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка) ОбработкаОбъект = РеквизитФормыВЗначение("Объект"); МакетКомпоненты = ОбработкаОбъект.ПолучитьМакет("GraphViz1C"); АдресКомпоненты = ПоместитьВоВременноеХранилище(МакетКомпоненты, УникальныйИдентификатор); КонецПроцедуры &НаКлиенте Процедура ПриОткрытии(Отказ) ИдентификаторКомпоненты = "_" + СтрЗаменить(Новый УникальныйИдентификатор, "-", ""); ВыполнитьПодключениеВнешнейКомпоненты(Истина); КонецПроцедуры &НаКлиенте Процедура ВыполнитьПодключениеВнешнейКомпоненты(ДопПараметры) Экспорт НачатьПодключениеВнешнейКомпоненты( Новый ОписаниеОповещения("ПодключенаВнешняяКомпонента", ЭтаФорма, ДопПараметры), АдресКомпоненты, ИдентификаторКомпоненты, ТипВнешнейКомпоненты.Native); КонецПроцедуры &НаКлиенте Процедура ПодключенаВнешняяКомпонента(Подключение, ДополнительныеПараметры) Экспорт Если Подключение Тогда ВнешняяКомпонента = Новый("AddIn." + ИдентификаторКомпоненты + ".GraphViz1C"); ИначеЕсли ДополнительныеПараметры = Истина Тогда НачатьУстановкуВнешнейКомпоненты( Новый ОписаниеОповещения("ВыполнитьПодключениеВнешнейКомпоненты", ЭтаФорма, Ложь), АдресКомпоненты); КонецЕсли; КонецПроцедуры |
//
Источники
Управление окнами и мониторами в 1С //infostart.ru
LevkinSergey 1cWinCtrl - для управления окнами Windows и Linux (по технологии Native API) //github.com