Люди добры, подскажите, как добраться до шрифта формы чтобы его изменить?

Как изменить я примерно представляю. Но у какого объекта есть это свойство?
Никак не могу найти 

Задача в том, чтобы масштабировать форму для отдельного пользователя. Т.е. динамически.

Нет. Шрифт всех форм менять не надо. Надо одной конкретной и для конкретного пользователя.

Пробовал играться со шрифтом, который для всех форм.
Т.е. в нужной форме включаю увеличенный, а при вызове другой формы возвращаю обычный, при возвращении в первую снова увеличиваю шрифт...
Выглядит забавно. И кроме того если первая форма была максимизирована при вызове второй, то при возвращении 1С похоже не может увеличить форму и валится.

Потом только надо незабыть удалить этот шрифт. В противном случае GDI не напасешься...

Нет.... ПриОткрытии такой номер вообще не проходит.

А ПослеОткрытия...  шрифт становится жирным, но не увеличивается.

А вот если на уже открытой форме пробежать по атрибутам, то корректно шрифт увеличивается только у текста. На кнопках и прочих элементах так и остается жирным


Неужели добраться непосредственно до шрифта формы невозможно?

to BuZZZard
Ты задачу опиши, зачем все это. Сдается мне, проще все можно сделать.

// ******************************
// Описание                              :      
// Параметры:
//      *      Параметр1                  -      описание параметра
//
Процедура МасштабированиеФормы(КонтекстФормы) Экспорт

     ТекущаяФорма      = СоздатьОбъект("РасширениеФормы");
     ТекущаяФорма.УстановитьФорму(КонтекстФормы.Форма);      
     
     ПолныйТипОбъекта      = ТекущаяФорма.ПолныйТипОбъекта();
     сПолныйТипОбъекта      = """" + СтрЗаменить(ПолныйТипОбъекта, ".", """,""") + """";
     СЗПолныйТипОбъекта      = СоздатьОбъект("СписокЗначений");
     СЗПолныйТипОбъекта.ИзСтрокиСРазделителями(сПолныйТипОбъекта);
     Если СЗПолныйТипОбъекта.ПолучитьЗначение(1) = "ВнешнийОтчет" Тогда
           ПутьКФайлу      = "";
           ИмяФайла      = "";
           КонтекстФормы.РасположениеФайла(ПутьКФайлу, ИмяФайла);
           Позиция      = Найти(ПутьКФайлу, КаталогИБ());
           Если Позиция > 0 Тогда
                 ПутьКФайлу      = "." + Сред(ПутьКФайлу, СтрДлина(КаталогИБ()));
           КонецЕсли;
           
           ПолныйТипОбъекта = ПолныйТипОбъекта + "." + ПутьКФайлу + ИмяФайла;
           СЗПолныйТипОбъекта.ДобавитьЗначение(ПутьКФайлу + ИмяФайла);
           СЗПолныйТипОбъекта.ДобавитьЗначение("Форма");
     КонецЕсли;

     Масштаб                        = Число(ВосстановитьЗначение("Масштабирование_" + сПолныйТипОбъекта));
     Если Масштаб = 0 Тогда
     Иначе

           Сервис                        = СоздатьОбъект("Сервис");
           ШрифтФормы                  = Сервис.СоздатьШрифт("Tahoma", Масштаб);          
           Для ИндАтр = 0 По ТекущаяФорма.КоличествоАтрибутов() - 1 Цикл
                 ТекущаяФорма.ПолучитьАтрибут(ИндАтр).Шрифт = ШрифтФормы;
           КонецЦикла;
           Сервис.УдалитьШрифт(ШрифтФормы);
     КонецЕсли;
     
КонецПроцедуры // МасштабированиеФормы()

//*****************************************************************************
Процедура ПослеОткрытия(КонтекстФормы)
     
     МасштабированиеФормы(КонтекстФормы);
     
КонецПроцедуры // ПослеОткрытия()

// ******************************
Процедура глДействия(КонтекстФормы) Экспорт

     ТекущаяФорма      = СоздатьОбъект("РасширениеФормы");
     ТекущаяФорма.УстановитьФорму(КонтекстФормы.Форма);      
     
     ПолныйТипОбъекта      = ТекущаяФорма.ПолныйТипОбъекта();
     сПолныйТипОбъекта      = """" + СтрЗаменить(ПолныйТипОбъекта, ".", """,""") + """";
     СЗПолныйТипОбъекта      = СоздатьОбъект("СписокЗначений");
     СЗПолныйТипОбъекта.ИзСтрокиСРазделителями(сПолныйТипОбъекта);
     Если СЗПолныйТипОбъекта.ПолучитьЗначение(1) = "ВнешнийОтчет" Тогда
           ПутьКФайлу      = "";
           ИмяФайла      = "";
           КонтекстФормы.РасположениеФайла(ПутьКФайлу, ИмяФайла);
           Позиция      = Найти(ПутьКФайлу, КаталогИБ());
           Если Позиция > 0 Тогда
                 ПутьКФайлу      = "." + Сред(ПутьКФайлу, СтрДлина(КаталогИБ()));
           КонецЕсли;
           
           ПолныйТипОбъекта = ПолныйТипОбъекта + "." + ПутьКФайлу + ИмяФайла;
           СЗПолныйТипОбъекта.ДобавитьЗначение(ПутьКФайлу + ИмяФайла);
           СЗПолныйТипОбъекта.ДобавитьЗначение("Форма");
     КонецЕсли;
     
     ТипОбъекта                  = СЗПолныйТипОбъекта.ПолучитьЗначение(1);
     ВидОбъекта                  = СЗПолныйТипОбъекта.ПолучитьЗначение(2);
     
     СписокДействий = СоздатьОбъект("СписокЗначений");
     СписокДействий.ДобавитьЗначение("Установить масштабирование формы");      

     Действие      = "";
     Если СписокДействий.ВыбратьЗначение(Действие, , , , 1) = 0 Тогда
           Возврат;
     КонецЕсли;

   // обработка выбора действия
     Если Действие = "Установить масштабирование формы" Тогда
           
           Масштаб      = 0;
           Если ВвестиЧисло(Масштаб, "Введите коэффициент масштабирования", 2, 0, 10) = 1 Тогда
                 СохранитьЗначение("Масштабирование_" + сПолныйТипОбъекта, Масштаб);
                 МасштабированиеФормы(КонтекстФормы);
           КонецЕсли;
           
     КонецЕсли;

КонецПроцедуры // глДействия()



=====================
В форме кнопка глДействия(Контекст)
Пользователь сам выбирает размер шрифта.
в процедуре ПослеОткрытия вызываем МасштабированиеФормы.

В МасштабированиеФормы читаем размер шрифта установленный пользователем для этой формы и .... ничего не получается