IVZChartAxis.LabelStyle

LabelStyle: IVZLabelStyle;

LabelStyle: Prognoz.Platform.Interop.Visualizators.VZLabelStyle;

Sub UserProc;
Var
    MB: IMetabase;
    Express: IEaxAnalyzer;
    BC: IVZBubbleChart;
    CA: IVZChartAxis;
    Pen:  IGxPenBase;
    Style: IVZLabelStyle;
Begin
    // Получим репозиторий
    MB := MetabaseClass.Active;
    // Получим экспресс-отчет
    Express := MB.ItemById("EXPRESS").Edit As IEaxAnalyzer;
    // Получим пузырьковую диаграмму
    BC := Express.BubbleChart.BubbleChart;
    // Получим ось X пузырьковой диаграммы
    CA := BC.AxisX;
    // Получим стиль подписей оси
    Style := CA.LabelStyle;
    // Изменим цвет шрифта подписей
    Style.FontColor := New GxColor.CreateRGB(120, 0, 120);
    // Установим изменённый стиль
    CA.LabelStyle := Style;
    // Получим перо оси
    Pen := CA.Pen;
    // Изменим цвет и толщину пера
    Pen.Color := New GxColor.CreateRGB(120, 0, 120);
    Pen.Width := 3;
    // Установим изменённое перо
    CA.Pen := Pen;
    // Получим перо главных линий сетки диаграммы
    Pen := CA.PrimaryGrid.Pen;
    // Изменим цвет и толщину пера
    Pen.Color := New GxColor.CreateRGB(120, 0, 120);
    Pen.Width := 3;
    // Установим изменённое перо
    CA.PrimaryGrid.Pen := Pen;
    // Получим перо неосновных линий сетки диаграммы
    Pen := CA.SecondaryGrid.Pen;
    // Изменим цвет пера
    Pen.Color := New GxColor.CreateRGB(120, 0, 120);    
    // Установим изменённое перо
    CA.SecondaryGrid.Pen := Pen;
    // Получим перо линий делений
    Pen := CA.TicksPen;
    // Изменим цвет и толщину пера
    Pen.Color := New GxColor.CreateRGB(120, 100, 120);
    Pen.Width := 10;
    // Установим изменённое перо
    CA.TicksPen := Pen;
    // Обновим пузырьковую диаграмму и сохраним отчет
    Express.BubbleChart.Refresh;
    (Express As IMetabaseObject).Save;
End Sub UserProc;

Imports Prognoz.Platform.Interop.Express;
Imports Prognoz.Platform.Interop.Visualizators;
Imports Prognoz.Platform.Interop.Drawing;
…
Public Shared Sub Main(Params: StartParams);
Var
    MB: IMetabase;
    Express: IEaxAnalyzer;
    BC: IVZBubbleChart;
    CA: IVZChartAxis;    
    Pen: GxPen = New GxPenClass();
    Style: VzLabelStyle = New VzLabelStyle();
    GxColorCls: GxColorClass = New GxColorClassClass();
    vGxColor: GxColorClass_2 = New GxColorClass_2();
Begin
    // Получим репозиторий
    MB := Params.Metabase;
    // Получим экспресс-отчет
    Express := MB.ItemById["EXPRESS"].Edit() As IEaxAnalyzer;
    // Получим пузырьковую диаграмму
    BC := Express.BubbleChart.BubbleChart;
    // Получим ось X пузырьковой диаграммы
    CA := BC.AxisX;
    // Получим стиль подписей оси
    Style := CA.LabelStyle;
    // Изменим цвет шрифта подписей
    vGxColor.CreateRGB(120, 0, 120);
    Style.FontColor := vGxColor;
    // Установим изменённый стиль
    CA.LabelStyle := Style;
    // Создадим новое перо
    Pen.CreateSolid(GxColor.FromName("Red"),1);
    // Зададим цвет и толщину пера
    vGxColor.CreateRGB(120, 0, 120);
    Pen.Color := vGxColor;
    Pen.Width := 3;
    // Установим изменённое перо в качестве пера оси
    CA.Pen := Pen;
    // Установим изменённое перо в качестве пера главных линий сетки
    CA.PrimaryGrid.Pen := Pen;
    // Зададим цвет и толщину пера
    vGxColor.CreateRGB(120, 10, 120);
    Pen.Color := vGxColor;
    Pen.Width := 1;
    // Установим изменённое перо в качестве пера неосновных линий сетки
    CA.SecondaryGrid.Pen := Pen;
    // Зададим цвет и толщину пера
    vGxColor.CreateRGB(120, 100, 120);
    Pen.Color := vGxColor;
    Pen.Width := 10;
    // Установим изменённое перо в качестве пера линий делений
    CA.TicksPen := Pen;
    // Обновим пузырьковую диаграмму и сохраним отчет
    Express.BubbleChart.Refresh();
    (Express As IMetabaseObject).Save();
End Sub;