From a2b2418e0b00baa2b8ba334f13ed9d674ad170ec Mon Sep 17 00:00:00 2001 From: Anton Ivanov Date: Sun, 14 Jun 2020 13:16:27 +0300 Subject: [PATCH] =?UTF-8?q?#199=20=20=D0=92=D1=81=D1=82=D0=B0=D0=B2=D0=BA?= =?UTF-8?q?=D0=B0=20=D0=B8=D0=B7=D0=BE=D0=B1=D1=80=D0=B0=D0=B6=D0=B5=D0=BD?= =?UTF-8?q?=D0=B8=D1=8F=20=D0=B8=D0=B7=20=D0=B1=D1=83=D1=84=D0=B5=D1=80?= =?UTF-8?q?=D0=B0=20=D0=BE=D0=B1=D0=BC=D0=B5=D0=BD=D0=B0=20=D0=B2=20=D0=BE?= =?UTF-8?q?=D0=BF=D0=B8=D1=81=D0=B0=D0=BD=D0=B8=D0=B5=20=D0=B7=D0=B0=D0=B4?= =?UTF-8?q?=D0=B0=D1=87=20=D0=A3=D0=B1=D1=80=D0=B0=D0=BB=20=D0=B4=D1=83?= =?UTF-8?q?=D0=B1=D0=BB=D0=B8=D1=80=D0=BE=D0=B2=D0=B0=D0=BD=D0=B8=D0=B5=20?= =?UTF-8?q?=D0=BA=D0=BE=D0=B4=D0=B0?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- .../Forms/ФормаПолноэкранныйРежим/Ext/Form/Module.bsl | 27 +++++------------ .../Forms/ФормаЭлемента/Ext/Form/Module.bsl | 29 ++++++------------ .../Ext/Module.bsl | 30 +++++++++++++++++++ 3 files changed, 47 insertions(+), 39 deletions(-) diff --git a/src/cf/Catalogs/узЗадачи/Forms/ФормаПолноэкранныйРежим/Ext/Form/Module.bsl b/src/cf/Catalogs/узЗадачи/Forms/ФормаПолноэкранныйРежим/Ext/Form/Module.bsl index 97ac9b9be..14dbc578c 100644 --- a/src/cf/Catalogs/узЗадачи/Forms/ФормаПолноэкранныйРежим/Ext/Form/Module.bsl +++ b/src/cf/Catalogs/узЗадачи/Forms/ФормаПолноэкранныйРежим/Ext/Form/Module.bsl @@ -1,7 +1,7 @@ -//{[+](фрагмент ДОБАВЛЕН), milanse 07.06.2020 0:06:10 +// {[+](фрагмент ДОБАВЛЕН), milanse 07.06.2020 0:06:10 &НаКлиенте Перем КомпонентаБуфераОбмена; -//}milanse 07.06.2020 0:06:10 +// }milanse 07.06.2020 0:06:10 &НаКлиенте Процедура КомандаЗакрыть(Команда) @@ -30,7 +30,7 @@ //WSHShell.SendKeys("{LEFT}{LEFT}{ENTER}"); КонецПроцедуры -//{[+](фрагмент ДОБАВЛЕН), milanse 07.06.2020 0:06:35 +// {[+](фрагмент ДОБАВЛЕН), milanse 07.06.2020 0:06:35 &НаКлиенте Процедура ВставитьКартинку(Команда) @@ -40,21 +40,10 @@ &НаКлиенте Процедура ВставитьКартинкуПродолжение(Версия,ДополнительныеПараметры) Экспорт - Если ЗначениеЗаполнено(Версия) Тогда - Картинка = узРаботаСБуферомОбменаКлиент.КартинкаИзБуфера("Картинка",КомпонентаБуфераОбмена); - Если Картинка <> Неопределено Тогда - ВыделениеНачало = Неопределено; - ВыделениеКонец = Неопределено; - Элементы.Содержание.ПолучитьГраницыВыделения(ВыделениеНачало,ВыделениеКонец); - Если ВыделениеНачало <> Неопределено Тогда - ВставитьКартинкуНаСервере(ВыделениеНачало, Картинка); - КонецЕсли; - Иначе - Сообщить("Не удалось получить картинку из буфера обмена"); - КонецЕсли; - Иначе - Сообщить("Не удалось получить компоненту работы с буфером обмена"); - КонецЕсли; + + узРаботаСБуферомОбменаКлиент.ВставитьКартинкуПродолжение(ЭтотОбъект, + Версия, ДополнительныеПараметры, КомпонентаБуфераОбмена); + КонецПроцедуры &НаСервере @@ -65,4 +54,4 @@ ТекстСсылки = ФорматированныйТекст.Вставить(ВыделениеНачало,Картинка,Тип("КартинкаФорматированногоДокумента")); КонецПроцедуры -//}milanse 07.06.2020 0:06:35 +// }milanse 07.06.2020 0:06:35 diff --git a/src/cf/Catalogs/узЗадачи/Forms/ФормаЭлемента/Ext/Form/Module.bsl b/src/cf/Catalogs/узЗадачи/Forms/ФормаЭлемента/Ext/Form/Module.bsl index e0cd24988..bbbc42574 100644 --- a/src/cf/Catalogs/узЗадачи/Forms/ФормаЭлемента/Ext/Form/Module.bsl +++ b/src/cf/Catalogs/узЗадачи/Forms/ФормаЭлемента/Ext/Form/Module.bsl @@ -1,8 +1,8 @@  -//{[+](фрагмент ДОБАВЛЕН), milanse 07.06.2020 0:06:10 +// {[+](фрагмент ДОБАВЛЕН), milanse 07.06.2020 0:06:10 &НаКлиенте Перем КомпонентаБуфераОбмена; -//}milanse 07.06.2020 0:06:10 +// }milanse 07.06.2020 0:06:10 #Область ОбработчикиСобытийФормы @@ -571,7 +571,7 @@ ВопросыИОтветы.Параметры.УстановитьЗначениеПараметра("ЭтоНовый",Объект.Ссылка.Пустая()); КонецПроцедуры -//{[+](фрагмент ДОБАВЛЕН), milanse 07.06.2020 0:06:35 +// {[+](фрагмент ДОБАВЛЕН), milanse 07.06.2020 0:06:35 &НаКлиенте Процедура ВставитьКартинку(Команда) @@ -581,32 +581,21 @@ &НаКлиенте Процедура ВставитьКартинкуПродолжение(Версия,ДополнительныеПараметры) Экспорт - Если ЗначениеЗаполнено(Версия) Тогда - Картинка = узРаботаСБуферомОбменаКлиент.КартинкаИзБуфера("Картинка",КомпонентаБуфераОбмена); - Если Картинка <> Неопределено Тогда - ВыделениеНачало = Неопределено; - ВыделениеКонец = Неопределено; - Элементы.Содержание.ПолучитьГраницыВыделения(ВыделениеНачало,ВыделениеКонец); - Если ВыделениеНачало <> Неопределено Тогда - ВставитьКартинкуНаСервере(ВыделениеНачало, Картинка); - КонецЕсли; - Иначе - Сообщить("Не удалось получить картинку из буфера обмена"); - КонецЕсли; - Иначе - Сообщить("Не удалось получить компоненту работы с буфером обмена"); - КонецЕсли; + + узРаботаСБуферомОбменаКлиент.ВставитьКартинкуПродолжение(ЭтотОбъект, + Версия, ДополнительныеПараметры, КомпонентаБуфераОбмена); + КонецПроцедуры &НаСервере -Процедура ВставитьКартинкуНаСервере(Знач ВыделениеНачало, Знач Картинка) +Процедура ВставитьКартинкуНаСервере(Знач ВыделениеНачало, Знач Картинка) Экспорт Перем ТекстСсылки; ТекстСсылки = ФорматированныйТекст.Вставить(ВыделениеНачало,Картинка,Тип("КартинкаФорматированногоДокумента")); КонецПроцедуры -//}milanse 07.06.2020 0:06:35 +// }milanse 07.06.2020 0:06:35 #КонецОбласти diff --git a/src/cf/CommonModules/узРаботаСБуферомОбменаКлиент/Ext/Module.bsl b/src/cf/CommonModules/узРаботаСБуферомОбменаКлиент/Ext/Module.bsl index ef9ed452d..c49006afa 100644 --- a/src/cf/CommonModules/узРаботаСБуферомОбменаКлиент/Ext/Module.bsl +++ b/src/cf/CommonModules/узРаботаСБуферомОбменаКлиент/Ext/Module.bsl @@ -243,6 +243,36 @@ КонецФункции +Процедура ВставитьКартинкуПродолжение(Форма, Версия, + ДополнительныеПараметры, КомпонентаБуфераОбмена) Экспорт + + Если НЕ ЗначениеЗаполнено(Версия) Тогда + Сообщение = Новый СообщениеПользователю; + Сообщение.Текст = "Не удалось получить компоненту работы с буфером обмена"; + Сообщение.Сообщить(); + КонецЕсли; + + Картинка = узРаботаСБуферомОбменаКлиент.КартинкаИзБуфера("Картинка", КомпонентаБуфераОбмена); + + Если Картинка = Неопределено Тогда + Сообщение = Новый СообщениеПользователю; + Сообщение.Текст = "Не удалось получить картинку из буфера обмена"; + Сообщение.Сообщить(); + КонецЕсли; + + ВыделениеНачало = Неопределено; + ВыделениеКонец = Неопределено; + + Форма.Элементы.Содержание.ПолучитьГраницыВыделения(ВыделениеНачало,ВыделениеКонец); + + Если ВыделениеНачало <> Неопределено Тогда + + Форма.ВставитьКартинкуНаСервере(ВыделениеНачало, Картинка); + + КонецЕсли; + +КонецПроцедуры + #КонецОбласти #Область ПрограммныйИнтерфейс_Асинхронно