//////////////////////////////////////////////////////////////////////////////////
//
//	Модуль Динамического Формирования Информера
//	Начало разработки 01.08.2022 года
//	
//	Автор и разработчик: Котов Дмитрий Вадимович
//	GIT:		https://github.com/KotovDima1C
//	Инфостарт:	//infostart.ru/profile/564942/
//	telegram:	@KotovDima
//	
// Алгоритм формирования информера:
// 1. Элемент формы оборачивается в Обычную группу, с горизонтальной группировкой
// 2. Добавляется всплывающая группа
// 3. В всплывающую группу добавляются необходимые элементы формы для создания псевдо подсказки
//		при желание можно добавить хоть поле HTML  
//
// !!!Требования для работы наличия Библиотеки ДФИ, скачать можно здесь: https://github.com/KotovDima1C/DFI
//
//////////////////////////////////////////////////////////////////////////////////

#Область ФормированиеИнформера  

// Параметры:
//	Форма - ФормаКлиентскогоПриложения - Форма на которой создаются элементы
//  Элемент - Строка - достаточно указать название элемента формы
//			- Элементы - но иожно передать элемент формы
//	СвойстваИнформера - Структура - Перечень требуемых настроек информера:
//		
//
Процедура СформироватьИнформер(Форма, Элемент, СвойстваИнформера) Экспорт 
	
	ПроверитьСвойстваИнформера(СвойстваИнформера);
	ОпределитьЗначенияПоУмолчанию(СвойстваИнформера);
		
	ОпределитьРеквизитСозданныхЭлементов(Форма);
	
	ОпределитьЭлементФормы(Форма, Элемент);	
	
	ШифрИмениЭлементов = ПолучитьШифрИмениЭлементов(Элемент);
	ДобавитьШифрИмениЭлементовВСписок(Форма, ШифрИмениЭлементов);
	
	ИнформерНайден = ПроверитьНаличиеИнформера(Форма, ШифрИмениЭлементов);
	
	// Если ранее уже создали группу элементов, то следует её сделать видимой
	Если ИнформерНайден <> Неопределено Тогда
		УстановитьЦветАкцента(Элемент,СвойстваИнформера.ЦветАкцента);  
		УправлениеВидимостьюИнформера(Форма, ШифрИмениЭлементов, ИСТИНА); 
		
	// Если нету группы, создаем новые элементы	
	Иначе
		СформироватьЭлементы(Форма, Элемент, ШифрИмениЭлементов, СвойстваИнформера);	
	КонецЕсли;
			
	УстановитьЗаголовокИнформера(Форма, ШифрИмениЭлементов, СвойстваИнформера.ЗаголовокИнформера);
	УстановитьТекстИнформера(Форма, ШифрИмениЭлементов,СвойстваИнформера.ТекстИнформера);
	
	ЭлементИнформера = ПолучитьИмяГруппыИнформера(ШифрИмениЭлементов);
	ОпределитьЭлементФормы(Форма, ЭлементИнформера);	                                                           
	ЭлементИнформера.Показать(); 
	
КонецПроцедуры 

Процедура ПроверитьНеобходимостьСкрытьИнформеры(Форма) Экспорт
	ИмяРеквизита = ПолучитьИмяРеквизитаСозданныхИнформеров();	
	Для Каждого текЭлемент Из Форма[ИмяРеквизита] Цикл
		СкрытьИнформер(Форма,,текЭлемент.Значение);		
	КонецЦикла;		
КонецПроцедуры

Процедура СкрытьИнформер(Форма, Элемент = Неопределено, ШифрИмениЭлементов = "") Экспорт
	Если ШифрИмениЭлементов = "" И Элемент <> Неопределено Тогда
		Возврат;
	ИначеЕсли ШифрИмениЭлементов = "" Тогда
		ШифрИмениЭлементов = ПолучитьШифрИмениЭлементов(Элемент);
	КонецЕсли;
	УправлениеВидимостьюИнформера(Форма, ШифрИмениЭлементов, ЛОЖЬ);
	ВосстановитьЦветАкцента(Форма, ШифрИмениЭлементов);
КонецПроцедуры

#Область ВспомогательныеФункции   

Процедура СформироватьЭлементы(Форма, Элемент, ШифрИмениЭлементов, СвойстваИнформера)    
	
	УстановитьЦветАкцента(Элемент, СвойстваИнформера.ЦветАкцента); 	
	
	ЭлементПеред = ОпределитьЭлементПеред(Форма, Элемент);
	ЭлементРодитель = ПолучитьИмяРодителяЭлемента(Элемент);
	
	ИмяГруппыОбертка = ПолучитьИмяГруппыОбертки(ШифрИмениЭлементов);
	ГруппаОбертка = кот_ДФИ.СздГруппаОбычнаяБезОтображения(Форма,ИмяГруппыОбертка,ЭлементРодитель,3,,,,ЭлементПеред);	
	
	Форма.Элементы.Переместить(Элемент,ГруппаОбертка);
	
	// Способ отображения информера
	ЭлементПеред = Неопределено;
	ЗаголовокИнформера = "i";
	ОпределитьСпособОтображения(Форма,СвойстваИнформера.СпособОтображения,Элемент,ЭлементПеред,ЗаголовокИнформера);
	 
	СвойстваГруппыИнформеры = Новый Структура;
	СвойстваГруппыИнформеры.Вставить("Поведение", ПоведениеОбычнойГруппы.Всплывающая);
	СвойстваГруппыИнформеры.Вставить("ЦветФона", СвойстваИнформера.ЦветФона); 
	Если НЕ (СвойстваИнформера.ЦветАкцента = "" ИЛИ СвойстваИнформера.ЦветАкцента = Неопределено) Тогда
		СвойстваГруппыИнформеры.Вставить("ЦветТекстаЗаголовка", СвойстваИнформера.ЦветАкцента);  
	КонецЕсли;
    ИмяГруппыИнформера = ПолучитьИмяГруппыИнформера(ШифрИмениЭлементов);
	ГруппаИнформер = кот_ДФИ.СздГруппаОбычная(Форма,ИмяГруппыИнформера,ГруппаОбертка,ЗаголовокИнформера,1,2,2,СвойстваГруппыИнформеры,ЭлементПеред);
	
	ИмяГруппыШапки = ИмяГруппыИнформера + "Шапка";
	ГруппаШапка = кот_ДФИ.СздГруппаОбычнаяБезОтображения(Форма,ИмяГруппыШапки,ГруппаИнформер,3,2,2);
	
	ИмяДекорации = ИмяГруппыИнформера + "Картинка";
	кот_ДФИ.СздДекорацияКартинка(Форма,ИмяДекорации,ГруппаШапка,"Информация");
	
	ИмяЗаголовок = ПолучитьИмяНадписиЗаголовка(ШифрИмениЭлементов);
	кот_ДФИ.СздДекорацияНадпись(Форма,ИмяЗаголовок,ГруппаШапка,"Информация",ЛОЖЬ);
	
	ИмяТекст = ПолучитьИмяНадписиТекст(ШифрИмениЭлементов);
	кот_ДФИ.СздДекорацияНадпись(Форма,ИмяТекст,ГруппаИнформер,"Текст информации",ЛОЖЬ);
	
КонецПроцедуры

Функция СформироватьЦветСтиля(ЦветRGB)
	ЦветRGB = СтрЗаменить(ЦветRGB," ","");	
	Разделитель1 = Найти(ЦветRGB, ",");	
	R = Лев(ЦветRGB, Разделитель1-1);	
	GB = Прав(ЦветRGB, СтрДлина(ЦветRGB)-Разделитель1);	
	Разделитель2 = Найти(GB, ",");	
	G = Лев(GB, Разделитель2-1);	
	B = Прав(GB, СтрДлина(GB) - Разделитель2);              	
	СтильЦвет = Новый Цвет(R,G,B);         	
	Возврат  СтильЦвет;
КонецФункции

// Функция возвращает элемент перед которым находится искомый элемент, добавлю позже её в библиотеку ДФИ 
Функция ОпределитьЭлементПеред(Форма, Элемент)
	ЭлементРодитель = ПолучитьИмяРодителяЭлемента(Элемент);
	ОпределитьЭлементФормы(Форма, ЭлементРодитель); 
	ЭлементПослеНайден = ЛОЖЬ;
	ЭлементПосле = Неопределено;
	Для Каждого текЭлемент Из ЭлементРодитель.ПодчиненныеЭлементы Цикл
		Если ЭлементПослеНайден = ИСТИНА Тогда
			ЭлементПосле = текЭлемент;
			Прервать;
		КонецЕсли;
		Если Элемент = текЭлемент Тогда
			ЭлементПослеНайден = ИСТИНА;
		КонецЕсли;
	КонецЦикла;
	Возврат ЭлементПосле;
КонецФункции

Процедура ОпределитьЭлементФормы(Форма, Элемент)
	Если ТипЗнч(Элемент) = Тип("Строка") Тогда
		Элемент = Форма.Элементы[Элемент];
	КонецЕсли;		
КонецПроцедуры

Процедура ОпределитьЦветФонаПоУмолчанию(ЦветФона)
	Если ЦветФона = Неопределено ИЛИ ЦветФона = "" Тогда
		ЦветФона = ЦветаСтиля.ЦветФонаПодсказки;
	ИначеЕсли ТипЗнч(ЦветФона) = Тип("Строка") Тогда
		ЦветФона = ОпределитьЦвет(ЦветФона);
	КонецЕсли;	
КонецПроцедуры 

Процедура ОпределитьЦветАкцентаПоУмолчанию(ЦветРамки)
	Если ЦветРамки = Неопределено ИЛИ ЦветРамки = "" Тогда
		ЦветРамки = ЦветаСтиля.ЦветАкцента;
	ИначеЕсли ТипЗнч(ЦветРамки) = Тип("Строка") Тогда 
		ЦветРамки = ОпределитьЦвет(ЦветРамки);
	КонецЕсли;		
КонецПроцедуры

Процедура ОпределитьРеквизитСозданныхЭлементов(Форма)
	ИмяРеквизита = ПолучитьИмяРеквизитаСозданныхИнформеров();
	РеквизитСоздан = ЕстьРеквизитИлиСвойствоОбъекта(Форма,ИмяРеквизита);
	Если РеквизитСоздан = ЛОЖЬ Тогда
		кот_ДФИ.СоздатьРеквизит(Форма,ИмяРеквизита,Новый ОписаниеТипов("СписокЗначений"));	
	КонецЕсли;
КонецПроцедуры

Процедура ОпределитьЗначенияПоУмолчанию(СвойстваИнформера)
	ОпределитьЗаголовокПоУмолчанию(СвойстваИнформера.ЗаголовокИнформера);
	ОпределитьТекстПоУмолчанию(СвойстваИнформера.ТекстИнформера);
	ОпределитьЦветФонаПоУмолчанию(СвойстваИнформера.ЦветФона);
	ОпределитьЦветАкцентаПоУмолчанию(СвойстваИнформера.ЦветАкцента);
	ОпределитьСпособОтображенияПоУмолчанию(СвойстваИнформера.СпособОтображения);
КонецПроцедуры   

Процедура ОпределитьСпособОтображенияПоУмолчанию(СпособОтображения) 
	Если СпособОтображения = 0 или СпособОтображения = Неопределено Тогда
		СпособОтображения = 1;	
	КонецЕсли;
КонецПроцедуры

Процедура ОпределитьЗаголовокПоУмолчанию(ЗаголовокИнформера)
	Если ЗаголовокИнформера = "" ИЛИ ЗаголовокИнформера = Неопределено Тогда
		ЗаголовокИнформера = "Информация";
	КонецЕсли;
КонецПроцедуры 

Процедура ОпределитьТекстПоУмолчанию(ТекстИнформера)
	Если ТекстИнформера = "" ИЛИ ТекстИнформера = Неопределено Тогда
		ТекстИнформера = "Обратите внимание на данный реквизит";
	КонецЕсли;
КонецПроцедуры

Процедура ОпределитьСпособОтображения(Форма,СпособОтображения,Элемент,ЭлементПеред,ЗаголовокИнформера) 
	
	// Способ отображения 1 - Выводить после реквизита Информер с заголовком "i"
	
	// Способ отображения 2 - Выводить перед реквизитом, вместо заголовка слева	
	Если СпособОтображения = 2 И (Элемент.ПоложениеЗаголовка = ПоложениеЗаголовкаЭлементаФормы.Лево ИЛИ Элемент.ПоложениеЗаголовка = ПоложениеЗаголовкаЭлементаФормы.Авто) Тогда
		ЗаголовокИнформера = ПолучитьЗаголовокЭлементаФормы(Форма,Элемент);
		Элемент.ПоложениеЗаголовка = ПоложениеЗаголовкаЭлементаФормы.Нет;
		Элемент.Заголовок = ПолучитьШифрИмениЭлементов(Элемент);
		ЭлементПеред = Элемент;
	КонецЕсли;                      
	
КонецПроцедуры

Функция ОпределитьЦвет(тЦвет)
	Если ТипЗнч(тЦвет) = Тип("Строка") Тогда
		тЦвет = СформироватьЦветСтиля(тЦвет)
	Иначе
		тЦвет = Неопределено;
	КонецЕсли;
	Возврат тЦвет;
КонецФункции  

Процедура ДобавитьШифрИмениЭлементовВСписок(Форма, ШифрИмениЭлементов)
	ИмяРеквизита = ПолучитьИмяРеквизитаСозданныхИнформеров();
	Форма[ИмяРеквизита].Добавить(ШифрИмениЭлементов);
КонецПроцедуры

Процедура ВосстановитьЦветАкцента(Форма, ШифрИмениЭлементов) 	
	 Элемент = ПолучитьИмяЭлемента(ШифрИмениЭлементов);
	 ОпределитьЭлементФормы(Форма, Элемент);
	 Элемент.ЦветРамки = Новый Цвет();	
КонецПроцедуры

// Подробнее о функции и назначение написанно в моей статье - //infostart.ru/1c/articles/1112550/
Функция ПолучитьЦветПоЦветуСтиля(ЦветСтиля) Экспорт
	ТекстХТМЛДокумента = "";
	ФорматированныйДокумент = Новый ФорматированныйДокумент; 
	ФорматированныйДокумент.Добавить("ОпределениеЦвета", Тип("ТекстФорматированногоДокумента")); 
	ФорматированныйДокумент.Элементы[0].Элементы[0].ЦветФона = ЦветСтиля; //Не устанавливается хз почему, но если убрать, то и в ЦветТекста не встанет
	ФорматированныйДокумент.Элементы[0].Элементы[0].ЦветТекста = ЦветСтиля;	//Устанавливается :)
	ФорматированныйДокумент.ПолучитьHTML(ТекстХТМЛДокумента, Новый Структура); 
	ФорматированныйДокумент.УстановитьHTML(ТекстХТМЛДокумента, Новый Структура); 
	Возврат ФорматированныйДокумент.Элементы[0].Элементы[0].ЦветТекста;	
КонецФункции  

// TODO Надо поправить получение заголовка если это будет Объект или путь через точку
Функция ПолучитьЗаголовокЭлементаФормы(Объект,Элемент)
	ЗаголовокЭлемента = Элемент.Заголовок;
	ПутьКДаннымЭлемента = Элемент.ПутьКДанным; // todo
	Если ЗаголовокЭлемента = "" Тогда
		//ЗаголовокЭлемента = Форма[Элемент.ПутьКДанным].Заголовок;
		МассивРеквизитов = Объект.ПолучитьРеквизиты();
		Для Каждого текЭлемент Из МассивРеквизитов Цикл
			Если текЭлемент.Имя = ПутьКДаннымЭлемента Тогда 
				ЗаголовокЭлемента = текЭлемент.Заголовок;
				Прервать;
			КонецЕсли;	
		КонецЦикла;
	КонецЕсли; 
	Если ЗаголовокЭлемента = "" Тогда
		ЗаголовокЭлемента = ПутьКДаннымЭлемента;
	КонецЕсли;
	Возврат ЗаголовокЭлемента + ":"; 
КонецФункции

Функция ПолучитьИмяРодителяЭлемента(Элемент)
	Возврат Элемент.Родитель.Имя;
КонецФункции

Функция ПолучитьИмяГруппыИнформера(ШифрИмениЭлементов)
	Возврат ШифрИмениЭлементов + "Группа";		
КонецФункции
	
Функция ПолучитьИмяГруппыОбертки(ШифрИмениЭлементов)
	Возврат ШифрИмениЭлементов + "Обертка"; 
КонецФункции 

Функция ПолучитьИмяНадписиЗаголовка(ШифрИмениЭлементов)
	Возврат ШифрИмениЭлементов + "Заголовок"; 
КонецФункции   

Функция ПолучитьИмяНадписиТекст(ШифрИмениЭлементов)
	Возврат ШифрИмениЭлементов + "Текст"; 
КонецФункции 

Функция ПолучитьИмяРеквизитаСозданныхИнформеров()
	Возврат ПолучитьПрефиксШифра() + "СоданныеРеквизиты";	
КонецФункции

Функция ПолучитьПрефиксШифра()
	Возврат "ФормированиеИнформера";	
КонецФункции

Функция ПолучитьИмяЭлемента(ШифрИмениЭлементов) 
	ИмяПрефикса = ПолучитьПрефиксШифра(); 
	ИмяЭлемента = СтрЗаменить(ШифрИмениЭлементов,ИмяПрефикса,"");
	Возврат ИмяЭлемента;
КонецФункции

Функция ПолучитьШифрИмениЭлементов(Элемент)
	Возврат ПолучитьПрефиксШифра() + Элемент.Имя;	
КонецФункции   

Функция ПолучитьПараметрыСвойствИнформера() Экспорт
	НаборПараметров = "ЗаголовокИнформера, ТекстИнформера, ЦветФона, ЦветАкцента, СпособОтображения"; 
	МассивПараметров = СтрРазделить(НаборПараметров,",",ЛОЖЬ);
	Возврат МассивПараметров;
КонецФункции   

Функция ПолучитьПараметрыСвойствИнформераНеобязательные()
	НаборПараметров = "ЗаголовокИнформера, ТекстИнформера, ЦветФона, ЦветАкцента, СпособОтображения"; 
	МассивПараметров = СтрРазделить(НаборПараметров,",",ЛОЖЬ);
	Возврат МассивПараметров;
КонецФункции 

Процедура УстановитьЦветАкцента(Элемент, ЦветАкцента)	
	Элемент.ЦветРамки = ЦветАкцента;		
КонецПроцедуры

Процедура УстановитьЗаголовокИнформера(Форма, ШифрИмениЭлементов, ЗаголовокИнформера)
	ЭлементЗаголовка = ПолучитьИмяНадписиЗаголовка(ШифрИмениЭлементов);
	ОпределитьЭлементФормы(Форма, ЭлементЗаголовка);
	ЭлементЗаголовка.Заголовок = ЗаголовокИнформера;
КонецПроцедуры 

Процедура УстановитьТекстИнформера(Форма, ШифрИмениЭлементов, ТекстИнформера)
	ЭлементТекста = ПолучитьИмяНадписиТекст(ШифрИмениЭлементов);
	ОпределитьЭлементФормы(Форма, ЭлементТекста);
	ЭлементТекста.Заголовок = ТекстИнформера;
КонецПроцедуры

Процедура УправлениеВидимостьюИнформера(Форма, ШифрИмениЭлементов,СостояниеВидимости) 

	Перем Заголовок;
	
	// Отображенние информера
	ЭлементИнформера = ПолучитьИмяГруппыИнформера(ШифрИмениЭлементов);
	ОпределитьЭлементФормы(Форма, ЭлементИнформера);
	ЭлементИнформера.Видимость = СостояниеВидимости;
	
	// Обработка Способа отображения = 2, возращаем заголовок 
	Элемент = СтрЗаменить(ШифрИмениЭлементов,ПолучитьПрефиксШифра(),"");
	ОпределитьЭлементФормы(Форма,Элемент);
	Если СостояниеВидимости = ЛОЖЬ И Элемент.Заголовок = ШифрИмениЭлементов Тогда 
		Заголовок = ЭлементИнформера.Заголовок;
		ЭлементИнформера.Заголовок = ШифрИмениЭлементов;
		Элемент.Заголовок = Заголовок;
		Элемент.ПоложениеЗаголовка = ПоложениеЗаголовкаЭлементаФормы.Нет;
	ИначеЕсли СостояниеВидимости = ИСТИНА И ЭлементИнформера.Заголовок = ШифрИмениЭлементов Тогда
		Заголовок = Элемент.Заголовок;
		Элемент.Заголовок = ШифрИмениЭлементов;
		ЭлементИнформера.Заголовок = Заголовок;
		Элемент.ПоложениеЗаголовка = ПоложениеЗаголовкаЭлементаФормы.Лево;
	КонецЕсли;
	
КонецПроцедуры   

Функция ПроверитьНаличиеИнформера(Форма, ШифрИмениЭлементов)
	Возврат Форма.Элементы.Найти(ПолучитьИмяГруппыОбертки(ШифрИмениЭлементов));		
КонецФункции  

Процедура ПроверитьСвойстваИнформера(СвойстваИнформера)
	
	// Добавляем все необязательные к заполнению свойства, если они не были указаны
	НеобязательныеПараметры = ПолучитьПараметрыСвойствИнформераНеобязательные();
	Для Каждого текЭлемент Из НеобязательныеПараметры Цикл
		Если СвойстваИнформера.Свойство(текЭлемент) = ЛОЖЬ Тогда
			СвойстваИнформера.Вставить(текЭлемент,Неопределено);
		КонецЕсли;
	КонецЦикла; 
	
	// Проверяем обязательные свойства
	ВсеПараметры = ПолучитьПараметрыСвойствИнформера();
	ОтсутствующиеПараметры = "";
	Для Каждого текЭлемент Из ВсеПараметры Цикл
		Если СвойстваИнформера.Свойство(текЭлемент) = ЛОЖЬ Тогда
			ОтсутствующиеПараметры = ОтсутствующиеПараметры + ?(ОтсутствующиеПараметры = "","",", ") + текЭлемент;
		КонецЕсли;
	КонецЦикла;
	Если ОтсутствующиеПараметры <> "" Тогда  
		ТекстОшибки = "Отсутствуют параметры в структуре свойств Информера:" + Символы.ПС + ОтсутствующиеПараметры;
		Попытка 
			ВызватьИсключение ТекстОшибки;
		Исключение 
			ЗаписьЖурналаРегистрации("Динамическое формирование Информера",УровеньЖурналаРегистрации.Ошибка,,,ТекстОшибки);
		КонецПопытки;
	КонецЕсли;
	
КонецПроцедуры

Функция ЕстьРеквизитИлиСвойствоОбъекта(Объект, ИмяРеквизита) Экспорт
    
	Попытка
		Проверка = Объект[ИмяРеквизита];
		ЕстьРеквизит = Истина;
	Исключение
		ЕстьРеквизит = Ложь;
	КонецПопытки; 
	
	Возврат ЕстьРеквизит;
	
КонецФункции

#КонецОбласти

#КонецОбласти