Шрифт.Высота (Font.Height) Свойство

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

ПодключитьВнешнююКомпоненту("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.Шрифт.Высота > 0
, "", "!!! ") + "Шрифт.Высота (Font.Height) Свойство" + " " + ТекущаяДата());