IGxFontBase.Family

Копировать пример

Sub UserProc;
Var
    Mb: IMetaBase;
    Report: IPrxReport;
    Range: ITabRange;
    Font: IGxFontBase;
    Family, Style: String;
    Size: Double;
Begin
    // Открываем регламентный отчет для редактирования
    Mb := MetabaseClass.Active;
    Report := Mb.ItemById("REG_REPORT").Edit As IPrxReport;
    // Получаем первую ячейку регламентного отчета
    Range := (Report.Activesheet As IPrxTable).TabSheet.Cell(0, 0);
    // Получаем шрифт первой ячейки
    Font := Range.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;