Шрифт.Имя (Font.Name) Свойство

Копировать     Выделить всё

ПодключитьВнешнююКомпоненту("C:\444\111\OneScriptForms\OneScriptForms\bin\Debug\OneScriptForms.dll");
Ф = Новый ФормыДляОдноСкрипта();
Форма1 = Ф.Форма();
Форма1.Отображать = Истина;
Форма1.Показать();
Форма1.Активизировать();

Форма1.Шрифт = Ф.Шрифт(, 16, Ф.СтильШрифта.Подчеркнутый + Ф.СтильШрифта.Курсив);
Сообщить("Шрифт.Имя = " + Форма1.Шрифт.Имя);

Ф.ЗапуститьОбработкуСобытий();

Копировать     Выделить всё

ПодключитьВнешнююКомпоненту("C:\444\111\OneScriptForms\OneScriptForms\bin\Debug\OneScriptForms.dll");
Ф = Новый ФормыДляОдноСкрипта();
Форма1 = Ф.Форма();
Форма1.Отображать = Истина;
Форма1.Показать();
Форма1.Активизировать();

Форма1.Шрифт = Ф.Шрифт(, 16, Ф.СтильШрифта.Подчеркнутый + Ф.СтильШрифта.Курсив);

Сообщить(?(
Форма1.Шрифт.Имя <> ""
, "", "!!! ") + "Шрифт.Имя (Font.Name) Свойство" + " " + ТекущаяДата());