IVZMapChartShape.Selected

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

Sub UserProc;
Var
    Metabase: IMetabase;
    EaxAnalyzer: IEaxAnalyzer;
    EMap: IVZMapChart;
    MapShape: IVZMapChartShape;
    Layer: IVZMapChartLayer;
    ShapeId: String;
    Color: IGxColor;
Begin
    // Получим текущий репозиторий
    Metabase := MetabaseClass.Active;
    // Получим экспресс-отчёт
    EaxAnalyzer := Metabase.ItemById("EXPRESS").Edit As IEaxAnalyzer;
    // Получим карту экспресс-отчёта в качестве визуализатора
    EMap := EaxAnalyzer.MapChart.MapChart;
    // Получим слой карты
    Layer := EMap.RootLayer.LayerById("Regions");
    // Выберем область
    ShapeId := Layer.Shapes.Item(20).ShapeId;
    MapShape := Layer.ShapeById(ShapeId);
    // Отметим область на карте
    MapShape.Selected := True;
    // Выделим область на карте, изменив цвет границы
    Color := New GxColor.CreateRGB(85, 157, 170);
    MapShape.Border := New GxPen.CreateSolid(Color, 4);
    // Зададим фон области слоя карты без заливки
    MapShape.IsStrokedShape := True;
    // Сохраним экспресс-отчёт
    (EaxAnalyzer As IMetabaseObject).Save;
End Sub UserProc;