IMapColorCollection.Count

Синтаксис

Count: Integer;

Описание

Свойство Count определяет количество цветов в коллекции.  

Пример

Sub main;

Var

Metabase : IMetabase;

MetabaseObject: IMetabaseObject;

Report: IPrxReport;

Map : IMap;

BarVisual : IMapBarVisual;

Collection : IMapColorCollection;

Begin

Metabase := MetabaseClass.Active;

MetabaseObject := Metabase.ItemById("Report").Edit;

Report := MetabaseObject As IPrxReport;

Map := Report.ActiveSheet.Table.Objects.Item(0).Extension As IMap;

BarVisual := Map.Layers.FindByName("Regions").Visuals.Item(0) As IMapBarVisual;

Collection := BarVisual.Color.Values;

Collection.Count := 2;

Collection.Item(0) := GxColor.FromName("Red");

Collection.Item(1) := GxColor.FromName("Blue");

MetabaseObject.Save;

End Sub main;

После выполнения примера для заливки столбикового показателя будет определен заданный набор цветов. В данном примере Report - это идентификатор регламентного отчета, на листе которого расположена карта.

См. также:

IMapColorCollection