IVZMapChartShape.Selected

Copy example

Sub UserProc;
Var
    Metabase: IMetabase;
    EaxAnalyzer: IEaxAnalyzer;
    EMap: IVZMapChart;
    MapShape: IVZMapChartShape;
    Layer: IVZMapChartLayer;
    ShapeId: String;
    Color: IGxColor;
Begin
    // Get the current repository
    Metabase := MetabaseClass.Active;
    // Get express report
    EaxAnalyzer := Metabase.ItemById("EXPRESS").Edit As IEaxAnalyzer;
    // Get express report map as a visualizer
    EMap := EaxAnalyzer.MapChart.MapChart;
    // Get map layer
    Layer := EMap.RootLayer.LayerById("Regions");
    // Select area
    ShapeId := Layer.Shapes.Item(20).ShapeId;
    MapShape := Layer.ShapeById(ShapeId);
    // Select area on map
    MapShape.Selected := True;
    // |Select area on map by changing border color
    Color := New GxColor.CreateRGB(85, 157, 170);
    MapShape.Border := New GxPen.CreateSolid(Color, 4);
    // Set background of map layer area without fill
    MapShape.IsStrokedShape := True;
    // Get express report
    (EaxAnalyzer As IMetabaseObject).Save;
End Sub UserProc;