IChart.AutoRotateMarker

Синтаксис Fore

AutoRotateMarker: Boolean;

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

AutoRotateMarker: boolean;

Описание

Свойство AutoRotateMarker определяет, установлен ли на диаграмме автоматический поворот маркера.

Комментарии

Для использования свойства AutoRotateMarker необходимо присвоить значение «TriangleUp»/«TriangleDown»/«Rhombus» свойству IChartMarker.MarkerType или выбрать тип маркера «Треугольник»/«Обратный треугольник»/«Ромб» на диаграммах:

• линейная;

• точечная;

• лепестковая;

• ступенчатая.

В зависимости от изменения значений линейного ряда диаграммы угол наклона маркера динамически изменяется.

Пример Fore

Для выполнения примера предполагается наличие регламентного отчёта с идентификатором «REGULAR_REPORT», в котором содержится линейная диаграмма с двумя рядами данных и маркерами в виде треугольника.

В модуле подключите системные сборки: Chart, Metabase, Report, Tab.

Sub UserProc;
Var
    Mb: IMetabase;
    Report: IPrxReport;
    Sheet: ITabSheet;
    Chart: IChart;
Begin
    // Получим текущий репозиторий и регламентный отчёт
    Mb := MetabaseClass.Active;
    Report := MB.ItemById("REGULAR_REPORT").Edit As IPrxReport;
    // Получим диаграмму отчёта
    Sheet := (Report.Sheets.Item(0) As IPrxTable).TabSheet;
    Chart := Sheet.Objects.Item(0).Extension As IChart;
    Chart.Series.DefaultSerie.ResetInheritance(ChartSeriePropertyInheritance.AutoRotateMarker);
    // Установим автоматический поворот маркеров на диаграмме
    Chart.AutoRotateMarker := True;
    // Сохраним регламентный отчёт
    (Report As IMetabaseObject).Save;
End Sub UserProc;

После выполнения примера, на диаграмме регламентного отчёта, будет установлен автоматический поворот маркеров по направлению графика.

Пример Fore.NET

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

Imports Prognoz.Platform.Interop.Metabase;
Imports Prognoz.Platform.Interop.Chart;
Imports Prognoz.Platform.Interop.Report;
Imports Prognoz.Platform.Interop.Tab;

Public Shared Sub Main(Params: StartParams);
Var
    Mb: IMetabase;
    Report: IPrxReport;
    Sheet: ITabSheet;
    Chart: IChart;
Begin
    // Получим текущий репозиторий и регламентный отчёт
    Mb := Params.Metabase;
    Report := MB.ItemById["REGULAR_REPORT"].Edit() As IPrxReport;
    // Получим диаграмму отчёта
    Sheet := (Report.Sheets.Item[0] As IPrxTable).TabSheet;
    Chart := Sheet.Objects.Item[0].Extension As IChart;
    Chart.Series.DefaultSerie.ResetInheritance(ChartSeriePropertyInheritance.cspiAutoRotateMarker);
    // Установим автоматический поворот маркеров на диаграмме
    Chart.AutoRotateMarker := True;
    // Сохраним регламентный отчёт
    (Report As IMetabaseObject).Save();
End Sub;

См. также:

IChart