IMapLayer.ToolTipVisible

Синтаксис Fore

ToolTipVisible: Boolean;

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

ToolTipVisible: System.Boolean;

Описание

Свойство ToolTipVisible определяет необходимость отображения всплывающих подсказок для выбранного слоя карты.

Пример Fore

Для выполнения примера предполагается наличие формы, расположенного на ней компонента UiMap с наименованием «UiMap1» и компонента MapBox, являющегося источником данных для UiMap.

Class TextDataAdapter: Object, IMapDataAdapter
    Public Str: String;

    Function Get_Data(Attribute: Variant): Variant;
    Var
        shape: IMapTopobaseShape;
    Begin
        shape := Attribute As IMapTopobaseShape;
        Return Str + shape.Name;
    End Function Get_Data;

End Class TextDataAdapter;

Class OBJ42719Form: Form
    UiMap1: UiMap;
    MapBox1: MapBox;

    Sub OBJ42719FormOnCreate(Sender: Object; Args: IEventArgs);
    Var
        Da: TextDataAdapter;
        MapDa: IMapDataAdapter;
        M: IMap;
        mLayers: IMapLayers;
        mLayer: IMapLayer;
        mShapes: IMapTopobaseShapes;
        mShape: IMapTopobaseShape;
        i: integer;
    Begin
        UiMap1.Map.Topobase:= MetabaseClass.Active.ItemById("OBJ160").Bind As IMapTopobase;
        Da := New TextDataAdapter.Create;
        Da.Str := "Это ";
        MapDa := Da As IMapDataAdapter;
        M := UiMap1.Map;
        mLayers := M.Layers;
        mLayer := mLayers.FindByName("Regions");
        mShapes := mLayer.Shapes;
        For i := 0 To mShapes.Count - 1 Do
            mShape := mShapes.Item(i);
            Debug.WriteLine(MapDa.Data(mShape));
        End For;
        mLayer.ToolTipDataAdapter := MapDa;
        mLayer.ToolTipVisible := True;

    End Sub OBJ42719FormOnCreate;
End Class OBJ42719Form;

После выполнения примера для слоя карты «Regions» будет отображаться всплывающая подсказка.

Пример Fore.NET

Для выполнения примера предполагается наличие формы, расположенного на ней компонента UiMapNet с наименованием «UiMapNet1» и компонента MapBoxNet, являющегося источником данных для UiMapNet .

...

Imports Prognoz.Platform.Forms.NET;
Imports Prognoz.Platform.Interop.Metabase;
Imports Prognoz.Platform.Interop.Map;
Imports Prognoz.Platform.Interop.Report;

Public Partial Class OBJ42710Form : Prognoz.Platform.Forms.NET.ForeNetForm
    Public Constructor OBJ42710Form();
    Begin
        InitializeComponent();
    End Constructor;

    Private Sub mapBoxNet1_Load( sender : System.Object; e : System.EventArgs );
    Var
        Da: TextDataAdapter;
        MapDa: IMapDataAdapter;
        M: IMap;
        mLayers: IMapLayers;
        mLayer: IMapLayer;
        mShapes: IMapTopobaseShapes;
        mShape: IMapTopobaseShape;
        i: integer;
    Begin
        UiMapNet1.MapUi.Map.Topobase:= Self.Metabase.ItemById ["OBJ160"].Bind() As DXMapTopobase;
        Da := New TextDataAdapter.Create();
        Da.Str := "Это ";
        MapDa := Da As IMapDataAdapter;
        M := UiMapNet1.Map;
        mLayers := M.Layers;
        mLayer := mLayers.FindByName["Regions"];
        mShapes := mLayer.Shapes;
        For i := 0 To mShapes.Count - 1 Do
            mShape := mShapes.Item[i];
            System.Console.WriteLine(MapDa.Data[mShape]);
        End For;
        mLayer.ToolTipDataAdapter := MapDa;
        mLayer.ToolTipVisible := True;
    End Sub;

End Class;

Class TextDataAdapter: Object, IMapDataAdapter
    Public Str: String;

    Public Property Data[Attribute: Object]: Object
    Get
    Var
        shape: IMapTopobaseShape;
    Begin
        shape := Attribute As IMapTopobaseShape;
        Return Str + shape.Name;
    End Get
    End Property;

End Class TextDataAdapter;