1c/Tasks
1
0
Fork 0
mirror of https://github.com/BlizD/Tasks.git synced 2025-03-19 21:07:53 +02:00
Code Issues Releases Activity

#199 @milanse Вставка изображения из буфера обмена в описание задач

Browse Source 
Компонента взята из https://github.com/cpr1c/clipboard_1c
This commit is contained in:
Anton Ivanov 2020-06-14 12:46:53 +03:00
parent 17128d0c75
commit 2684a69180
12 changed files with 528 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

54
src/cf/Catalogs/узВопросыОтветы/Forms/ФормаЭлемента/Ext/Form.xml
View File

@ -126,6 +126,11 @@
</Picture>
<ExtendedTooltip name="ВключитьРедактированиеВопросРасширеннаяПодсказка" id="59"/>
</Button>
<Button name="КомандаПолноэкранныйРежимВопрос" id="68">
<Type>CommandBarButton</Type>
<CommandName>Form.Command.КомандаПолноэкранныйРежимВопрос</CommandName>
<ExtendedTooltip name="КомандаПолноэкранныйРежимВопросРасширеннаяПодсказка" id="69"/>
</Button>
<Button name="ВставитьЗадачуВопрос" id="60">
<Type>CommandBarButton</Type>
<CommandName>Form.Command.ВставитьЗадачуВопрос</CommandName>
@ -195,6 +200,11 @@
<CommandName>Form.Command.ВключитьРедактированиеОтвет</CommandName>
<ExtendedTooltip name="ВключитьРедактированиеОтветРасширеннаяПодсказка" id="67"/>
</Button>
<Button name="КомандаПолноэкранныйРежимОтвет" id="70">
<Type>CommandBarButton</Type>
<CommandName>Form.Command.КомандаПолноэкранныйРежимОтвет</CommandName>
<ExtendedTooltip name="КомандаПолноэкранныйРежимОтветРасширеннаяПодсказка" id="71"/>
</Button>
<Button name="ВставитьЗадачуОтвет" id="64">
<Type>CommandBarButton</Type>
<CommandName>Form.Command.ВставитьЗадачуОтвет</CommandName>
@ -412,5 +422,49 @@
<Action>ВключитьРедактирование</Action>
<ModifiesSavedData>true</ModifiesSavedData>
</Command>
<Command name="КомандаПолноэкранныйРежимВопрос" id="5">
<Title>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Полноэкранный режим</v8:content>
</v8:item>
</Title>
<ToolTip>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Команда полноэкранный режим вопрос</v8:content>
</v8:item>
</ToolTip>
<Picture>
<xr:Ref>CommonPicture.узРазвернутьНаПолныйЭкран</xr:Ref>
<xr:LoadTransparent>false</xr:LoadTransparent>
</Picture>
<Action>КомандаПолноэкранныйРежим</Action>
<Representation>Picture</Representation>
<ModifiesSavedData>true</ModifiesSavedData>
<CurrentRowUse>DontUse</CurrentRowUse>
</Command>
<Command name="КомандаПолноэкранныйРежимОтвет" id="6">
<Title>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Полноэкранный режим</v8:content>
</v8:item>
</Title>
<ToolTip>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Команда полноэкранный режим</v8:content>
</v8:item>
</ToolTip>
<Picture>
<xr:Ref>CommonPicture.узРазвернутьНаПолныйЭкран</xr:Ref>
<xr:LoadTransparent>false</xr:LoadTransparent>
</Picture>
<Action>КомандаПолноэкранныйРежим</Action>
<Representation>Picture</Representation>
<ModifiesSavedData>true</ModifiesSavedData>
<CurrentRowUse>DontUse</CurrentRowUse>
</Command>
</Commands>
</Form>

41
src/cf/Catalogs/узВопросыОтветы/Forms/ФормаЭлемента/Ext/Form/Module.bsl
View File

@ -172,3 +172,44 @@
//}milanse 31.05.2020 22:17:31
//{[+](фрагмент ДОБАВЛЕН), milanse 07.06.2020 1:03:51
&НаКлиенте
Процедура КомандаПолноэкранныйРежим(Команда)
ПараметрыФормы = Новый Структура();
ДопПараметры = НОвый Структура();
Если Команда.Имя = "КомандаПолноэкранныйРежимВопрос" Тогда
ПараметрыФормы.Вставить("ФорматированныйТекст",ФорматированныйВопрос);
ДопПараметры.Вставить("Реквизит","ФорматированныйВопрос");
ИначеЕсли Команда.Имя = "КомандаПолноэкранныйРежимВопрос" Тогда
ПараметрыФормы.Вставить("ФорматированныйТекст",ФорматированныйОтвет);
ДопПараметры.Вставить("Реквизит","ФорматированныйОтвет");
КонецЕсли;
ПараметрыФормы.Вставить("ЗаголовокФормы",Заголовок);
ОповещенияОЗакрытии = Новый ОписаниеОповещения("ВыполнитьПослеЗакрытияПолноэкранногоРежима", ЭтотОбъект,ДопПараметры);
ОткрытьФорму("Справочник.узЗадачи.Форма.ФормаПолноэкранныйРежим",
ПараметрыФормы,,,,,
ОповещенияОЗакрытии,
РежимОткрытияОкнаФормы.БлокироватьОкноВладельца);
КонецПроцедуры
&НаКлиенте
Процедура ВыполнитьПослеЗакрытияПолноэкранногоРежима(РезультатЗакрытия, ДопПараметры) Экспорт
Если РезультатЗакрытия = Неопределено Тогда
Возврат;
Конецесли;
ЭтотОбъект[ДопПараметры.Реквизит] = РезультатЗакрытия.ФорматированныйТекст;
ПерезагрузимДанныеНаСервере();
КонецПроцедуры
&НаСервере
Процедура ПерезагрузимДанныеНаСервере()
пОбъект = РеквизитФормыВЗначение("Объект");
ЗначениеВРеквизитФормы(пОбъект,"Объект");
КонецПроцедуры
//}milanse 07.06.2020 1:03:51

26
src/cf/Catalogs/узЗадачи/Forms/ФормаПолноэкранныйРежим/Ext/Form.xml
View File

@ -28,6 +28,11 @@
<LocationInCommandBar>InCommandBarAndInAdditionalSubmenu</LocationInCommandBar>
<ExtendedTooltip name="СодержаниеКомандаПолноэкранныйРежимРасширеннаяПодсказка" id="9"/>
</Button>
<Button name="ВставитьКартинку" id="14">
<Type>UsualButton</Type>
<CommandName>Form.Command.ВставитьКартинкуИзБуфера</CommandName>
<ExtendedTooltip name="ВставитьКартинкуРасширеннаяПодсказка" id="15"/>
</Button>
<CommandBar name="КоманднаяПанельРедактирования" id="10">
<Title>
<v8:item>
@ -132,5 +137,26 @@
<Representation>TextPicture</Representation>
<CurrentRowUse>DontUse</CurrentRowUse>
</Command>
<Command name="ВставитьКартинкуИзБуфера" id="3">
<Title>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Вставить картинку из буфера</v8:content>
</v8:item>
</Title>
<ToolTip>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Вставить картинку из буфера</v8:content>
</v8:item>
</ToolTip>
<Shortcut>Ctrl+Shift+V</Shortcut>
<Picture>
<xr:Ref>CommonPicture.ВставитьИзБуфераОбмена</xr:Ref>
<xr:LoadTransparent>true</xr:LoadTransparent>
</Picture>
<Action>ВставитьКартинку</Action>
<Representation>Picture</Representation>
</Command>
</Commands>
</Form>

42
src/cf/Catalogs/узЗадачи/Forms/ФормаПолноэкранныйРежим/Ext/Form/Module.bsl
View File

@ -1,4 +1,8 @@

//{[+](фрагмент ДОБАВЛЕН), milanse 07.06.2020 0:06:10
&НаКлиенте
Перем КомпонентаБуфераОбмена;
//}milanse 07.06.2020 0:06:10
&НаКлиенте
Процедура КомандаЗакрыть(Команда)
РезультатЗакрытия = Новый Структура();
@ -26,3 +30,39 @@
//WSHShell.SendKeys("{LEFT}{LEFT}{ENTER}");
КонецПроцедуры
//{[+](фрагмент ДОБАВЛЕН), milanse 07.06.2020 0:06:35
&НаКлиенте
Процедура ВставитьКартинку(Команда)
узРаботаСБуферомОбменаКлиент.НачатьПолучениеВерсииКомпоненты(Новый ОписаниеОповещения("ВставитьКартинкуПродолжение",ЭтотОбъект),КомпонентаБуфераОбмена);
КонецПроцедуры
&НаКлиенте
Процедура ВставитьКартинкуПродолжение(Версия,ДополнительныеПараметры) Экспорт
Если ЗначениеЗаполнено(Версия) Тогда
Картинка = узРаботаСБуферомОбменаКлиент.КартинкаИзБуфера("Картинка",КомпонентаБуфераОбмена);
Если Картинка <> Неопределено Тогда
ВыделениеНачало = Неопределено;
ВыделениеКонец = Неопределено;
Элементы.Содержание.ПолучитьГраницыВыделения(ВыделениеНачало,ВыделениеКонец);
Если ВыделениеНачало <> Неопределено Тогда
ВставитьКартинкуНаСервере(ВыделениеНачало, Картинка);
КонецЕсли;
Иначе
Сообщить("Не удалось получить картинку из буфера обмена");
КонецЕсли;
Иначе
Сообщить("Не удалось получить компоненту работы с буфером обмена");
КонецЕсли;
КонецПроцедуры
&НаСервере
Процедура ВставитьКартинкуНаСервере(Знач ВыделениеНачало, Знач Картинка)
Перем ТекстСсылки;
ТекстСсылки = ФорматированныйТекст.Вставить(ВыделениеНачало,Картинка,Тип("КартинкаФорматированногоДокумента"));
КонецПроцедуры
//}milanse 07.06.2020 0:06:35

26
src/cf/Catalogs/узЗадачи/Forms/ФормаЭлемента/Ext/Form.xml
View File

@ -359,6 +359,11 @@
<CommandName>Form.Command.КомандаОткрытьЗадачу</CommandName>
<ExtendedTooltip name="СодержаниеКомандаОткрытьЗадачуРасширеннаяПодсказка" id="474"/>
</Button>
<Button name="ВставитьКартинкуИзБуфера" id="589">
<Type>UsualButton</Type>
<CommandName>Form.Command.ВставитьКартинкуИзБуфера</CommandName>
<ExtendedTooltip name="ВставитьКартинкуИзБуфераРасширеннаяПодсказка" id="590"/>
</Button>
<Button name="СодержаниеКомандаПолноэкранныйРежим" id="483">
<Type>UsualButton</Type>
<Width>3</Width>
@ -2777,6 +2782,27 @@
<Action>КомандаЗаполнитьНаблюдателямиИзВышестоящейОсновнойЗадачи</Action>
<CurrentRowUse>DontUse</CurrentRowUse>
</Command>
<Command name="ВставитьКартинкуИзБуфера" id="17">
<Title>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Вставить картинку из буфера</v8:content>
</v8:item>
</Title>
<ToolTip>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Вставить картинку из буфера</v8:content>
</v8:item>
</ToolTip>
<Shortcut>Ctrl+Shift+V</Shortcut>
<Picture>
<xr:Ref>CommonPicture.ВставитьИзБуфераОбмена</xr:Ref>
<xr:LoadTransparent>true</xr:LoadTransparent>
</Picture>
<Action>ВставитьКартинку</Action>
<Representation>Picture</Representation>
</Command>
</Commands>
<CommandInterface>
<NavigationPanel>

42
src/cf/Catalogs/узЗадачи/Forms/ФормаЭлемента/Ext/Form/Module.bsl
View File

@ -1,4 +1,9 @@

//{[+](фрагмент ДОБАВЛЕН), milanse 07.06.2020 0:06:10
&НаКлиенте
Перем КомпонентаБуфераОбмена;
//}milanse 07.06.2020 0:06:10
#Область ОбработчикиСобытийФормы
&НаСервере
@ -566,6 +571,43 @@
ВопросыИОтветы.Параметры.УстановитьЗначениеПараметра("ЭтоНовый",Объект.Ссылка.Пустая());
КонецПроцедуры
//{[+](фрагмент ДОБАВЛЕН), milanse 07.06.2020 0:06:35
&НаКлиенте
Процедура ВставитьКартинку(Команда)
узРаботаСБуферомОбменаКлиент.НачатьПолучениеВерсииКомпоненты(Новый ОписаниеОповещения("ВставитьКартинкуПродолжение",ЭтотОбъект),КомпонентаБуфераОбмена);
КонецПроцедуры
&НаКлиенте
Процедура ВставитьКартинкуПродолжение(Версия,ДополнительныеПараметры) Экспорт
Если ЗначениеЗаполнено(Версия) Тогда
Картинка = узРаботаСБуферомОбменаКлиент.КартинкаИзБуфера("Картинка",КомпонентаБуфераОбмена);
Если Картинка <> Неопределено Тогда
ВыделениеНачало = Неопределено;
ВыделениеКонец = Неопределено;
Элементы.Содержание.ПолучитьГраницыВыделения(ВыделениеНачало,ВыделениеКонец);
Если ВыделениеНачало <> Неопределено Тогда
ВставитьКартинкуНаСервере(ВыделениеНачало, Картинка);
КонецЕсли;
Иначе
Сообщить("Не удалось получить картинку из буфера обмена");
КонецЕсли;
Иначе
Сообщить("Не удалось получить компоненту работы с буфером обмена");
КонецЕсли;
КонецПроцедуры
&НаСервере
Процедура ВставитьКартинкуНаСервере(Знач ВыделениеНачало, Знач Картинка)
Перем ТекстСсылки;
ТекстСсылки = ФорматированныйТекст.Вставить(ВыделениеНачало,Картинка,Тип("КартинкаФорматированногоДокумента"));
КонецПроцедуры
//}milanse 07.06.2020 0:06:35
#КонецОбласти
#Область ОбработчикиСобытийЭлементовШапкиФормы

23
src/cf/CommonModules/узРаботаСБуферомОбменаКлиент.xml Normal file
View File

@ -0,0 +1,23 @@
<?xml version="1.0" encoding="UTF-8"?>
<MetaDataObject xmlns="http://v8.1c.ru/8.3/MDClasses" xmlns:app="http://v8.1c.ru/8.2/managed-application/core" xmlns:cfg="http://v8.1c.ru/8.1/data/enterprise/current-config" xmlns:cmi="http://v8.1c.ru/8.2/managed-application/cmi" xmlns:ent="http://v8.1c.ru/8.1/data/enterprise" xmlns:lf="http://v8.1c.ru/8.2/managed-application/logform" xmlns:style="http://v8.1c.ru/8.1/data/ui/style" xmlns:sys="http://v8.1c.ru/8.1/data/ui/fonts/system" xmlns:v8="http://v8.1c.ru/8.1/data/core" xmlns:v8ui="http://v8.1c.ru/8.1/data/ui" xmlns:web="http://v8.1c.ru/8.1/data/ui/colors/web" xmlns:win="http://v8.1c.ru/8.1/data/ui/colors/windows" xmlns:xen="http://v8.1c.ru/8.3/xcf/enums" xmlns:xpr="http://v8.1c.ru/8.3/xcf/predef" xmlns:xr="http://v8.1c.ru/8.3/xcf/readable" xmlns:xs="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" version="2.9">
<CommonModule uuid="a5b237b3-be3c-4fe5-b308-d2ae73ac6e9e">
<Properties>
<Name>узРаботаСБуферомОбменаКлиент</Name>
<Synonym>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Уз работа с буфером обмена клиент</v8:content>
</v8:item>
</Synonym>
<Comment/>
<Global>false</Global>
<ClientManagedApplication>true</ClientManagedApplication>
<Server>false</Server>
<ExternalConnection>false</ExternalConnection>
<ClientOrdinaryApplication>false</ClientOrdinaryApplication>
<ServerCall>false</ServerCall>
<Privileged>false</Privileged>
<ReturnValuesReuse>DontUse</ReturnValuesReuse>
</Properties>
</CommonModule>
</MetaDataObject>

255
src/cf/CommonModules/узРаботаСБуферомОбменаКлиент/Ext/Module.bsl Normal file
View File

@ -0,0 +1,255 @@
Функция ИдентификаторКомпоненты() Экспорт
Возврат "clipboard1c";
КонецФункции
Функция ОбъектКомпонентыРаботыСБуферомОбмена(ОбъектКомпоненты = Неопределено) Экспорт
Если ОбъектКомпоненты = Неопределено Тогда
Возврат КомпонентаРаботыСБуферомОбмена();
Иначе
Возврат ОбъектКомпоненты;
КонецЕсли;
КонецФункции
Функция ПроинициализироватьКомпоненту(ПопытатьсяУстановитьКомпоненту = Истина) Экспорт
ИмяМакетаКомпоненты="ОбщийМакет.узКомпонентаРаботыСБуферомОбмена";
КодВозврата = ПодключитьВнешнююКомпоненту(ИмяМакетаКомпоненты, ИдентификаторКомпоненты(),
ТипВнешнейКомпоненты.Native);
#Если Клиент Тогда
Если Не КодВозврата Тогда
Если Не ПопытатьсяУстановитьКомпоненту Тогда
Возврат Ложь;
КонецЕсли;
УстановитьВнешнююКомпоненту(ИмяМакетаКомпоненты);
Возврат ПроинициализироватьКомпоненту(Ложь); // Рекурсивно.
КонецЕсли;
#КонецЕсли
Возврат Новый ("AddIn." + ИдентификаторКомпоненты() + ".ClipboardControl");
КонецФункции
// Функция - Компонента регулярных выражений
//
// Параметры:
// ВсеСовпадения - Булево - Если установлено в Истина, то поиск будет выполняться по всем совпадениям, а не только по первому.
// ИгнорироватьРегистр - Булево - Если установлено в Истина, то поиск будет осуществляться без учета регистра
// Шаблон - Строка - Задает регулярное выражение которое будет использоваться при вызове методов компоненты,
// если в метод не передано значение регулярного выражения
// ВызыватьИсключения - Булево - Если установлена в Истина, то при возникновении ошибки, будет вызываться исключение,
// при обработке исключения, текст ошибки можно получить из метода ErrorDescription\ОписаниеОшибки
//
// Возвращаемое значение:
// ОбъектКомпоненты -"AddIn.RegEx.RegEx".
// Неопределено-При неудачной инициализации компоненты
//
Функция КомпонентаРаботыСБуферомОбмена() Экспорт
Попытка
Компонента= ПроинициализироватьКомпоненту(Истина);
Возврат Компонента;
Исключение
ТекстОшибки = НСтр(
"ru = 'Не удалось подключить внешнюю компоненту для работы с буфером обмена. Подробности в журнале регистрации.'");
Сообщить(ТекстОшибки + ОписаниеОшибки());
Возврат Неопределено;
КонецПопытки;
КонецФункции
Функция ВерсияПодсистемы() Экспорт
Возврат "1.0.1.1";
КонецФункции
#Область ПрограммныйИнтерфейс
Функция ВерсияКомпоненты(ОбъектКомпоненты = Неопределено) Экспорт
ОчищатьКомпоненту=ОбъектКомпоненты = Неопределено;
ОбъектКомпоненты=ОбъектКомпонентыРаботыСБуферомОбмена(ОбъектКомпоненты);
Версия=ОбъектКомпоненты.Версия;
Если ОчищатьКомпоненту Тогда
ОбъектКомпоненты=Неопределено;
КонецЕсли;
Возврат Версия;
КонецФункции
Процедура ОчиститьБуферОбмена(ОбъектКомпоненты = Неопределено) Экспорт
ОчищатьКомпоненту=ОбъектКомпоненты = Неопределено;
ОбъектКомпоненты=ОбъектКомпонентыРаботыСБуферомОбмена(ОбъектКомпоненты);
ОбъектКомпоненты.Очистить();
Если ОчищатьКомпоненту Тогда
ОбъектКомпоненты=Неопределено;
КонецЕсли;
КонецПроцедуры
// Описание
// Помещает переданную картинку в буфер обмена
//
// Параметры:
// Картинка- Картинка, ДвоичныеДанные , АдресВоВременномХранилище
// Если передается как адресВоВременномХранилище тип во временном хоранилище должен быть или картинка или двоичные данные
// ОбъектКомпоненты - Объект компоненты работы с буфером обмена - Необязательный
Процедура КопироватьКартинкуВБуфер(Картинка, ОбъектКомпоненты = Неопределено) Экспорт
ОчищатьКомпоненту=ОбъектКомпоненты = Неопределено;
Если ТипЗнч(Картинка) = Тип("Строка") И ЭтоАдресВременногоХранилища(Картинка) Тогда
ТекКартинка=ПолучитьИзВременногоХранилища(Картинка);
Иначе
ТекКартинка=Картинка;
КонецЕсли;
Если ТипЗнч(ТекКартинка) = Тип("Картинка") Тогда
ДвоичныеДанные = ТекКартинка.ПолучитьДвоичныеДанные();
ИначеЕсли ТипЗнч(ТекКартинка) = Тип("ДвоичныеДанные") Тогда
ДвоичныеДанные=ТекКартинка;
Иначе
Сообщить("Неверный тип картинки");
Возврат;
КонецЕсли;
ОбъектКомпоненты=ОбъектКомпонентыРаботыСБуферомОбмена(ОбъектКомпоненты);
ОбъектКомпоненты.ЗаписатьКартинку(ДвоичныеДанные);
Если ОчищатьКомпоненту Тогда
ОбъектКомпоненты=Неопределено;
КонецЕсли;
КонецПроцедуры
// Описание
// получает картинку из буфера обмена в формате PNG
//
// Параметры:
// ОбъектКомпоненты - Неопределено - Описание
// ВариантПолучения - Строка - Описание
// Один из варинатов
// ДвоичныеДанные- получение двоичных данных картинки
// Картинка- Преобразованное к типу "Картинка" содержание буфера
// Адрес- Адрес двоичных данных картинки во временном хранилище
// Возвращаемое значение:
// Неопределено - Описание
Функция КартинкаИзБуфера(ВариантПолучения = "Картинка", ОбъектКомпоненты = Неопределено) Экспорт
ОчищатьКомпоненту=ОбъектКомпоненты = Неопределено;
ОбъектКомпоненты=ОбъектКомпонентыРаботыСБуферомОбмена(ОбъектКомпоненты);
ДанныеКартинкиВБуфере=ОбъектКомпоненты.Картинка;
Если ОчищатьКомпоненту Тогда
ОбъектКомпоненты=Неопределено;
КонецЕсли;
Если ТипЗнч(ДанныеКартинкиВБуфере) <> Тип("ДвоичныеДанные") Тогда
Возврат Неопределено;
КонецЕсли;
Если НРег(ВариантПолучения) = "двоичныеданные" Тогда
Возврат ДанныеКартинкиВБуфере;
ИначеЕсли НРег(ВариантПолучения) = "адрес" Тогда
Возврат ПоместитьВоВременноеХранилище(ДанныеКартинкиВБуфере);
Иначе
Возврат Новый Картинка(ДанныеКартинкиВБуфере);
КонецЕсли;
КонецФункции
// Описание
// Помещает переданную строку в буфер обмена
//
// Параметры:
// СтрокаКопирования- Тип Строка- Строка, которую необходимо поместить в буфер обмена
// ОбъектКомпоненты - Объект компоненты работы с буфером обмена - Необязательный
Процедура КопироватьСтрокуВБуфер(СтрокаКопирования, ОбъектКомпоненты = Неопределено) Экспорт
ОчищатьКомпоненту=ОбъектКомпоненты = Неопределено;
ОбъектКомпоненты=ОбъектКомпонентыРаботыСБуферомОбмена(ОбъектКомпоненты);
ОбъектКомпоненты.ЗаписатьТекст(СтрокаКопирования);
Если ОчищатьКомпоненту Тогда
ОбъектКомпоненты=Неопределено;
КонецЕсли;
КонецПроцедуры
// Описание
// получает текущую строку из буфера обмена
//
// Параметры:
// ОбъектКомпоненты - Необязательный
// Возвращаемое значение:
// ТекстБуфераОбмена - Тип Строка
Функция ТекстИзБуфера(ОбъектКомпоненты = Неопределено) Экспорт
ОчищатьКомпоненту=ОбъектКомпоненты = Неопределено;
ОбъектКомпоненты=ОбъектКомпонентыРаботыСБуферомОбмена(ОбъектКомпоненты);
ТекстБуфера=ОбъектКомпоненты.Текст;
Если ОчищатьКомпоненту Тогда
ОбъектКомпоненты=Неопределено;
КонецЕсли;
Возврат ТекстБуфера;
КонецФункции
// Описание
// Очищает буфер обмена
//
// Параметры:
// ОбъектКомпоненты - Объект компоненты работы с буфером обмена - Необязательный
Процедура ОчиститьБуфер(ОбъектКомпоненты = Неопределено) Экспорт
ОчищатьКомпоненту=ОбъектКомпоненты = Неопределено;
ОбъектКомпоненты=ОбъектКомпонентыРаботыСБуферомОбмена(ОбъектКомпоненты);
ОбъектКомпоненты.Очистить();
Если ОчищатьКомпоненту Тогда
ОбъектКомпоненты=Неопределено;
КонецЕсли;
КонецПроцедуры
// Описание
// получает фортмат текущего значения из буфера обмена
//
// Параметры:
// ОбъектКомпоненты - Необязательный
// Возвращаемое значение:
// ФорматБуфераОбмена - Тип Строка
Функция ФорматБуфераОбмена(ОбъектКомпоненты = Неопределено) Экспорт
ОчищатьКомпоненту=ОбъектКомпоненты = Неопределено;
ОбъектКомпоненты=ОбъектКомпонентыРаботыСБуферомОбмена(ОбъектКомпоненты);
ФорматБуфера=ОбъектКомпоненты.Формат;
Если ОчищатьКомпоненту Тогда
ОбъектКомпоненты=Неопределено;
КонецЕсли;
Возврат ФорматБуфера;
КонецФункции
#КонецОбласти
#Область ПрограммныйИнтерфейс_Асинхронно
Процедура НачатьПолучениеВерсииКомпоненты(ОписаниеОповещения, ОбъектКомпоненты = Неопределено) Экспорт
ОбъектКомпоненты=ОбъектКомпонентыРаботыСБуферомОбмена(ОбъектКомпоненты);
ОбъектКомпоненты.НачатьПолучениеВерсия(ОписаниеОповещения);
КонецПроцедуры
#КонецОбласти

16
src/cf/CommonTemplates/узКомпонентаРаботыСБуферомОбмена.xml Normal file
View File

@ -0,0 +1,16 @@
<?xml version="1.0" encoding="UTF-8"?>
<MetaDataObject xmlns="http://v8.1c.ru/8.3/MDClasses" xmlns:app="http://v8.1c.ru/8.2/managed-application/core" xmlns:cfg="http://v8.1c.ru/8.1/data/enterprise/current-config" xmlns:cmi="http://v8.1c.ru/8.2/managed-application/cmi" xmlns:ent="http://v8.1c.ru/8.1/data/enterprise" xmlns:lf="http://v8.1c.ru/8.2/managed-application/logform" xmlns:style="http://v8.1c.ru/8.1/data/ui/style" xmlns:sys="http://v8.1c.ru/8.1/data/ui/fonts/system" xmlns:v8="http://v8.1c.ru/8.1/data/core" xmlns:v8ui="http://v8.1c.ru/8.1/data/ui" xmlns:web="http://v8.1c.ru/8.1/data/ui/colors/web" xmlns:win="http://v8.1c.ru/8.1/data/ui/colors/windows" xmlns:xen="http://v8.1c.ru/8.3/xcf/enums" xmlns:xpr="http://v8.1c.ru/8.3/xcf/predef" xmlns:xr="http://v8.1c.ru/8.3/xcf/readable" xmlns:xs="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" version="2.9">
<CommonTemplate uuid="7b0402dd-c9c3-43f6-8567-02799280cbdb">
<Properties>
<Name>узКомпонентаРаботыСБуферомОбмена</Name>
<Synonym>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Уз компонента работы с буфером обмена</v8:content>
</v8:item>
</Synonym>
<Comment/>
<TemplateType>AddIn</TemplateType>
</Properties>
</CommonTemplate>
</MetaDataObject>

BIN
src/cf/CommonTemplates/узКомпонентаРаботыСБуферомОбмена/Ext/Template.bin Normal file
View File

Binary file not shown.

2
src/cf/Configuration.xml
View File

@ -677,6 +677,7 @@
<CommonTemplate>узМакетJS</CommonTemplate>
<CommonTemplate>узМакетCSS</CommonTemplate>
<CommonTemplate>узСловарьПоУмолчанию</CommonTemplate>
<CommonTemplate>узКомпонентаРаботыСБуферомОбмена</CommonTemplate>
<FilterCriterion>СвязанныеДокументы</FilterCriterion>
<FilterCriterion>ФайлыВТоме</FilterCriterion>
<CommonModule>АдминистрированиеКластера</CommonModule>
@ -1000,6 +1001,7 @@
<CommonModule>узОбщийМодульКлиент</CommonModule>
<CommonModule>узОбщийМодульСервер</CommonModule>
<CommonModule>узТелеграммСервер</CommonModule>
<CommonModule>узРаботаСБуферомОбменаКлиент</CommonModule>
<ExchangePlan>ОбновлениеИнформационнойБазы</ExchangePlan>
<XDTOPackage>ApplicationExtensionsManifest_1_0_0_1</XDTOPackage>
<XDTOPackage>EnterpriseData_1_2_3</XDTOPackage>

2
src/cf/Subsystems/узУправлениеЗадачами.xml
View File

@ -124,6 +124,8 @@
<xr:Item xsi:type="xr:MDObjectRef">CommonCommand.узПрисоединенныеФайлыПисемПоЗадаче</xr:Item>
<xr:Item xsi:type="xr:MDObjectRef">Role.узПользовательОграничениеДоступаЧтение</xr:Item>
<xr:Item xsi:type="xr:MDObjectRef">Catalog.узГруппыДоступаЗадач</xr:Item>
<xr:Item xsi:type="xr:MDObjectRef">CommonModule.узРаботаСБуферомОбменаКлиент</xr:Item>
<xr:Item xsi:type="xr:MDObjectRef">CommonTemplate.узКомпонентаРаботыСБуферомОбмена</xr:Item>
</Content>
</Properties>
<ChildObjects>