TopoBase: IMapTopobase;
Свойство TopoBase определяет топооснову карты.
Для выполнения примера предполагается наличие на форме компонентов Button, MapBox, UiMap с наименованиями Button1, MapBox1 и UiMap1 соответственно. UiMap1 является источником данных для MapBox1. К компоненту UiMap1 должна быть подключена карта.
Пример является обработчиком события OnClick для компонента Button1.
Добавьте ссылки на системные сборки: ExtCtrls, Forms, Map, Metabase.
Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Var
MetaBase: IMetabase;
TopoBase: IMapTopobase;
Map: IMap;
Begin
MetaBase := MetabaseClass.Active;
TopoBase := MetaBase.ItemById("MAP_RF").Bind As IMapTopobase;
Map := UiMap1.Map;
Map.Topobase := TopoBase;
End Sub Button1OnClick;
После выполнения примера в компонент MapBox будет загружена карта «MAP_RF».
См. также: