IMapColorScale.AutoSetupEx

Синтаксис

AutoSetupEx(

Layer: IMapLayer;

DataAdapter: Object;

Count: Integer;

StartColor: IGxColor;

EndColor: IGxColor);

Параметры

Layer - слой карты;

DataAdapter - значение из куба, соответствующее территории;

Count - количество интервалов на шкале (разбиений);

StartColor - начальный цвет градиента;

EndColor - конечный цвет градиента.

Описание

Метод AutoSetupEx производит автонастройку цветовой шкалы: применяет градиентную заливку и производит расчет значений (Value) для делений шкалы.

Пример

В рассматриваемом примере предполагается существование объекта Report типа IPrxReport. На листе регламентного отчета должна быть расположена карта, для которой создан картографичекий показатель.

Sub UserProc;

Var

Report: IPrxReport;

Map : IMap;

Layer :  IMapLayer;

Visual: IMapAreaVisual;

MapScale : IMapColorScale;

a,b : IGxColor;

Begin

Map := (Report.Sheets.Item(0) As IPrxTable).TabSheet.Objects.Item(0).Extension As IMap;

Layer := Map.Layers.FindByName("Regions");

Visual := Layer.Visuals.Item(0) As IMapAreaVisual;

a := New GxColor.CreateRGB(120, 125, 225);

b := New GxColor.CreateRGB(170, 115, 225);

MapScale := Report.Scales.Item(0).MapScale As IMapColorScale;

MapScale.AutoSetupEx(Layer, Visual.DataAdapter, 6, a, b);

End Sub UserProc;

После выполнения примера для цветовой шкалы будут рассчитаны значения делений и задан градиент.  

См. также:

IMapColorScale