IMapView.ImageMap

Синтаксис Fore

ImageMap(Shape: IMapTopobaseShape; Width: Integer; Height: Integer; Params: String): String;

Синтаксис Fore.NET

ImageMap(Shape: IMapTopobaseShape; Width: integer; Height: integer; Params: string): string;

Параметры

Shape. Элемент топоосновы;

Width. Ширина в пикселях;

Height. Высота в пикселях;

Params. Действие гиперссылки.

Описание

Свойство ImageMap определяет параметры гиперссылки при щелчке по региону.

Комментарии

Гиперссылка работает только после экспорта карты в формат HTML.

Для получения карты-родителя используйте свойство IMapView.Map.

Пример Fore

Для выполнения примера предполагается наличие регламентного отчета с идентификатором «RO_MAP», содержащего карту.

Добавьте ссылки на системные сборки «Metabase», «Report», «Tab», «Map».

Sub UserProc;
Var
    mb: IMetabase;
    Report: IPrxReport;
    Sheet: IPrxTable;
    Map: IMap;
    ImageMap: String;
    Layer: IMapLayer;
    Shape: IMapTopobaseShape;
Begin
    mb := MetabaseClass.Active;
    Report := mb.ItemById("RO_MAP").Bind As IPrxReport;
    Sheet := Report.Sheets.Item(0) As IPrxTable;
    Map := Sheet.TabSheet.Objects.Item(0).Extension As IMap;
    Layer := Map.Layers.FindByName("Regions");
    Shape := Layer.Shapes.Item(0);
    ImageMap := Map.View.ImageMap(Shape, 800, 600, "title=""" + Shape.Description +
        """ href=""javascript:alert('" + Shape.Id.ToString + "')""");
End Sub UserProc;

После выполнения примера для заданного элемента топоосновы в переменной «ImageMap» будут содержаться параметры гиперссылки для экспорта карты в формат HTML.

Пример Fore.NET

Необходимые требования и результат выполнения примера Fore.NET совпадают с примером Fore.

Imports Prognoz.Platform.Interop.Report;
Imports Prognoz.Platform.Interop.Map;
…
Public Shared Sub Main(Params: StartParams);
Var
    mb: IMetabase;
    Report: IPrxReport;
    Sheet: IPrxTable;
    Map: IMap;
    ImageMap: String;
    Layer: IMapLayer;
    Shape: IMapTopobaseShape;
Begin
    mb := Params.Metabase;
    Report := mb.ItemById["RO_MAP"].Bind() As IPrxReport;
    Sheet := Report.Sheets.Item[0] As IPrxTable;
    Map := Sheet.TabSheet.Objects.Item[0].Extension As IMap;
    Layer := Map.Layers.FindByName["Regions"];
    Shape := Layer.Shapes.Item[0];
    ImageMap := Map.View.ImageMap[Shape, 800, 600, "title=""" + Shape.Description +
        """ href=""javascript:alert('" + Shape.Id.ToString() + "')"""];
End Sub;

См. также:

IMapView