IGxFontBase.Family

Синтаксис Fore

Family: String;

Синтаксис Fore.NET

Family: string;

Описание

Свойство Family возвращает название шрифта.

Комментарии

Для получения размера шрифта используйте свойство IGxFontBase.Size.

Пример Fore

Для выполнения примера в репозитории необходимо наличие регламентного отчета с идентификатором «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;

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

Пример Fore.NET

Необходимые требования и результат выполнения примера Fore.NET совпадают с примером Fore.

Imports Prognoz.Platform.Interop.Drawing;
Imports Prognoz.Platform.Interop.Report;
Imports Prognoz.Platform.Interop.Tab;
…
Public Shared Sub Main(Params: StartParams);
Var
    mb: IMetaBase;
    regrep: IPrxReport;
    sheet: IPrxSheet;
    table: IPrxTable;
    range: ITabSheet;
    diap1: ITabRange;
    font: IGxFontBase;
    family, style: String;
    size: Double;
Begin
    // Открываем регламентный отчет для редактирования
    mb := Params.Metabase;
    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;
    System.Diagnostics.Debug.WriteLine("Название шрифта: " + family);
    // Выводим в окно консоли размер шрифта
    size := font.Size;
    System.Diagnostics.Debug.WriteLine("Размер шрифта = " + size.ToString());
    // Выводим в окно консоли стиль шрифта
    style := font.Style.ToString();
    System.Diagnostics.Debug.WriteLine("Стиль шрифта: " + style.ToString());
End Sub;

См. также:

IGxFontBase