Count: Integer;
The Count property determines the number of scale tick marks.
The example requires the Report object of the IPrxReport type.
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;
A color scale is created for the regular report.
See also: