Интерактивная справка. Часть 3. #1686

Pr-Mex · Dec 14, 2022 · e57c0b5 · e57c0b5
1 parent 570cb14
commit e57c0b5
Show file tree

Hide file tree

Showing 2 changed files with 117 additions and 0 deletions.
diff --git a/VanessaAutomation/Forms/РедакторТекста/Ext/Form/Module.bsl b/VanessaAutomation/Forms/РедакторТекста/Ext/Form/Module.bsl
@@ -1216,6 +1216,20 @@
 
 КонецФункции
 
+//Проверяет есть ли вкладка с частью указанного заголовка
+&НаКлиенте
+Функция СуществуетВкладкаСЧастьюЗаголовка(Стр) Экспорт
+
+	Для Сч = 0 По Ванесса.VanessaTabs.count() - 1 Цикл
+		Если Найти(НРег(Ванесса.VanessaTabs.tab(Сч).title), НРег(Стр)) > 0 Тогда
+			Возврат Истина;
+		КонецЕсли;	 
+	КонецЦикла;	
+
+	Возврат Ложь;
+
+КонецФункции
+
 //Проверяет есть ли вкладка с указанным именем файла. В параметр передаётся полный путь к файлу.
 &НаКлиенте
 Функция СуществуетВкладкаСФайлом(ИмяФайла) Экспорт
@@ -1391,6 +1405,22 @@
 	КонецЕсли;
 КонецПроцедуры
 
+// Закрывает первую вкладку, у которой в заголовке содержится искомая строка
+&НаКлиенте
+Процедура ЗакрытьВкладкуСЧастьюЗаголовка(Стр) Экспорт
+	Если Ванесса.VanessaTabs = Неопределено Тогда
+		Возврат;
+	КонецЕсли;	 
+
+	Для Сч = 0 По Ванесса.VanessaTabs.count() - 1 Цикл
+		Если Найти(НРег(Ванесса.VanessaTabs.tab(Сч).title), НРег(Стр)) > 0 Тогда
+			Ванесса.VanessaTabs.tab(Сч).close();
+			Прервать;
+		КонецЕсли;	 
+	КонецЦикла;	
+
+КонецПроцедуры
+
 #КонецОбласти
 
 #Область СлужебныеПроцедурыИФункции

diff --git a/VanessaAutomation/Forms/УправляемаяФорма/Ext/Form.xml b/VanessaAutomation/Forms/УправляемаяФорма/Ext/Form.xml
@@ -30421,6 +30421,93 @@ If the voice acting file is not found in the directory, the process of generatin
 													<CommandName>Form.Command.ПоказатьПомощникПриПервомЗапуске</CommandName>
 													<ExtendedTooltip name="ПоказатьПомощникПриПервомЗапускеРасширеннаяПодсказка" id="3264"/>
 												</Button>
+												<UsualGroup name="ГруппаВариантыОбучения" id="3803">
+													<Title>
+														<v8:item>
+															<v8:lang>ru</v8:lang>
+															<v8:content>Варианты документации</v8:content>
+														</v8:item>
+														<v8:item>
+															<v8:lang>en</v8:lang>
+															<v8:content>Documentation options</v8:content>
+														</v8:item>
+													</Title>
+													<Group>AlwaysHorizontal</Group>
+													<Behavior>Collapsible</Behavior>
+													<ControlRepresentation>Picture</ControlRepresentation>
+													<Representation>None</Representation>
+													<ExtendedTooltip name="ГруппаВариантыОбученияРасширеннаяПодсказка" id="3804"/>
+													<ChildItems>
+														<CheckBoxField name="ОбучениеЗапуститьУрок" id="3805">
+															<DataPath>Объект.ОбучениеЗапуститьУрок</DataPath>
+															<Title>
+																<v8:item>
+																	<v8:lang>ru</v8:lang>
+																	<v8:content>Запустить урок</v8:content>
+																</v8:item>
+																<v8:item>
+																	<v8:lang>en</v8:lang>
+																	<v8:content>Start lesson</v8:content>
+																</v8:item>
+															</Title>
+															<TitleLocation>Right</TitleLocation>
+															<CheckBoxType>Auto</CheckBoxType>
+															<ContextMenu name="ОбучениеЗапуститьУрокКонтекстноеМеню" id="3806"/>
+															<ExtendedTooltip name="ОбучениеЗапуститьУрокРасширеннаяПодсказка" id="3807"/>
+														</CheckBoxField>
+														<CheckBoxField name="ОбучениеВидео" id="3808">
+															<DataPath>Объект.ОбучениеВидео</DataPath>
+															<Title>
+																<v8:item>
+																	<v8:lang>ru</v8:lang>
+																	<v8:content>Видео</v8:content>
+																</v8:item>
+																<v8:item>
+																	<v8:lang>en</v8:lang>
+																	<v8:content>Video lessons</v8:content>
+																</v8:item>
+															</Title>
+															<TitleLocation>Right</TitleLocation>
+															<CheckBoxType>Auto</CheckBoxType>
+															<ContextMenu name="ОбучениеВидеоКонтекстноеМеню" id="3809"/>
+															<ExtendedTooltip name="ОбучениеВидеоРасширеннаяПодсказка" id="3810"/>
+														</CheckBoxField>
+														<CheckBoxField name="ОбучениеPDF" id="3811">
+															<DataPath>Объект.ОбучениеPDF</DataPath>
+															<Title>
+																<v8:item>
+																	<v8:lang>ru</v8:lang>
+																	<v8:content>PDF</v8:content>
+																</v8:item>
+																<v8:item>
+																	<v8:lang>en</v8:lang>
+																	<v8:content>PDF</v8:content>
+																</v8:item>
+															</Title>
+															<TitleLocation>Right</TitleLocation>
+															<CheckBoxType>Auto</CheckBoxType>
+															<ContextMenu name="ОбучениеPDFКонтекстноеМеню" id="3812"/>
+															<ExtendedTooltip name="ОбучениеPDFРасширеннаяПодсказка" id="3813"/>
+														</CheckBoxField>
+														<CheckBoxField name="ОбучениеMD" id="3814">
+															<DataPath>Объект.ОбучениеMD</DataPath>
+															<Title>
+																<v8:item>
+																	<v8:lang>ru</v8:lang>
+																	<v8:content>MD</v8:content>
+																</v8:item>
+																<v8:item>
+																	<v8:lang>en</v8:lang>
+																	<v8:content>MD</v8:content>
+																</v8:item>
+															</Title>
+															<TitleLocation>Right</TitleLocation>
+															<CheckBoxType>Auto</CheckBoxType>
+															<ContextMenu name="ОбучениеMDКонтекстноеМеню" id="3815"/>
+															<ExtendedTooltip name="ОбучениеMDРасширеннаяПодсказка" id="3816"/>
+														</CheckBoxField>
+													</ChildItems>
+												</UsualGroup>
 											</ChildItems>
 										</Page>
 										<Page name="СтраницаНастройкиПрочее" id="1658">