Family: String;
Свойство Family возвращает название шрифта.
Для получения размера шрифта используйте свойство IGxFontBase.Size.
Для выполнения примера в репозитории необходимо наличие регламентного отчета с идентификатором «REGULAR_REPORT_IGXFONTBASE», в котором первая ячейка должна быть заполнена любыми данными.
Добавьте ссылки на системные сборки: Drawing, Metabase, Report, Tab.
Sub userproc;
Var
mb: IMetaBase;
regrep: IPrxReport;
sheet: IPrxSheet;
table: IPrxTable;
range: ITabSheet;
diap1: ITabRange;
font: IGxFontBase;
family, style: String;
size: Double;
Begin
// Открываем регламентный отчет для редактирования
mb := MetabaseClass.Active;
regrep := mb.ItemById("REGULAR_REPORT_IGXFONTBASE").Edit As IPrxReport;
// Получаем первую ячейку регламентного отчета
sheet := regrep.Activesheet;
table := sheet As IPrxTable;
range := table.TabSheet;
diap1 := range.Cell(0, 0);
// Получаем шрифт первой ячейки
font := diap1.Style.Font.AsGxFont;
// Выводим в окно консоли название шрифта
family := font.Family;
debug.WriteLine("Название шрифта: " + family);
// Выводим в окно консоли размер шрифта
size := font.Size;
debug.WriteLine("Размер шрифта = " + size.ToString);
// Выводим в окно консоли стиль шрифта
style := font.Style.ToString;
debug.WriteLine("Стиль шрифта: " + style);
End Sub userproc;
После выполнения примера в окно консоли будут выведены базовые параметры шрифта.
См. также: