1c/Tasks
1
0
Fork 0
mirror of https://github.com/BlizD/Tasks.git synced 2025-04-17 11:56:19 +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

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

@ -40,21 +40,10 @@
&НаКлиенте &НаКлиенте
Процедура ВставитьКартинкуПродолжение(Версия,ДополнительныеПараметры) Экспорт Процедура ВставитьКартинкуПродолжение(Версия,ДополнительныеПараметры) Экспорт
Если ЗначениеЗаполнено(Версия) Тогда
Картинка = узРаботаСБуферомОбменаКлиент.КартинкаИзБуфера("Картинка",КомпонентаБуфераОбмена); узРаботаСБуферомОбменаКлиент.ВставитьКартинкуПродолжение(ЭтотОбъект,
Если Картинка <> Неопределено Тогда Версия, ДополнительныеПараметры, КомпонентаБуфераОбмена);
ВыделениеНачало = Неопределено;
ВыделениеКонец = Неопределено;
Элементы.Содержание.ПолучитьГраницыВыделения(ВыделениеНачало,ВыделениеКонец);
Если ВыделениеНачало <> Неопределено Тогда
ВставитьКартинкуНаСервере(ВыделениеНачало, Картинка);
КонецЕсли;
Иначе
Сообщить("Не удалось получить картинку из буфера обмена");
КонецЕсли;
Иначе
Сообщить("Не удалось получить компоненту работы с буфером обмена");
КонецЕсли;
КонецПроцедуры КонецПроцедуры
&НаСервере &НаСервере

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

@ -581,25 +581,14 @@
&НаКлиенте &НаКлиенте
Процедура ВставитьКартинкуПродолжение(Версия,ДополнительныеПараметры) Экспорт Процедура ВставитьКартинкуПродолжение(Версия,ДополнительныеПараметры) Экспорт
Если ЗначениеЗаполнено(Версия) Тогда
Картинка = узРаботаСБуферомОбменаКлиент.КартинкаИзБуфера("Картинка",КомпонентаБуфераОбмена); узРаботаСБуферомОбменаКлиент.ВставитьКартинкуПродолжение(ЭтотОбъект,
Если Картинка <> Неопределено Тогда Версия, ДополнительныеПараметры, КомпонентаБуфераОбмена);
ВыделениеНачало = Неопределено;
ВыделениеКонец = Неопределено;
Элементы.Содержание.ПолучитьГраницыВыделения(ВыделениеНачало,ВыделениеКонец);
Если ВыделениеНачало <> Неопределено Тогда
ВставитьКартинкуНаСервере(ВыделениеНачало, Картинка);
КонецЕсли;
Иначе
Сообщить("Не удалось получить картинку из буфера обмена");
КонецЕсли;
Иначе
Сообщить("Не удалось получить компоненту работы с буфером обмена");
КонецЕсли;
КонецПроцедуры КонецПроцедуры
&НаСервере &НаСервере
Процедура ВставитьКартинкуНаСервере(Знач ВыделениеНачало, Знач Картинка) Процедура ВставитьКартинкуНаСервере(Знач ВыделениеНачало, Знач Картинка) Экспорт
Перем ТекстСсылки; Перем ТекстСсылки;

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

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