IBubbleChartPlacedItem.Font

Синтаксис Fore

Font: IGxFont;

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

Font: Prognoz.Platform.Interop.Drawing.GxFont;

Описание

Свойство Font определяет шрифт текста.

Комментарии

Для определения цвета шрифта используйте свойство IBubbleChartPlacedItem.FontColor.

Пример Fore

Для выполнения примера предполагается наличие экспресс-отчета с идентификатором «Express_Font». В экспресс-отчете произведена настройка таким образом, чтобы отображалась и работала матрица.

Добавьте ссылки на системные сборки «Metabase», «Express», «Drawing».

Sub UserProc;
Var
    MB: IMetabase;
    Eax: IEaxAnalyzer;
    Bubble: IBubbleChart;
    BubbleCaption: IBubbleChartPlacedItem;
    BubbleCaptionText: IBubbleChartCaption;
Begin
    MB := MetabaseClass.Active;
    Eax := MB.ItemById("Express_Font").Edit As IEaxAnalyzer;
    Bubble := Eax.BubbleChart.Chart;
    // параметры заголовка матрицы;
    BubbleCaption := Bubble.Caption;
    // отображение текста:
    BubbleCaption.Visible := True;
    // шрифт текста:
    BubbleCaption.Font := New GxFont.Create("Arial", 14);
    // цвет шрифта:
    BubbleCaption.FontColor := GxColor.FromName("Red");
    // ориентация текста:
    BubbleCaption.TextDirection := BubbleChartTextDirection.BottomToTop;
    // выравнивание текста по вертикали:
    BubbleCaption.VerticalAlignment := ChartVerticalAlignment.Middle;
    // выравнивание текста по горизонтали:
    BubbleCaption.HorizontalAlignment := ChartHorizontalAlignment.Right;
    // величина внутреннего отступа от текста до границы компонента матрицы:
    BubbleCaption.Padding := 20;
    // величины внешних отступов:
    BubbleCaption.Margin := New GxRectF.Create(0, 0, 0, 20);
    // возможность переноса текста:
    BubbleCaption.WordWrap := True;
    // текст заголовка:
    BubbleCaptionText := Bubble.Caption;
    BubbleCaptionText.Text := "Динамика изменения";
    (Eax As IMetabaseObject).Save;
End Sub UserProc;

При выполнении примера для заголовка матрицы будут установлены следующие параметры:

• заголовок отображается;

• шрифт текста заголовка - Arial;

• размер шрифта - 14;

• цвет шрифта - красный;

• величина внешних отступов - 20 пикселей;

• направление текста - снизу вверх;

• горизонтальное выравнивание заголовка  - по правому краю;

• вертикальное выравнивание заголовка - по центру;

• возможность переноса слов в тексте заголовка включена.

Пример Fore.NET

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

Imports Prognoz.Platform.Interop.Express;
Imports Prognoz.Platform.Interop.Chart;
Imports Prognoz.Platform.Interop.Drawing;
…
Public Shared Sub Main(Params: StartParams);
Var
    MB: IMetabase;
    Eax: IEaxAnalyzer;
    Bubble: IBubbleChart;
    BubbleCaption: IBubbleChartCaption;
    BubbleCaptionText: IBubbleChartCaption;
    CaptionFont: GxFont = New GxFontClass();
    MarginRect: GxRectF = New GxRectFClass();
    GxColorCls: GxColorClass = New GxColorClassClass();
Begin
    MB := Params.Metabase;
    Eax := MB.ItemById["Express_Font"].Edit() As IEaxAnalyzer;
    Bubble := Eax.BubbleChart.Chart;
    // параметры заголовка матрицы;
    BubbleCaption := Bubble.Caption;
    // отображение текста:
    BubbleCaption.Visible := True;
    // шрифт текста:
    BubbleCaption.Font := CaptionFont;
    CaptionFont.Create("Arial", 12, GxFontStyle.gfsRegular, GxUnit.guPoint);
    // цвет шрифта:
    BubbleCaption.FontColor := GxColorCls.FromName("Green");
    // ориентация текста:
    BubbleCaption.TextDirection := BubbleChartTextDirection.bctdBottomToTop;
    // выравнивание текста по вертикали:
    BubbleCaption.VerticalAlignment := ChartVerticalAlignment.cvaMiddle;
    // выравнивание текста по горизонтали:
    BubbleCaption.HorizontalAlignment := ChartHorizontalAlignment.chaRight;
    // величина внутреннего отступа от текста до границы компонента матрицы:
    BubbleCaption.Padding := 20;
    // величины внешних отступов:
    BubbleCaption.Margin := MarginRect;
    MarginRect.Create(0, 0, 0, 20);
    // возможность переноса текста:
    BubbleCaption.WordWrap := True;
    // текст заголовка:
    BubbleCaptionText := Bubble.Caption;
    BubbleCaptionText.Text := "Динамика изменения";
    (Eax As IMetabaseObject).Save();
End Sub;

См. также:

IBubbleChartPlacedItem