Код

устШрифт()  

Код

_Сервис = СоздатьОбъект("Сервис");

//******************************************************************
Функция ПолучитьЦвет(Красный = 0,Зеленый = 0,Синий = 0) Экспорт
	// функция для формирования значения цвета из составляющих (RGB)
	Возврат Макс(0,Синий)*65536+Макс(0,Зеленый)*256+Макс(0,Красный);
КонецФункции

//******************************************************************
Функция ПолучитьЦветФона(Красный = 0,Зеленый = 0,Синий = 0) Экспорт
	Возврат "BRUSH["+ПолучитьЦвет(Красный,Зеленый,Синий)+"] ";
КонецФункции

//******************************************************************
Функция ПолучитьЦветШрифта(Красный = 0,Зеленый = 0,Синий = 0) Экспорт
	Возврат "FONT["+ПолучитьЦвет(Красный,Зеленый,Синий)+"]" ;
КонецФункции


Функция устШрифт()

 ... определяем параметры шрифта - имя, жирный и т.д.
 ... определяем красный синий зеленый

      Шрифт = _Сервис.СоздатьШрифт(ИмяШрифта, РазмерШрифта, ЖирныйШрифт, НаклонныйШрифт, ПодчеркнутыйШрифт, ЗачеркнутыйШрифт);

      Возврат )+"] COUNT[2] FONTSET["+Шрифт+"]";

КонецФункции