﻿Перем ЦветМетоды;
Перем Жирность;

Процедура КнопкаВыполнитьНажатие(Кнопка)   
	Объект 				 = ЭтотОбъект;//Метаданные;//Неопределено;
	
	ИсследоватьОбъект(Объект);
	УстановитьЗаголовокПоОбъекту(Объект);
КонецПроцедуры

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

Процедура ПередЗакрытием()
	Очистить(ДЗ.Строки);
	ДЗ.Строки.Очистить();
КонецПроцедуры

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

// вызывается из модуля обработки
Процедура УстановитьЗаголовокПоОбъекту(Объект) Экспорт
	ЭтаФорма.Заголовок 	 = ПолучитьНачалоЗаголовка()+ "Свойства и методы объекта:" + Объект;
	
	ЭлементыФормы.ДЗ.Колонки.ИндексКонтекста.Видимость = ЭтоГлобальныйКонтекст(Объект);
КонецПроцедуры
 
//==================================
Процедура ДЗПередРазворачиванием(Элемент, Строка, Отказ)
	ОбработатьСобытие_ДЗ_ПередРазворачиванием(Элемент, Строка, Отказ);
КонецПроцедуры

Процедура ДЗПриПолученииДанных(Элемент, ОформленияСтрок)
	Для каждого ОформлениеСтроки Из ОформленияСтрок Цикл
		лДанныеСтроки = ОформлениеСтроки.ДанныеСтроки;
		лРодитель = лДанныеСтроки.Родитель;
		
		Если (лДанныеСтроки.Наименование = СТРОКА_МЕТОДЫ) Тогда 
			ОформлениеСтроки.ЦветТекста = ЦветМетоды;	
			ОформлениеСтроки.Шрифт 		= Жирность;	
		ИначеЕсли лРодитель <> Неопределено  Then
			If лРодитель.Наименование = СТРОКА_МЕТОДЫ Then
				ОформлениеСтроки.ЦветТекста = ЦветМетоды;
			EndIf;	
        КонецЕсли;
	КонецЦикла;
КонецПроцедуры

Процедура ДЗВыбор(Элемент, ВыбраннаяСтрока, Колонка, СтандартнаяОбработка)
	ОбработатьСобытие_ДЗ_Выбор(Элемент, ВыбраннаяСтрока, Колонка, СтандартнаяОбработка);
КонецПроцедуры

Процедура НадписьЗаголовокНажатие(Элемент)
	ЗапуститьПриложение("http://www.1cpp.ru/forum/YaBB.pl?num=1313560540");
КонецПроцедуры

Процедура ОсновныеДействияФормыОсновныеДействияФормыВыполнитьГлобальныйКонтекст(Кнопка)
	Объект 				 = Неопределено;
	
	ИсследоватьОбъект(Объект);
	УстановитьЗаголовокПоОбъекту(Объект);
КонецПроцедуры

Процедура ОсновныеДействияФормыОсновныеДействияФормыВыполнитьТаблицаЗначений(Кнопка)
	Объект 				 = Новый ТаблицаЗначений;
	
	ИсследоватьОбъект(Объект);
	УстановитьЗаголовокПоОбъекту(Объект);
КонецПроцедуры

Процедура ДЗПередНачаломДобавления(Элемент, Отказ, Копирование, Родитель)
	Отказ = Истина;
КонецПроцедуры

Процедура ДЗПередУдалением(Элемент, Отказ)
	Отказ = Истина;
КонецПроцедуры
