Для редактора монако реализована возможность включить две дополнительные

команды в контекстном меню для работы с буфером обмена #562

Author: LevkinSergey

src/Инструменты/src/CommonForms/УИ_НастройкиИнструментов/Form.form

@@ -447,6 +447,49 @@
             <showInFooter>true</showInFooter>
             <extInfo xsi:type="form:CheckBoxFieldExtInfo"/>
           </items>
+          <items xsi:type="form:FormField">
+            <name>ИспользоватьКомандыРаботыСБуферомВКонтекстномМеню</name>
+            <id>88</id>
+            <visible>true</visible>
+            <enabled>true</enabled>
+            <userVisible>
+              <common>true</common>
+            </userVisible>
+            <dataPath xsi:type="form:DataPath">
+              <segments>ИспользоватьКомандыРаботыСБуферомВКонтекстномМеню</segments>
+            </dataPath>
+            <extendedTooltip>
+              <name>ИспользоватьКомандыРаботыСБуферомВКонтекстномМенюРасширеннаяПодсказка</name>
+              <id>90</id>
+              <visible>true</visible>
+              <enabled>true</enabled>
+              <userVisible>
+                <common>true</common>
+              </userVisible>
+              <type>Label</type>
+              <autoMaxWidth>true</autoMaxWidth>
+              <autoMaxHeight>true</autoMaxHeight>
+              <extInfo xsi:type="form:LabelDecorationExtInfo">
+                <horizontalAlign>Left</horizontalAlign>
+              </extInfo>
+            </extendedTooltip>
+            <contextMenu>
+              <name>ИспользоватьКомандыРаботыСБуферомВКонтекстномМенюКонтекстноеМеню</name>
+              <id>89</id>
+              <visible>true</visible>
+              <enabled>true</enabled>
+              <userVisible>
+                <common>true</common>
+              </userVisible>
+              <autoFill>true</autoFill>
+            </contextMenu>
+            <type>CheckBoxField</type>
+            <editMode>Enter</editMode>
+            <showInHeader>true</showInHeader>
+            <headerHorizontalAlign>Left</headerHorizontalAlign>
+            <showInFooter>true</showInFooter>
+            <extInfo xsi:type="form:CheckBoxFieldExtInfo"/>
+          </items>
           <visible>true</visible>
           <enabled>true</enabled>
           <userVisible>
@@ -1713,6 +1756,23 @@
       <common>true</common>
     </edit>
   </attributes>
+  <attributes>
+    <name>ИспользоватьКомандыРаботыСБуферомВКонтекстномМеню</name>
+    <title>
+      <key>ru</key>
+      <value>Использовать команды работы с буфером в контекстном меню</value>
+    </title>
+    <id>17</id>
+    <valueType>
+      <types>Boolean</types>
+    </valueType>
+    <view>
+      <common>true</common>
+    </view>
+    <edit>
+      <common>true</common>
+    </edit>
+  </attributes>
   <formCommands>
     <name>Применить</name>
     <title>

src/Инструменты/src/CommonForms/УИ_НастройкиИнструментов/Module.bsl

@@ -158,6 +158,7 @@
 	ВысотаСтрок = ПараметрыРедактора.Monaco.ВысотаСтрок;
 	ОтображатьПробелыИТабуляции = ПараметрыРедактора.Monaco.ОтображатьПробелыИТабуляции;
 	ИспользоватьСтандартныеШаблоныКода = ПараметрыРедактора.Monaco.ИспользоватьСтандартныеШаблоныКода;
+	ИспользоватьКомандыРаботыСБуферомВКонтекстномМеню = ПараметрыРедактора.Monaco.ИспользоватьКомандыРаботыСБуферомВКонтекстномМеню;
 
 	КаталогиИсходныхФайловКонфигурации.Очистить();
 	Элементы.КаталогиИсходныхФайловКонфигурацииИсточник.СписокВыбора.Очистить();
@@ -285,7 +286,8 @@
 	ПараметрыРедактораКода.Monaco.ВысотаСтрок = ВысотаСтрок;
 	ПараметрыРедактораКода.Monaco.ОтображатьПробелыИТабуляции = ОтображатьПробелыИТабуляции;
 	ПараметрыРедактораКода.Monaco.ИспользоватьСтандартныеШаблоныКода = ИспользоватьСтандартныеШаблоныКода;
-	
+	ПараметрыРедактораКода.Monaco.ИспользоватьКомандыРаботыСБуферомВКонтекстномМеню = ИспользоватьКомандыРаботыСБуферомВКонтекстномМеню;
+
 	Для Каждого ТекСтрока Из КаталогиИсходныхФайловКонфигурации Цикл
 		Если Не ЗначениеЗаполнено(ТекСтрока.Каталог) Тогда
 			Продолжить;

src/Инструменты/src/CommonModules/УИ_РедакторКодаКлиент/Module.bsl

@@ -190,8 +190,16 @@
 						ЭтотОбъект, ПараметрыОповещения));
 				КонецЕсли;
 			КонецЕсли;
-
+		ИначеЕсли ТекущееСобытие.ИмяСобытия = "TOOLS_UI_1C_COPY_TO_CLIPBOARD" Тогда
+			ВыделенныйТекст = ВыделенныйТекстРедактораЭлементаФормы(Форма, ТекущееСобытие.Элемент);
+			УИ_БуферОбменаКлиент.НачатьКопированиеСтрокиВБуфер(ВыделенныйТекст,
+															   Новый ОписаниеОповещения("НачатьКопированиеВыделенногоТекстаВБуферОбменаЗавершение",
+				ЭтотОбъект, ДополнительныеПараметры));
+		ИначеЕсли ТекущееСобытие.ИмяСобытия = "TOOLS_UI_1C_PASTE_FROM_CLIPBOARD" Тогда
+			УИ_БуферОбменаКлиент.НачатьПолучениеСтрокиИзБуфера(Новый ОписаниеОповещения("НачатьВставкуИзБуферОбменаЗавершениеПолученияТекста",
+				ЭтотОбъект, ДополнительныеПараметры));
 		КонецЕсли;
+		
 	КонецЦикла;
 
 	Форма.УИ_РедакторКодаКлиентскиеДанные.События.Очистить();
@@ -335,6 +343,11 @@
 				ДокументView.setOption("generateModificationEvent", Истина);
 			КонецЕсли;
 
+			Если ПараметрыРедактора.ПараметрыРедактора.ИспользоватьКомандыРаботыСБуферомВКонтекстномМеню Тогда
+				ДокументView.addContextMenuItem("Копировать", "TOOLS_UI_1C_COPY_TO_CLIPBOARD");
+				ДокументView.addContextMenuItem("Вставить", "TOOLS_UI_1C_PASTE_FROM_CLIPBOARD");
+			КонецЕсли;
+						
 			ДокументView.clearMetadata();
 
 			ОписаниеКонфигурацииДляИнициализации = ОписаниеМетаданныйДляИнициализацииРедактораMonaco();
@@ -1528,6 +1541,25 @@
 
 #Область СлужебныйПрограммныйИнтерфейс
 
+// Начать вставку из буфер обмена завершение получения текста.
+// 
+// Параметры:
+//  Результат - Строка - Результат
+//  ДополнительныеПараметры - Структура -Дополнительные параметры:
+//  	* Форма - ФормаКлиентскогоПриложения
+//  	* Элемент - ПолеФормы
+Процедура НачатьВставкуИзБуферОбменаЗавершениеПолученияТекста(Результат, ДополнительныеПараметры) Экспорт
+	Если Результат = Неопределено Тогда
+		Возврат;
+	КонецЕсли;
+	
+	ВставитьТекстПоПозицииКурсораЭлементаФормы(ДополнительныеПараметры.Форма, ДополнительныеПараметры.Элемент, Результат);
+КонецПроцедуры
+
+Процедура НачатьКопированиеВыделенногоТекстаВБуферОбменаЗавершение(Результат, ПараметрыВызова, ДополнительныеПараметры) Экспорт
+
+КонецПроцедуры
+
 // Начать загрузку кода из сервиса завершение ввода ссылки.
 // 
 // Параметры:

src/Инструменты/src/CommonModules/УИ_РедакторКодаКлиентСервер/Module.bsl

@@ -336,6 +336,20 @@
 	Возврат Варианты.Авто;
 КонецФункции
 
+// Параметры редактора monaco по умолчанию.
+// 
+// Возвращаемое значение:
+//  Структура -  Параметры редактора monaco по умолчанию:
+// * ВысотаСтрок - Число - 
+// * Тема - Строка - 
+// * ЯзыкСинтаксиса - Строка - 
+// * ИспользоватьКартуКода - Булево - 
+// * СкрытьНомераСтрок - Булево - 
+// * ОтображатьПробелыИТабуляции - Булево - 
+// * КаталогиИсходныхФайлов - Массив Из Строка - 
+// * ФайлыШаблоновКода - Массив из Строка- 
+// * ИспользоватьСтандартныеШаблоныКода - Булево - 
+// * ИспользоватьКомандыРаботыСБуферомВКонтекстномМеню - Булево - 
 Функция ПараметрыРедактораMonacoПоУмолчанию() Экспорт
 	ПараметрыРедактора = Новый Структура;
 	ПараметрыРедактора.Вставить("ВысотаСтрок", 0);
@@ -347,6 +361,7 @@
 	ПараметрыРедактора.Вставить("КаталогиИсходныхФайлов", Новый Массив);
 	ПараметрыРедактора.Вставить("ФайлыШаблоновКода", Новый Массив);
 	ПараметрыРедактора.Вставить("ИспользоватьСтандартныеШаблоныКода", Истина);
+	ПараметрыРедактора.Вставить("ИспользоватьКомандыРаботыСБуферомВКонтекстномМеню", Ложь);
 
 	Возврат ПараметрыРедактора;
 КонецФункции