Count: Integer;
Свойство Count определяет количество значений в шкале (разбиений).
В рассматриваемом примере предполагается существование объекта Report типа IPrxReport.
Sub UserProc;
Var
Report: IPrxReport;
MapScale : IMapColorScale;
i : Integer;
Begin
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;
Для регламентного отчета будет создана цветовая шкала.
См. также: