ITopobase.AvailableFormats

Синтаксис

AvailableFormats: Integer;

Описание

Свойство AvailableFormats возвращает комбинацию значений форматов, в которые была сконвертирована топооснова.

Пример

Для выполнения примера предполагается наличие в репозитории:

карты с идентификатором MAP, в которой содержится слой с наименованием «Regions»;
формы, которая содержит:

два компонента Button с наименованиями «Button1» и Button2»;
два компонента UiMap с наименованиями «UiMap1» и «UiMap2», являющиеся источниками данных для «MapBox1» и «MapBox2» соответственно;
два компонента MapBox с наименованиями «MapBox1» и «MapBox2». Выберите для компонентов источники данных «UiMap1» и «UiMap2» в свойстве Source соответственно;
два компонента IntegerEdit с наименованиями «IntegerEdit1» и «IntegerEdit2». Задайте для компонентов значение исходного формата топоосновы и значение результирующего формата в свойстве Value соответственно. В качестве значений форматов топоосновы используйте значения перечисления TopobaseFormat.

Добавьте ссылки на системные сборки: Drawing, Map, MathFin, Metabase, Topobase.

Var
    _Count: Integer;
    _int: integer;

// Получим информацию о динамических показателях
// в различных временных точках на слое карты
Class VisualDataAdapter: Object, IMapTimeDynamicDataAdapter
    Function Get_PartCount(Attribute: Variant; TimePoint: Integer): Integer;
    Begin
        Return _Count;
    End Function Get_PartCount;

    Function Get_TimePointName(TimePoint: Integer): String;
    Begin
        Return "TimePoint " + TimePoint.ToString;
    End Function Get_TimePointName;

    Function Get_TimePointsCount: Integer;
    Begin
        Return 4;
    End Function Get_TimePointsCount;

    Function Get_Data(Attribute: Variant; PartvIndex: Integer; TimePoint: Integer): Variant;
    Var
        t: Integer;
        i: Integer;
    Begin
        t := 1;
        For i := 0 To TimePoint Do
            t := t + 10;
        End For;
        Return Math.Rand * 10 * t;
    End Function Get_Data;

    Function Get_CustomFormat: String;
    Begin
        Return "#0,000";
    End Function Get_CustomFormat;
End Class VisualDataAdapter;

Class ITOPOBASE_AVAILABLEFORMATSForm: Form
    Button1: Button;
    Button2: Button;
    MapBox1: MapBox;
    MapBox2: MapBox;
    UiMap1: UiMap;
    UiMap2: UiMap;
    IntegerEdit1: IntegerEdit;
    IntegerEdit2: IntegerEdit;
    mb: IMetabase;
    Map: IMap;
    Top: IMapTopobase;
    Itop: ITopobase;

    Sub CreateLayer(CurrentMap: IMap);
    Var
        StartC, EndC: IGxColor;
        Color: IMapVisualColorProperty;
        Scale: IMapColorScale;
        AreaVisual: IMapAreaVisual;
        Layer: IMapLayer;
    Begin
        // Получим слой карты с наименованием «Regions»
        Layer := CurrentMap.Layers.FindByName("Regions");
        // Зададим цвет фона карты
        CurrentMap.Color := New GxColor.CreateARGB(100, 100, 100, 100);
        // Обновим карту
        CurrentMap.Refresh;
        // Получим картографический показатель
        AreaVisual := Layer.Visuals.AddAreaVisual;
        // Создадим источник данных для показателя
        AreaVisual.DataAdapter := New VisualDataAdapter.Create As IMapTimeDynamicDataAdapter;
        _Count := 5;

        // Получим параметры заливки показателя
        Color := AreaVisual.Color;
        // Определим источник данных для заливки
        Color.DataAdapter := AreaVisual.DataAdapter;
        // Создадим цветовую шкалу
        Scale := New DxMapColorScale.Create As IMapColorScale;
        // Зададим начальный цвет градиента
        StartC := GxColor.FromName("Red");
        // Зададим конечный цвет градиента
        EndC := GxColor.FromName("Blue");
        // Настроим цветовую шкалу
        Scale.AutoSetup(Layer, AreaVisual.DataAdapter, StartC, EndC);
        // Зададим цветовую шкалу для заливки показателя
        Color.Scale := Scale;
        // Обновим карту
        CurrentMap.Refresh;
    End Sub CreateLayer;

    Sub ITOPOBASE_AVAILABLEFORMATSFormOnCreate(Sender: Object; Args: IEventArgs);
    Begin
        // Получим репозиторий
        mb := MetabaseClass.Active;
        // Получим карту
        Map := UiMap1.Map;
        // Получим топооснову карты
        Top := mb.FetchItemById("MAP").Edit As IMapTopobase;
        // Зададим топооснову
        Map.Topobase := Top;
        // Сохраним топооснову
        Itop := Top As ITopobase;
        // Отобразим карту
        CreateLayer(Map);
    End Sub ITOPOBASE_AVAILABLEFORMATSFormOnCreate;

    Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
    Begin
        // Сконвертируем топооснову из одного формата в другой
        Itop.Convert((IntegerEdit1.Value) As TopobaseFormat, (IntegerEdit2.Value) As TopobaseFormat);
        // Зададим топооснову
        UiMap2.Map.Topobase := Itop As IMapTopobase;
        // Отобразим карту с исходной топоосновой
        CreateLayer(UiMap1.Map);
        // Отобразим карту со сконвертированной топоосновой
        CreateLayer(UiMap2.Map);
    End Sub Button1OnClick;

    Sub Button2OnClick(Sender: Object; Args: IMouseEventArgs);
    Var
        Topo: ITopobase;
    Begin
        Topo := Itop;

        // Выведем в консоль список форматов,
        // в которые была сконвертирована топооснова
        If (Topo.AvailableFormats And TopobaseFormat.Tbs) <> 0 Then
            Debug.WriteLine("Tbs");
        End If;
        If (Topo.AvailableFormats And TopobaseFormat.Svg) <> 0 Then
            Debug.WriteLine("Svg");
        End If;
        If (Topo.AvailableFormats And TopobaseFormat.Google) <> 0 Then
            Debug.WriteLine("Google");
        End If;
        If (Topo.AvailableFormats And TopobaseFormat.Triangulate) <> 0 Then
            Debug.WriteLine("Triangulate");
        End If;
    End Sub Button2OnClick;
End Class ITOPOBASE_AVAILABLEFORMATSForm;

После выполнения примера:

при нажатии на кнопку «Button1» топооснова будет сконвертирована в указанный формат;
при нажатии на кнопку «Button2» в консоль будет выведен список форматов, в которые была сконвертирована топооснова.

См. также:

ITopobase

ITopobase.AvailableFormats

Синтаксис

Описание

Комментарии

Пример