IVZMapChart.Markers

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

Sub UserProc;
Var
    Express: IEaxAnalyzer;
    MapChart: IEaxMapChart;
    VisMapChart: IVZMapChart;
    Markers: IVZMapChartMarkers;
    Marker, MarkerAdd: IVZMapChartMarker;
    Color: IGxColor;
    ToolTipStyle: IVZToolTipStyle;
    Topo: IVZMapChartTopobase;
    MetaInfo: IVZMapChartTopobaseMetaInfo;
    LeftGeoItem, RightGeoItem: IVZMapChartTopobaseGeoItem;
Begin
    // Получим экспресс-отчёт
    Express := UiErAnalyzer1.ErAnalyzer;
    // Получим карту в качестве визуализатора
    MapChart := Express.MapChart;
    VisMapChart := MapChart.MapChart;
    // Получим коллекцию маркеров геолокации
    Markers := VisMapChart.Markers;
    // Получим маркер геолокации
    Marker := Markers.Item(0);
    // Создадим новый маркер геолокации
    MarkerAdd := New VZMapChartMarker.Create;
    // Добавим созданный маркер в коллекцию
    Markers.Add(MarkerAdd);
    // Вставим указанный маркер во вторую позицию в коллекции
    Markers.InsertAt(2, MarkerAdd);
    // Изменим идентификатор маркера
    Marker.MarkerId := "GeoMarker";
    // Создадим новый стиль всплывающих подсказок
    ToolTipStyle := New VZToolTipStyle.Create;
    // Изменим цвет шрифта подсказок
    Color := New GxColor.CreateRGB(120, 0, 120);
    ToolTipStyle.FontColor := Color;
    // Применим стиль к всплывающим подсказкам маркера геолокации
    Marker.ToolTipStyle := ToolTipStyle;
    // Получим топооснову карты
    Topo := VisMapChart.Topobase;
    // Получим метаданные топоосновы
    MetaInfo := Topo.Meta;
    // Создадим новые координаты маркера и применим их
    LeftGeoItem := New VZMapChartTopobaseGeoItem.Create;
    LeftGeoItem.Longitude := 50;
    MetaInfo.GeoLeftBottom := LeftGeoItem;
    RightGeoItem := New VZMapChartTopobaseGeoItem.Create;
    RightGeoItem.Longitude := -50;
    MetaInfo.GeoRightTop := RightGeoItem;
    // Обновим карту
    MapChart.Refresh;
End Sub UserProc;