IChartDateAxisSettings.Max

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

Sub Userproc;
Var
    mb: IMetaBase;
    regrep: IPrxReport;
    chart: IChart;
    sheet: IPrxSheet;
    table: ITabSheet;
    objects: ITabObjects;
    axis1: IChartAxis;
    settings: IChartDateAxisSettings;
Begin
    // Открываем регламентный отчет для редактирования
    mb := MetabaseClass.Active;
    regrep := mb.ItemById("Regular_Report_AxisType").Edit As IPrxReport;
    // Получаем диаграмму из регламентного отчета
    sheet := regrep.Activesheet;
    table := sheet.Table;
    objects := table.Objects;
    chart := objects.Item(0).Extension As IChart;
    // Получаем ось Х
    axis1 := chart.AxisX;
    // Представим ось Х с подписями в виде дат
    axis1.AxisType := ChartAxisType.DateAxis;
    // Редактируем ось дат
    settings := axis1.DateAxisSettings;
    // Отменим автоматическую подстановку максимального и минимального значений
    axis1.AutoMin := False;
    axis1.AutoMax := False;
    // Задаем минимальное значение оси дат
    settings.Min := DateTime.Parse("02.03.2014");
    // Задаем максимальное значение оси дат
    settings.Max := DateTime.Parse("04.05.2014");
    // Задаем отображение по месяцам на оси дат
    settings.BaseUnit := ChartDateAxisUnit.Month;
    // Задаем точку оси дат, в которой ее будет пересекать основная ось значений
    settings.CrossAxisPositionValue := DateTime.Parse("04.04.2014");
    //Задаем точку оси дат, с которой начинаются основные деления
    settings.MajorTickStartAt := DateTime.Parse("01.04.2014");
    // Задаем интервал между основными делениями
    settings.MajorTickUnitInterval := 3;
    // Задаем интервал между промежуточными делениями
    settings.MinorTickUnitInterval := 1;
    // Задаем единицы измерения основных делений
    settings.MajorTickUnit := ChartDateAxisUnit.Month;
    // Задаем единицы измерения промежуточных делений
    settings.MinorTickUnit := ChartDateAxisUnit.Days;
    // Задаем способ агрегации по среднему значению элементов оси дат
    settings.CategoryPointCollapse := DateCategoryPointCollapseType.Total;
    // Сохраняем изменения
    (regrep As IMetabaseObject).Save;
End Sub UserProc;