IMapLayer.ToolTipVisible

Синтаксис

ToolTipVisible: Boolean;

Описание

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

Комментарии

Если значение данного свойства True, будут отображаться всплывающие подсказки для выбранного слоя.

Пример

Для выполнения примера предполагается наличие формы, расположенного на ней компонента 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» будет отображаться всплывающая подсказка.

См. также:

IMapLayer