1c/Tasks
1
0
Fork 0
mirror of https://github.com/BlizD/Tasks.git synced 2025-01-14 03:20:16 +02:00
Code Issues Releases Activity

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

Browse Source 
Убрал дублирование кода
This commit is contained in:
Anton Ivanov 2020-06-14 13:16:27 +03:00
parent 5bc5df518f
commit a2b2418e0b
3 changed files with 47 additions and 39 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -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

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

@ -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
#КонецОбласти

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

@ -243,6 +243,36 @@
КонецФункции
Процедура ВставитьКартинкуПродолжение(Форма, Версия,
ДополнительныеПараметры, КомпонентаБуфераОбмена) Экспорт
Если НЕ ЗначениеЗаполнено(Версия) Тогда
Сообщение = Новый СообщениеПользователю;
Сообщение.Текст = "Не удалось получить компоненту работы с буфером обмена";
Сообщение.Сообщить();
КонецЕсли;
Картинка = узРаботаСБуферомОбменаКлиент.КартинкаИзБуфера("Картинка", КомпонентаБуфераОбмена);
Если Картинка = Неопределено Тогда
Сообщение = Новый СообщениеПользователю;
Сообщение.Текст = "Не удалось получить картинку из буфера обмена";
Сообщение.Сообщить();
КонецЕсли;
ВыделениеНачало = Неопределено;
ВыделениеКонец = Неопределено;
Форма.Элементы.Содержание.ПолучитьГраницыВыделения(ВыделениеНачало,ВыделениеКонец);
Если ВыделениеНачало <> Неопределено Тогда
Форма.ВставитьКартинкуНаСервере(ВыделениеНачало, Картинка);
КонецЕсли;
КонецПроцедуры
#КонецОбласти
#Область ПрограммныйИнтерфейс_Асинхронно