Код

// Получим представление цвета из реестра
Функция глПолучитьСистемныйЦвет( псИдентификаторЦвета ) Экспорт
	// ИСПОЛЬЗОВАНИЕ:
	// м_СерыйЦвет = глПолучитьСистемныйЦвет( "Window" );
	//РасшАтрибут.ЦветФона = м_СерыйЦвет;
	//Если ПустоеЗначение(ЗначениеАтрибута) = 1 Тогда
	//	РасшАтрибут.ЦветФона = 255; // красный......
	//КонецЕсли;

	// идентификаторы цветов:
	// ActiveBorder - Рамка вокруг активного окна.
	//ButtonHilight, ButtonLight - Выделение трехмерных элементов.
	//AppWorkSpace - Фон окна приложения MDI (приложение, использующее многооконный интерфейс).
	//Background - Рабочий стол.
	//ButtonAlternateFace - Кнопка.
	//ButtonShadow - Тень, "отбрасываемая" кнопкой.
	//ButtonText - Текст надписи на поверхности кнопки.
	//TitleText - Текст заголовка окна, кнопки изменения размера, кнопки полосы просмотра.
	//GrayText - Текст серого цвета.
	//Hilight - Фон выбранного элемента в органе управления.
	//HilightText - Текст для выбранного органа управления.
	//InactiveBorder - Рамка вокруг неактивного окна.
	//InactiveTitle - Заголовок неактивного окна.
	//InactiveTitleText - Текст заголовка для неактивного окна.
	//InfoWindow - Фон элемента подсказка.
	//InfoText - Текст элемента подсказка.
	//Menu - Фон меню.
	//MenuText - Текст меню.
	//Scrollbar - Полоса просмотра.
	//Window - Фон окна.
	//WindowFrame - Рамка окна.
	//WindowText - Текст в окне.
	//ButtonFace,MenuBar,MenuHilight

	// НЕ НАШЕЛ КЛЮЧ РЕЕСТРА  
	//BTNHIGHLIGHT - Выбранная кнопка.
	//3DDKSHADOW - Темная тень для трехмерных элементов.
	//3DFACE, BTNFACE - Поверхности трехмерных элементов.
	//3DHILIGHT, 3DHIGHLOIGHT, Выделение трехмерных элементов.
	//3DLIGHT - Свет для трехмерных элементов.
	//COLOR3DSHADOW,BTNHIGHLIGHT - Тень для трехмерных элементов.
	//ACTIVEBORDER - Рамка вокруг активного окна.
	//ACTIVECAPTION - Заголовок активного окна.


	ЗначВозврата = -1;
	СтрокаЦвета = "";
	// глWScript_Shell = CreateObject("WScript.Shell");
	Попытка
		СтрокаЦвета =  глWScript_Shell.RegRead("HKEY_CURRENT_USER\Control Panel\Colors\"+псИдентификаторЦвета);
	Исключение
		Сообщить(ОписаниеОшибки());
		Возврат ЗначВозврата;
	КонецПопытки;
	// Маска цвета будет такой: "212 208 200" (RGB), надо только разложить
	СтрокаЦвета = СтрЗаменить(СтрокаЦвета," ",",");
	СписЦветов = глСтрокаВСписок(СтрокаЦвета);
	Если СписЦветов.РазмерСписка() <> 3 Тогда
		Возврат ЗначВозврата;
	КонецЕсли;
	_Красный = Число(СписЦветов.ПолучитьЗначение(1));
	_Зеленый = Число(СписЦветов.ПолучитьЗначение(2));
	_Синий	= Число(СписЦветов.ПолучитьЗначение(3));
	ЗначВозврата = Макс(0,_Синий)*65536+Макс(0,_Зеленый)*256+Макс(0,_Красный);

	Возврат ЗначВозврата;
КонецФункции // глПолучитьСистемныйЦвет()
 

Код

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


Перем ОбязательныеКЗаполнению; //Обязательные к заполнению реквизиты
Перем м_Контекст;
Перем м_РасширениеФормы;
Перем м_СерыйЦвет;


// СТАНДАРТНЫЕ ФУНКЦИИ ДЛЯ КЛАССА
Функция Сам(Конт) Возврат Конт; КонецФункции

Процедура Конструктор()
	ОбязательныеКЗаполнению = СоздатьОбъект("Структура");
	м_СерыйЦвет = глПолучитьСистемныйЦвет( "Window" );
КонецПроцедуры // Конструктор()

Процедура Деструктор()
КонецПроцедуры

//ОТладка!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Процедура ПриОткрытии()
	Форма.Параметр._ПриОткрытии();
КонецПроцедуры


Функция ОКЗР_Добавить( псИдентРекв, псИдентЛейбы = "", псМожноЗаписать = 0) Экспорт
	ЗначВозврата = СоздатьОбъект("Структура");
	ЗначВозврата.Вставить("Идентификатор"		,псИдентРекв,1);
	ЗначВозврата.Вставить("ИдентификаторЛейбы"	,псИдентЛейбы,1);
	ЗначВозврата.Вставить("МожноЗаписать"		,псМожноЗаписать,1); // МожноЗаписать с пустым значением
	Попытка
		ОбязательныеКЗаполнению.Вставить(псИдентРекв,ЗначВозврата,1);
	Исключение
	КонецПопытки;

	Возврат ЗначВозврата;
КонецФункции // ОКЗР_Добавить()


// Проверяем заполнение реквизитов документа, если все оки-возвертаем 1,
// если плохо - 0 и в зависимости от параметра либо ругаемся либо молчим...
Функция ОКЗР_Проверить( псСообщить = 0) Экспорт
	ЗначВозврата = 1; // Все ОК, 0 - все плохо...
	СЦ = 0;
	Для СЦ = 1 По ОбязательныеКЗаполнению.Количество() Цикл
		СтрАтрибута = ОбязательныеКЗаполнению.Получить(СЦ);
		РасшАтрибут = "";
		ЗначениеАтрибута = "";
		Попытка
			РасшАтрибут = м_РасширениеФормы.ПолучитьАтрибут(СтрАтрибута.Идентификатор);
			ЗначениеАтрибута = РасшАтрибут.Значение;
		Исключение
			Сообщить(ОписаниеОшибки());
		КонецПопытки;

		РасшАтрибут.ЦветФона = м_СерыйЦвет;
		Если ПустоеЗначение(ЗначениеАтрибута) = 1 Тогда
			Если СтрАтрибута.МожноЗаписать = 0 Тогда
			    ЗначВозврата = 0;
			КонецЕсли;
			РасшАтрибут.ЦветФона = 255;
			Если псСообщить = 1 Тогда
				РасшАтрибут = м_РасширениеФормы.ПолучитьАтрибут(СтрАтрибута.ИдентификаторЛейбы);
				Сообщить("Заполните поле: """ + РасшАтрибут.Заголовок+"""","!");
			КонецЕсли;
		КонецЕсли;
	КонецЦикла;
	Возврат ЗначВозврата;
КонецФункции // ОКЗР_Проверить()




Процедура Инициализация( псКонтекст ) Экспорт
	м_РасширениеФормы = СоздатьОбъект("РасширениеФормы");
	м_РасширениеФормы.УстановитьФорму(псКонтекст.Форма);
	м_Контекст = псКонтекст;
КонецПроцедуры // Инициализация()

//ПриПолучении_<ИмяАтрибута>(ЗначениеАтрибута)
//ПриЗаписи_<ИмяАтрибута>(ЗначениеДляУст)
//Процедура _ПриЧтенииСвойства(strNameOfAttr)
//Функция  _ПриЧтенииСвойства(strNameOfAttr) КонецФункции
//Процедура _ПриЗаписиСвойства(стрИмяАтрибута,  НовоеЗначениеАтриб) КонецПроцедуры