refactor: Разделение класса настроек приложения

Author: Stivo182

src/core/Классы/КонсольныйВыводЗависимостей.os

@@ -2,8 +2,8 @@
 #Использовать semver
 #Использовать "../../internal"
 
-&Пластилин("НастройкиПриложения")
-Перем _НастройкиПриложения; // НастройкиПриложения
+&Пластилин("НастройкиФорматирования")
+Перем _НастройкиФорматирования; // НастройкиФорматирования
 
 #Область Конструктор
 
@@ -64,15 +64,15 @@
 Процедура ВывестиСтрокуПакета(СтрокаЗависимости, ИсходнаяВерсия, ДлиныКолонок, Обновлено)
 
 	МинВерсия = ?(ЗначениеЗаполнено(ИсходнаяВерсия), ИсходнаяВерсия, "*");
-	ТекстДляРазработки = ?(СтрокаЗависимости.ДляРазработки, _НастройкиПриложения.ФорматированиеТекстДляРазработки, "");
+	ТекстДляРазработки = ?(СтрокаЗависимости.ДляРазработки, _НастройкиФорматирования.ТекстДляРазработки, "");
 	ТребуетсяОбновление = ТребуетсяОбновлениеДляВерсии(
 		ИсходнаяВерсия, 
 		СтрокаЗависимости.МинимальнаяВерсия
 	);
 	СимволОбновления = ?(Обновлено, НаборСимволов.ОК, НаборСимволов.СтрелкаВверх);
 	ЦветСимволаОбновления = ?(Обновлено, 
-		_НастройкиПриложения.ФорматированиеЦветСимволаВыполненногоОбновления,
-		_НастройкиПриложения.ФорматированиеЦветСимволаНаличияОбновления
+		_НастройкиФорматирования.ЦветСимволаВыполненногоОбновления,
+		_НастройкиФорматирования.ЦветСимволаНаличияОбновления
 	);
 
 	Консоль.Вывести(" ");
@@ -86,7 +86,7 @@
 	// Признак для разработки
 	ТекстДляРазработкиФорматированный = ФиксированнаяСтрока(
 		ТекстДляРазработки, 
-		СтрДлина(_НастройкиПриложения.ФорматированиеТекстДляРазработки), 
+		СтрДлина(_НастройкиФорматирования.ТекстДляРазработки), 
 		, 
 		, 
 		Истина
@@ -116,14 +116,14 @@
 	Цвет = "Серый";
 
 	Если Не ЗначениеЗаполнено(ЦелеваяВерсия) Тогда
-		ЦветнаяЧасть = _НастройкиПриложения.ФорматированиеПустаяВерсия;
+		ЦветнаяЧасть = _НастройкиФорматирования.ПустаяВерсия;
 	ИначеЕсли Не ЗначениеЗаполнено(ИсходнаяВерсия) Тогда
 		ЦветнаяЧасть = ЦелеваяВерсия;
 	ИначеЕсли ИсходнаяВерсияОбъект.Основная <> ЦелеваяВерсияОбъект.Основная Тогда
-		Цвет = _НастройкиПриложения.ФорматированиеЦветМажорнойЧасти;
+		Цвет = _НастройкиФорматирования.ЦветМажорнойЧасти;
 		ЦветнаяЧасть = ЦелеваяВерсия;
 	ИначеЕсли ИсходнаяВерсияОбъект.Второстепенная <> ЦелеваяВерсияОбъект.Второстепенная Тогда
-		Цвет = _НастройкиПриложения.ФорматированиеЦветМинорнойЧасти;
+		Цвет = _НастройкиФорматирования.ЦветМинорнойЧасти;
 		ОбычнаяЧасть = СтрШаблон("%1.", ЦелеваяВерсияОбъект.Основная);
 
 		Если ЕстьПатчВерсия Тогда
@@ -132,7 +132,7 @@
 			ЦветнаяЧасть = ЦелеваяВерсияОбъект.Второстепенная;
 		КонецЕсли;
 	ИначеЕсли ЕстьПатчВерсия И ИсходнаяВерсияОбъект.Патч <> ЦелеваяВерсияОбъект.Патч Тогда
-		Цвет = _НастройкиПриложения.ФорматированиеЦветПатчЧасти;
+		Цвет = _НастройкиФорматирования.ЦветПатчЧасти;
 		ОбычнаяЧасть = СтрШаблон("%1.%2.", ЦелеваяВерсияОбъект.Основная, ЦелеваяВерсияОбъект.Второстепенная);
 		ЦветнаяЧасть = ЦелеваяВерсияОбъект.Патч;
 	Иначе

src/core/Классы/КонсольныйВыводРезультатовАнализа.os

@@ -1,8 +1,8 @@
 #Использовать coloratos
 #Использовать "../../internal"
 
-&Пластилин("НастройкиПриложения")
-Перем _НастройкиПриложения; // НастройкиПриложения
+&Пластилин("НастройкиФорматирования")
+Перем _НастройкиФорматирования; // НастройкиФорматирования
 
 #Область Конструктор
 
@@ -71,7 +71,7 @@
 Процедура ВывестиПакет(Пакет)
 
 	Если Пакет.ДляРазработки Тогда
-		ТекстДляРазработки = _НастройкиПриложения.ФорматированиеТекстДляРазработки;
+		ТекстДляРазработки = _НастройкиФорматирования.ТекстДляРазработки;
 		ТекстВывода = СтрШаблон("   %1 ((%2)|#color=Желтый)", Пакет.ИмяПакета, ТекстДляРазработки);
 		ЦветнойВывод.ВывестиСтроку(ТекстВывода);
 	Иначе

src/core/Классы/НастройкиПриложения.os

@@ -9,27 +9,6 @@
 &Деталька(Значение = "depos.РежимОтладки", ЗначениеПоУмолчанию = Ложь)
 Перем РежимОтладки Экспорт; // Булево
 
-&Деталька(Значение = "depos.Форматирование.ТекстДляРазработки", ЗначениеПоУмолчанию = "dev")
-Перем ФорматированиеТекстДляРазработки Экспорт; //  Строка
-
-&Деталька(Значение = "depos.Форматирование.ПустаяВерсия", ЗначениеПоУмолчанию = "-.-.-")
-Перем ФорматированиеПустаяВерсия Экспорт; //  Строка
-
-&Деталька(Значение = "depos.Форматирование.ЦветМажорнойЧасти", ЗначениеПоУмолчанию = "ТемноКрасный")
-Перем ФорматированиеЦветМажорнойЧасти Экспорт; //  Строка
-
-&Деталька(Значение = "depos.Форматирование.ЦветМинорнойЧасти", ЗначениеПоУмолчанию = "Зеленый")
-Перем ФорматированиеЦветМинорнойЧасти Экспорт; //  Строка
-
-&Деталька(Значение = "depos.Форматирование.ЦветПатчЧасти", ЗначениеПоУмолчанию = "ТемноБирюзовый")
-Перем ФорматированиеЦветПатчЧасти Экспорт; //  Строка
-
-&Деталька(Значение = "depos.Форматирование.ЦветСимволаНаличияОбновления", ЗначениеПоУмолчанию = "Белый")
-Перем ФорматированиеЦветСимволаНаличияОбновления Экспорт; //  Строка
-
-&Деталька(Значение = "depos.Форматирование.ЦветСимволаВыполненногоОбновления", ЗначениеПоУмолчанию = "Зеленый")
-Перем ФорматированиеЦветСимволаВыполненногоОбновления Экспорт; //  Строка
-
 &Желудь
 Процедура ПриСозданииОбъекта()
 КонецПроцедуры

src/core/Классы/НастройкиФорматирования.os

@@ -0,0 +1,26 @@
+// BSLLS:ExportVariables-off
+
+&Деталька(Значение = "depos.Форматирование.ТекстДляРазработки", ЗначениеПоУмолчанию = "dev")
+Перем ТекстДляРазработки Экспорт; //  Строка
+
+&Деталька(Значение = "depos.Форматирование.ПустаяВерсия", ЗначениеПоУмолчанию = "-.-.-")
+Перем ПустаяВерсия Экспорт; //  Строка
+
+&Деталька(Значение = "depos.Форматирование.ЦветМажорнойЧасти", ЗначениеПоУмолчанию = "ТемноКрасный")
+Перем ЦветМажорнойЧасти Экспорт; //  Строка
+
+&Деталька(Значение = "depos.Форматирование.ЦветМинорнойЧасти", ЗначениеПоУмолчанию = "Зеленый")
+Перем ЦветМинорнойЧасти Экспорт; //  Строка
+
+&Деталька(Значение = "depos.Форматирование.ЦветПатчЧасти", ЗначениеПоУмолчанию = "ТемноБирюзовый")
+Перем ЦветПатчЧасти Экспорт; //  Строка
+
+&Деталька(Значение = "depos.Форматирование.ЦветСимволаНаличияОбновления", ЗначениеПоУмолчанию = "Белый")
+Перем ЦветСимволаНаличияОбновления Экспорт; //  Строка
+
+&Деталька(Значение = "depos.Форматирование.ЦветСимволаВыполненногоОбновления", ЗначениеПоУмолчанию = "Зеленый")
+Перем ЦветСимволаВыполненногоОбновления Экспорт; //  Строка
+
+&Желудь
+Процедура ПриСозданииОбъекта()
+КонецПроцедуры