mirror of
https://github.com/BlizD/Tasks.git
synced 2025-03-19 21:07:53 +02:00
#199 @milanse Вставка изображения из буфера обмена в описание задач
Компонента взята из https://github.com/cpr1c/clipboard_1c
This commit is contained in:
Anton Ivanov
parent
17128d0c75
commit
2684a69180
@ -126,6 +126,11 @@
|
|||||||
</Picture>
|
</Picture>
|
||||||
<ExtendedTooltip name="ВключитьРедактированиеВопросРасширеннаяПодсказка" id="59"/>
|
<ExtendedTooltip name="ВключитьРедактированиеВопросРасширеннаяПодсказка" id="59"/>
|
||||||
</Button>
|
</Button>
|
||||||
|
<Button name="КомандаПолноэкранныйРежимВопрос" id="68">
|
||||||
|
<Type>CommandBarButton</Type>
|
||||||
|
<CommandName>Form.Command.КомандаПолноэкранныйРежимВопрос</CommandName>
|
||||||
|
<ExtendedTooltip name="КомандаПолноэкранныйРежимВопросРасширеннаяПодсказка" id="69"/>
|
||||||
|
</Button>
|
||||||
<Button name="ВставитьЗадачуВопрос" id="60">
|
<Button name="ВставитьЗадачуВопрос" id="60">
|
||||||
<Type>CommandBarButton</Type>
|
<Type>CommandBarButton</Type>
|
||||||
<CommandName>Form.Command.ВставитьЗадачуВопрос</CommandName>
|
<CommandName>Form.Command.ВставитьЗадачуВопрос</CommandName>
|
||||||
@ -195,6 +200,11 @@
|
|||||||
<CommandName>Form.Command.ВключитьРедактированиеОтвет</CommandName>
|
<CommandName>Form.Command.ВключитьРедактированиеОтвет</CommandName>
|
||||||
<ExtendedTooltip name="ВключитьРедактированиеОтветРасширеннаяПодсказка" id="67"/>
|
<ExtendedTooltip name="ВключитьРедактированиеОтветРасширеннаяПодсказка" id="67"/>
|
||||||
</Button>
|
</Button>
|
||||||
|
<Button name="КомандаПолноэкранныйРежимОтвет" id="70">
|
||||||
|
<Type>CommandBarButton</Type>
|
||||||
|
<CommandName>Form.Command.КомандаПолноэкранныйРежимОтвет</CommandName>
|
||||||
|
<ExtendedTooltip name="КомандаПолноэкранныйРежимОтветРасширеннаяПодсказка" id="71"/>
|
||||||
|
</Button>
|
||||||
<Button name="ВставитьЗадачуОтвет" id="64">
|
<Button name="ВставитьЗадачуОтвет" id="64">
|
||||||
<Type>CommandBarButton</Type>
|
<Type>CommandBarButton</Type>
|
||||||
<CommandName>Form.Command.ВставитьЗадачуОтвет</CommandName>
|
<CommandName>Form.Command.ВставитьЗадачуОтвет</CommandName>
|
||||||
@ -412,5 +422,49 @@
|
|||||||
<Action>ВключитьРедактирование</Action>
|
<Action>ВключитьРедактирование</Action>
|
||||||
<ModifiesSavedData>true</ModifiesSavedData>
|
<ModifiesSavedData>true</ModifiesSavedData>
|
||||||
</Command>
|
</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>
|
</Commands>
|
||||||
</Form>
|
</Form>
|
||||||
@ -172,3 +172,44 @@
|
|||||||
|
|
||||||
//}milanse 31.05.2020 22:17:31
|
//}milanse 31.05.2020 22:17:31
|
||||||
|
|
||||||
|
//{[+](фрагмент ДОБАВЛЕН), milanse 07.06.2020 1:03:51
|
||||||
|
&НаКлиенте
|
||||||
|
Процедура КомандаПолноэкранныйРежим(Команда)
|
||||||
|
ПараметрыФормы = Новый Структура();
|
||||||
|
ДопПараметры = НОвый Структура();
|
||||||
|
Если Команда.Имя = "КомандаПолноэкранныйРежимВопрос" Тогда
|
||||||
|
ПараметрыФормы.Вставить("ФорматированныйТекст",ФорматированныйВопрос);
|
||||||
|
ДопПараметры.Вставить("Реквизит","ФорматированныйВопрос");
|
||||||
|
ИначеЕсли Команда.Имя = "КомандаПолноэкранныйРежимВопрос" Тогда
|
||||||
|
ПараметрыФормы.Вставить("ФорматированныйТекст",ФорматированныйОтвет);
|
||||||
|
ДопПараметры.Вставить("Реквизит","ФорматированныйОтвет");
|
||||||
|
КонецЕсли;
|
||||||
|
|
||||||
|
ПараметрыФормы.Вставить("ЗаголовокФормы",Заголовок);
|
||||||
|
ОповещенияОЗакрытии = Новый ОписаниеОповещения("ВыполнитьПослеЗакрытияПолноэкранногоРежима", ЭтотОбъект,ДопПараметры);
|
||||||
|
|
||||||
|
ОткрытьФорму("Справочник.узЗадачи.Форма.ФормаПолноэкранныйРежим",
|
||||||
|
ПараметрыФормы,,,,,
|
||||||
|
ОповещенияОЗакрытии,
|
||||||
|
РежимОткрытияОкнаФормы.БлокироватьОкноВладельца);
|
||||||
|
|
||||||
|
КонецПроцедуры
|
||||||
|
|
||||||
|
&НаКлиенте
|
||||||
|
Процедура ВыполнитьПослеЗакрытияПолноэкранногоРежима(РезультатЗакрытия, ДопПараметры) Экспорт
|
||||||
|
Если РезультатЗакрытия = Неопределено Тогда
|
||||||
|
Возврат;
|
||||||
|
Конецесли;
|
||||||
|
|
||||||
|
ЭтотОбъект[ДопПараметры.Реквизит] = РезультатЗакрытия.ФорматированныйТекст;
|
||||||
|
|
||||||
|
ПерезагрузимДанныеНаСервере();
|
||||||
|
КонецПроцедуры
|
||||||
|
|
||||||
|
&НаСервере
|
||||||
|
Процедура ПерезагрузимДанныеНаСервере()
|
||||||
|
пОбъект = РеквизитФормыВЗначение("Объект");
|
||||||
|
ЗначениеВРеквизитФормы(пОбъект,"Объект");
|
||||||
|
КонецПроцедуры
|
||||||
|
//}milanse 07.06.2020 1:03:51
|
||||||
|
|
||||||
|
|||||||
@ -28,6 +28,11 @@
|
|||||||
<LocationInCommandBar>InCommandBarAndInAdditionalSubmenu</LocationInCommandBar>
|
<LocationInCommandBar>InCommandBarAndInAdditionalSubmenu</LocationInCommandBar>
|
||||||
<ExtendedTooltip name="СодержаниеКомандаПолноэкранныйРежимРасширеннаяПодсказка" id="9"/>
|
<ExtendedTooltip name="СодержаниеКомандаПолноэкранныйРежимРасширеннаяПодсказка" id="9"/>
|
||||||
</Button>
|
</Button>
|
||||||
|
<Button name="ВставитьКартинку" id="14">
|
||||||
|
<Type>UsualButton</Type>
|
||||||
|
<CommandName>Form.Command.ВставитьКартинкуИзБуфера</CommandName>
|
||||||
|
<ExtendedTooltip name="ВставитьКартинкуРасширеннаяПодсказка" id="15"/>
|
||||||
|
</Button>
|
||||||
<CommandBar name="КоманднаяПанельРедактирования" id="10">
|
<CommandBar name="КоманднаяПанельРедактирования" id="10">
|
||||||
<Title>
|
<Title>
|
||||||
<v8:item>
|
<v8:item>
|
||||||
@ -132,5 +137,26 @@
|
|||||||
<Representation>TextPicture</Representation>
|
<Representation>TextPicture</Representation>
|
||||||
<CurrentRowUse>DontUse</CurrentRowUse>
|
<CurrentRowUse>DontUse</CurrentRowUse>
|
||||||
</Command>
|
</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>
|
</Commands>
|
||||||
</Form>
|
</Form>
|
||||||
@ -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}");
|
//WSHShell.SendKeys("{LEFT}{LEFT}{ENTER}");
|
||||||
КонецПроцедуры
|
КонецПроцедуры
|
||||||
|
|
||||||
|
//{[+](фрагмент ДОБАВЛЕН), milanse 07.06.2020 0:06:35
|
||||||
|
&НаКлиенте
|
||||||
|
Процедура ВставитьКартинку(Команда)
|
||||||
|
|
||||||
|
узРаботаСБуферомОбменаКлиент.НачатьПолучениеВерсииКомпоненты(Новый ОписаниеОповещения("ВставитьКартинкуПродолжение",ЭтотОбъект),КомпонентаБуфераОбмена);
|
||||||
|
|
||||||
|
КонецПроцедуры
|
||||||
|
|
||||||
|
&НаКлиенте
|
||||||
|
Процедура ВставитьКартинкуПродолжение(Версия,ДополнительныеПараметры) Экспорт
|
||||||
|
Если ЗначениеЗаполнено(Версия) Тогда
|
||||||
|
Картинка = узРаботаСБуферомОбменаКлиент.КартинкаИзБуфера("Картинка",КомпонентаБуфераОбмена);
|
||||||
|
Если Картинка <> Неопределено Тогда
|
||||||
|
ВыделениеНачало = Неопределено;
|
||||||
|
ВыделениеКонец = Неопределено;
|
||||||
|
Элементы.Содержание.ПолучитьГраницыВыделения(ВыделениеНачало,ВыделениеКонец);
|
||||||
|
Если ВыделениеНачало <> Неопределено Тогда
|
||||||
|
ВставитьКартинкуНаСервере(ВыделениеНачало, Картинка);
|
||||||
|
КонецЕсли;
|
||||||
|
Иначе
|
||||||
|
Сообщить("Не удалось получить картинку из буфера обмена");
|
||||||
|
КонецЕсли;
|
||||||
|
Иначе
|
||||||
|
Сообщить("Не удалось получить компоненту работы с буфером обмена");
|
||||||
|
КонецЕсли;
|
||||||
|
КонецПроцедуры
|
||||||
|
|
||||||
|
&НаСервере
|
||||||
|
Процедура ВставитьКартинкуНаСервере(Знач ВыделениеНачало, Знач Картинка)
|
||||||
|
|
||||||
|
Перем ТекстСсылки;
|
||||||
|
|
||||||
|
ТекстСсылки = ФорматированныйТекст.Вставить(ВыделениеНачало,Картинка,Тип("КартинкаФорматированногоДокумента"));
|
||||||
|
|
||||||
|
КонецПроцедуры
|
||||||
|
//}milanse 07.06.2020 0:06:35
|
||||||
|
|||||||
@ -359,6 +359,11 @@
|
|||||||
<CommandName>Form.Command.КомандаОткрытьЗадачу</CommandName>
|
<CommandName>Form.Command.КомандаОткрытьЗадачу</CommandName>
|
||||||
<ExtendedTooltip name="СодержаниеКомандаОткрытьЗадачуРасширеннаяПодсказка" id="474"/>
|
<ExtendedTooltip name="СодержаниеКомандаОткрытьЗадачуРасширеннаяПодсказка" id="474"/>
|
||||||
</Button>
|
</Button>
|
||||||
|
<Button name="ВставитьКартинкуИзБуфера" id="589">
|
||||||
|
<Type>UsualButton</Type>
|
||||||
|
<CommandName>Form.Command.ВставитьКартинкуИзБуфера</CommandName>
|
||||||
|
<ExtendedTooltip name="ВставитьКартинкуИзБуфераРасширеннаяПодсказка" id="590"/>
|
||||||
|
</Button>
|
||||||
<Button name="СодержаниеКомандаПолноэкранныйРежим" id="483">
|
<Button name="СодержаниеКомандаПолноэкранныйРежим" id="483">
|
||||||
<Type>UsualButton</Type>
|
<Type>UsualButton</Type>
|
||||||
<Width>3</Width>
|
<Width>3</Width>
|
||||||
@ -2777,6 +2782,27 @@
|
|||||||
<Action>КомандаЗаполнитьНаблюдателямиИзВышестоящейОсновнойЗадачи</Action>
|
<Action>КомандаЗаполнитьНаблюдателямиИзВышестоящейОсновнойЗадачи</Action>
|
||||||
<CurrentRowUse>DontUse</CurrentRowUse>
|
<CurrentRowUse>DontUse</CurrentRowUse>
|
||||||
</Command>
|
</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>
|
</Commands>
|
||||||
<CommandInterface>
|
<CommandInterface>
|
||||||
<NavigationPanel>
|
<NavigationPanel>
|
||||||
|
|||||||
@ -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
23
src/cf/CommonModules/узРаботаСБуферомОбменаКлиент.xml
Normal 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
255
src/cf/CommonModules/узРаботаСБуферомОбменаКлиент/Ext/Module.bsl
Normal 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
16
src/cf/CommonTemplates/узКомпонентаРаботыСБуферомОбмена.xml
Normal 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>
|
||||||
Binary file not shown.
@ -677,6 +677,7 @@
|
|||||||
<CommonTemplate>узМакетJS</CommonTemplate>
|
<CommonTemplate>узМакетJS</CommonTemplate>
|
||||||
<CommonTemplate>узМакетCSS</CommonTemplate>
|
<CommonTemplate>узМакетCSS</CommonTemplate>
|
||||||
<CommonTemplate>узСловарьПоУмолчанию</CommonTemplate>
|
<CommonTemplate>узСловарьПоУмолчанию</CommonTemplate>
|
||||||
|
<CommonTemplate>узКомпонентаРаботыСБуферомОбмена</CommonTemplate>
|
||||||
<FilterCriterion>СвязанныеДокументы</FilterCriterion>
|
<FilterCriterion>СвязанныеДокументы</FilterCriterion>
|
||||||
<FilterCriterion>ФайлыВТоме</FilterCriterion>
|
<FilterCriterion>ФайлыВТоме</FilterCriterion>
|
||||||
<CommonModule>АдминистрированиеКластера</CommonModule>
|
<CommonModule>АдминистрированиеКластера</CommonModule>
|
||||||
@ -1000,6 +1001,7 @@
|
|||||||
<CommonModule>узОбщийМодульКлиент</CommonModule>
|
<CommonModule>узОбщийМодульКлиент</CommonModule>
|
||||||
<CommonModule>узОбщийМодульСервер</CommonModule>
|
<CommonModule>узОбщийМодульСервер</CommonModule>
|
||||||
<CommonModule>узТелеграммСервер</CommonModule>
|
<CommonModule>узТелеграммСервер</CommonModule>
|
||||||
|
<CommonModule>узРаботаСБуферомОбменаКлиент</CommonModule>
|
||||||
<ExchangePlan>ОбновлениеИнформационнойБазы</ExchangePlan>
|
<ExchangePlan>ОбновлениеИнформационнойБазы</ExchangePlan>
|
||||||
<XDTOPackage>ApplicationExtensionsManifest_1_0_0_1</XDTOPackage>
|
<XDTOPackage>ApplicationExtensionsManifest_1_0_0_1</XDTOPackage>
|
||||||
<XDTOPackage>EnterpriseData_1_2_3</XDTOPackage>
|
<XDTOPackage>EnterpriseData_1_2_3</XDTOPackage>
|
||||||
|
|||||||
@ -124,6 +124,8 @@
|
|||||||
<xr:Item xsi:type="xr:MDObjectRef">CommonCommand.узПрисоединенныеФайлыПисемПоЗадаче</xr:Item>
|
<xr:Item xsi:type="xr:MDObjectRef">CommonCommand.узПрисоединенныеФайлыПисемПоЗадаче</xr:Item>
|
||||||
<xr:Item xsi:type="xr:MDObjectRef">Role.узПользовательОграничениеДоступаЧтение</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">Catalog.узГруппыДоступаЗадач</xr:Item>
|
||||||
|
<xr:Item xsi:type="xr:MDObjectRef">CommonModule.узРаботаСБуферомОбменаКлиент</xr:Item>
|
||||||
|
<xr:Item xsi:type="xr:MDObjectRef">CommonTemplate.узКомпонентаРаботыСБуферомОбмена</xr:Item>
|
||||||
</Content>
|
</Content>
|
||||||
</Properties>
|
</Properties>
|
||||||
<ChildObjects>
|
<ChildObjects>
|
||||||
|
|||||||
Loading…
x
Reference in New Issue
Block a user