Remove(Index: Integer; [Count: Integer = 1]);
Index - индекс цвета в коллекции, с которого будет начато удаление;
Count - количество удаляемых цветов, начиная с цвета, индекс которого указан. По умолчанию удаляется один.
Метод Remove удаляет заданное количество цветов из коллекции. В случае если не задан параметр Count, будет удален один цвет по заданному индексу.
Sub main;
Var
Metabase : IMetabase;
MetabaseObject: IMetabaseObject;
Report: IPrxReport;
Map : IMap;
BarVisual : IMapBarVisual;
Collection : IMapColorCollection;
Begin
Metabase := MetabaseClass.Active;
MetabaseObject := Metabase.ItemById("MAP_ARROW").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.Remove(1,3);
MetabaseObject.Save;
End Sub main;
После выполнения примера из набора цветов будет удалено три, начиная с цвета, индекс которого равен «1».
См. также: