IVZMapChartShape.Selected

Selected: Boolean;

Selected: boolean;

Sub UserProc;
Var
    Metabase: IMetabase;
    EaxAnalyzer: IEaxAnalyzer;
    EMap: IVZMapChart;
    MapShape: IVZMapChartShape;
    Layer: IVZMapChartLayer;
    ShapeId: String;
    Color: IGxColor;
Begin
    // Get 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 layer from map
    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 map layer area background without fill
    MapShape.IsStrokedShape := True;
    // Save express report
    (EaxAnalyzer As IMetabaseObject).Save;
End Sub UserProc;

Imports Prognoz.Platform.Interop.Drawing;
Imports Prognoz.Platform.Interop.Express;
Imports Prognoz.Platform.Interop.Visualizators;
…
Public Shared Sub Main(Params: StartParams);
Var
    Metabase: IMetabase;
    EaxAnalyzer: IEaxAnalyzer;
    EMap: IVZMapChart;
    MapShape: IVZMapChartShape;
    Layer: IVZMapChartLayer;
    ShapeId: String;
    Color: GxColor;
    Pen: GxPen;
Begin
    // Get repository
    Metabase := Params.Metabase;
    // Get express report
    EaxAnalyzer := Metabase.ItemById["EXPRESS"].Edit() As IEaxAnalyzer;
    // Get express report map as a visualizer
    EMap := EaxAnalyzer.MapChart.MapChart;
    // Get layer from map
    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 GxColorClass_2.Create();
    Color.CreateRGB(85, 157, 170);
    Pen := New GxPenClass.Create();
    Pen.CreateSolid(Color, 4);
    MapShape.Border := Pen;
    // Set map layer area background without fill
    MapShape.IsStrokedShape := True;
    // Save express report
    (EaxAnalyzer As IMetabaseObject).Save();
End Sub