IMapColorCollection.Count

Копировать пример

Sub UserProc;
Var
    Metabase : IMetabase;
    MetabaseObject: IMetabaseObject;
    Report: IPrxReport;
    Sheets: IPrxSheets;
    SheetT : IPrxTable;
    Map : IMap;
    BarVisual : IMapBarVisual;
    Collection : IMapColorCollection;
Begin
    Metabase := MetabaseClass.Active;
    MetabaseObject := Metabase.ItemById("REPORT").Edit;
    Report := MetabaseObject As IPrxReport;
    Sheets := PrxReport.ActiveReport.Sheets;
    SheetT := Sheets.Item(0) As  IPrxTable;
    Map := SheetT.TabSheet.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 UserProc;