IMapColorScale.AutoSetup

Синтаксис

AutoSetup(

Layer: IMapLayer;

DataAdapter: Object;

StartColor: IGxColor;

EndColor: IGxColor);

Параметры

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

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

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

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

Описание

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

Пример

В рассматриваемом примере предполагается существование объекта 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.AutoSetup(Layer, Visual.DataAdapter, a, b);

End Sub UserProc;

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

См. также:

IMapColorScale