IMapScale.Count

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

Sub UserProc;
Var 
    MB: IMetabase;
    Report: IPrxReport;
    MapScale : IMapColorScale;
    i : Integer;
Begin
    // Получим репозиторий
    MB := MetabaseClass.Active;
    // Получим регламентный отчёт
    Report := MB.ItemById("REPORT").Edit As IPrxReport;
    // Добавим цветовую шкалу
    MapScale := Report.Scales.Add(PrxMapScale.Color).MapScale As IMapColorScale;
    MapScale.Count := 7;
    For i := 0 To MapScale.Count - 1 Do
        MapScale.Value(i) := (i + 1) * 3000;
        MapScale.Color(i, MapScaleSettingImpact.Less) := New GxColor.CreateRGB(120, 100 + (i*15), 225);
        MapScale.Color(i, MapScaleSettingImpact.Exact) := New GxColor.CreateRGB(170, 100 + (i*15), 225);
        MapScale.Color(i, MapScaleSettingImpact.Greater) := New GxColor.CreateRGB(220, 100 + (i*15), 225);
    End For;
End Sub UserProc;