IVZMapChartPie.StartAngle

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

Sub UserProc;
Var
    MB: IMetabase;
    Express: IEaxAnalyzer;
    Map: IVZMapChart;
    Layer: IVZMapChartLayer;
    PiesArray: IVZPiesArray;
    Pie: IVZMapChartPie;
Begin
    // Получим репозиторий
    MB := MetabaseClass.Active;
    // Получим экспресс-отчёт
    Express := MB.ItemById("Bars2_copy1").Edit As IEaxAnalyzer;
    // Получим карту
    Map := Express.MapChart.MapChart;
    // Получим слой на карте
    Layer := Map.RootLayer.SubLayers.Item(0);
    // Получим коллекцию круговых показателей на слое
    PiesArray := Layer.Pies;
    // Получим объект для работы с круговыми показателями
    Pie := PiesArray.Item(0);
    // Зададим угол поворота круговых показателей против часовой стрелки
    Pie.StartAngle := 90.0;
    // Задаим толщину границ круговых показателей
    Pie.BorderThickness := 2.0;
    // Зададим минимальное значение радиуса круговых показателей
    Pie.LeastRadiusPart := 15.0;
    // Зададим максимальное количество секторов в круговых показателях
    Pie.MaxPiesCount := 2;
    // Очистим коллекцию круговых показателей
    PiesArray.Clear;
    // Добавим ранее полученный объект для работы с круговыми показателями
    PiesArray.Add(Pie);
    // Обновим и сохраним отчёт
    Express.RefreshAll;
    (Express As IMetabaseObject).Save;
End Sub UserProc;