ITopobase.AvailableFormats

Синтаксис Fore

AvailableFormats: Integer;

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

AvailableFormats: Integer;

Описание

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

Пример Fore

Для выполнения примера предполагается наличие карты с идентификатором «MAP1» и слоя с наименованием «Regions». Создайте форму, добавьте на нее две кнопки с наименованиями «Button1» и «Button2», два компонента MapBox с наименованиями «MapBox1» и «MapBox2», два компонента UiMap с наименованиями «UiMap1» и «UiMap2», укажите «UiMap1» и «UiMap2» в качестве источников компонентов «MapBox1» и «MapBox2» соответственно, добавьте два компонента IntegerEdit с наименованиями «IntegerEdit1» и «IntegerEdit2», компонент Memo с наименованием «Memo1», укажите значение «Tbs - 1, Svg - 2, Google - 4, Triangulate - 8, Vml - 16» свойства Text компонента «Memo1», в инспекторе сборок модуля добавьте ссылки на системные сборки MathFin, Drawing, Metabase, ForeSystem и 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 OBJ6879Form: Form
    MapBox1: MapBox;
    UiMap1: UiMap;
    Button1: Button;
   Button2: Button;
    UiMap2: UiMap;
    MapBox2: MapBox;
    IntegerEdit1: IntegerEdit;
    IntegerEdit2: IntegerEdit;
    Memo1: Memo;
    mb: IMetabase;
    Map: IMap;
    Top: IMapTopobase;
    Itop: ITopobase;

    Sub CreateLayer(m: IMap);
    Var StartC, EndC: IGxColor;
        Color: IMapVisualColorProperty;
        Scale: IMapColorScale;
        AreaVisual: IMapAreaVisual;
        Layer: IMapLayer;
    Begin
        Layer := M.Layers.FindByName("Regions");
        M.Color := New GxColor.CreateARGB(100, 100, 100, 100);
        M.Refresh;
        AreaVisual := Layer.Visuals.AddAreaVisual;
        AreaVisual.DataAdapter := New VisualDataAdapter.Create;
        Count := 5;
        Color := AreaVisual.Color;
        Color.DataAdapter := AreaVisual.DataAdapter;
        Scale := New DxMapColorScale.Create;
        StartC := GxColor.FromName("Red");
        EndC := GxColor.FromName("Blue");
        Scale.AutoSetup(Layer, AreaVisual.DataAdapter, StartC, EndC);
        Color.Scale := Scale;
        M.Refresh;
    End Sub CreateLayer;

    Sub OBJ6879FormOnCreate(Sender: Object; Args: IEventArgs);
    Begin
        mb := MetabaseClass.Active;
        Map := UiMap1.Map;
        Top := mb.FetchItemById("MAP1").Edit As IMapTopobase;
        Map.Topobase := Top;
        itop := Top As ITopobase;
        CreateLayer(Map);
    End Sub OBJ6879FormOnCreate;

    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;
        If (Topo.AvailableFormats And TopobaseFormat.Vml) <> 0 Then
            Debug.WriteLine("Vml");
        End If;

    End Sub Button2OnClick;

End Class OBJ6879Form;

В компоненте «IntegerEdit1» укажите значение формата-источника, в компоненте «IntegerEdit2» - значение результирующего формата. При нажатии на кнопку «Button1» топооснова будет преобразована из формата, значение которого указано в компоненте «IntegerEdit1», в формат, значение которого указано в «IntegerEdit2». При нажатии на кнопку «Button2» в окно консоли будет выведен список форматов, в которые была преобразована карта.

Пример Fore.NET

Для выполнения примера предполагается наличие карты с идентификатором «MAP1» и слоя с наименованием «Regions». Создайте форму, добавьте на нее две кнопки с наименованиями «Button1» и «Button2», два компонента mapBoxNet с наименованиями «mapBoxNet1» и «mapBoxNet2», два компонента uiMapNet с наименованиями «uiMapNet1» и «uiMapNet2», укажите «uiMapNet1» и «uiMapNet2» в качестве источников компонентов «mapBoxNet1» и «mapBoxNet2» соответственно, добавьте два компонента numericUpDown с наименованиями «numericUpDown1» и «numericUpDown2», добавьте ссылки на системные сборки Chart, MathFin, Drawing, Metabase, ForeSystem и Topobase.

Imports System;
Imports System.Collections.Generic;
Imports System.ComponentModel;
Imports System.Data;
Imports System.Drawing;
Imports System.Text;
Imports System.Windows.Forms;
Imports Prognoz.Platform.Forms.Net;
Imports Prognoz.Platform.Interop.Metabase;
Imports Prognoz.Platform.Interop.Drawing;
Imports Prognoz.Platform.Interop.Map;
Imports Prognoz.Platform.Interop.MathFin;
Imports Prognoz.Platform.Interop.Topobase;
Imports Prognoz.Platform.Interop.ForeSystem;

Class VisualDataAdapter: IMapTimeDynamicDataAdapter

        Public Property PartCount[Attribute: Object; TimePoint: Integer]: Integer
            Get
            Begin
                Return Count;
            End Get

        End Property;

        Public Property Data[Attribute: Object; PartvIndex: Integer; TimePoint: Integer]: Object
            Get
                Var Math: MathClass = New MathClass();
                    t: Integer;
                    i: Integer;
            Begin
                t := 1;
                For i := 0 To TimePoint Do
                    t := t + 10;
                End For;
                Return Math.Rand() * 10 * t;
            End Get
        End Property;

        Public Property TimePointsCount: Integer
        Get
        Begin
            Return 4;
        End Get
        End Property;

        Public Property TimePointName[TimePoint: Integer]: String
        Get
        Begin
            Return "TimePoint " + TimePoint.ToString();
        End Get
        End Property;

        Public Property CustomFormat: String
        Get
        Begin
            Return "#0,000";
        End Get
        End Property;

End Class;

Var Count: Integer;

Sub CreateLayer(m: IMap);
    Var StartC, EndC: GxColor;
        Color: IMapVisualColorProperty;
        Scale: DxMapColorScale;
        AreaVisual: IMapAreaVisual;
        Layer: IMapLayer;
        GxColorCls: GxColorClass_2 = New GxColorClass_2();
        GxColorCls1: GxColorClassClass = New GxColorClassClass();
    Begin
        Layer := M.Layers.FindByName["Regions"];
        GxColorCls.CreateARGB(100, 100, 100, 100);
        M.Color := GxColorCls;
        M.Refresh();
        AreaVisual := Layer.Visuals.AddAreaVisual();
        AreaVisual.DataAdapter := New VisualDataAdapter();
        Count := 5;
        Color := AreaVisual.Color;
        Color.DataAdapter := AreaVisual.DataAdapter;
        M.Refresh();
    End Sub CreateLayer;

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

    mb: IMetabase;
    Map: IMap;
    Top: IMapTopobase;
    Itop: ITopobase;

    Private Sub OBJ918Form_Load(sender: System.Object; e: System.EventArgs);
    Begin
        mb := Self.Metabase;
        Map := UiMapNet1.Map;
        Top := mb.ItemById["MAP1"].Edit() As IMapTopobase;
        Itop := Top As ITopobase;
        Map.Topobase := Itop As DxMapTopobase;
        CreateLayer(Map);
    End Sub;

   Private Sub button1_Click(sender: System.Object; e: System.EventArgs);
    Begin
        Itop.Convert(Convert.ToInt32(numericUpDown1.Value) As TopobaseFormat, (Convert.ToInt32(numericUpDown2.Value)) As TopobaseFormat);
        UiMapNet2.Map.Topobase := Itop As DxMapTopobase;
        CreateLayer(UiMapNet1.Map);
        CreateLayer(UiMapNet2.Map);
    End Sub;

    Private Sub button2_Click(sender: System.Object; e: System.EventArgs);
    Var
        Topo: ITopobase;
    Begin
        Topo := itop;
        If (Topo.AvailableFormats And (TopobaseFormat.ttTbs As Integer)) <> 0 Then
            System.Diagnostics.Debug.WriteLine("Tbs");
        End If;
        If (Topo.AvailableFormats And (TopobaseFormat.ttSvg As Integer)) <> 0 Then
            System.Diagnostics.Debug.WriteLine("Svg");
        End If;
        If (Topo.AvailableFormats And (TopobaseFormat.ttGoogle As Integer)) <> 0 Then
            System.Diagnostics.Debug.WriteLine("Google");
        End If;
        If (Topo.AvailableFormats And (TopobaseFormat.ttTriangulate As Integer)) <> 0 Then
            System.Diagnostics.Debug.WriteLine("Triangulate");
        End If;
        If (Topo.AvailableFormats And (TopobaseFormat.ttVml As Integer)) <> 0 Then
            System.Diagnostics.Debug.WriteLine("Vml");
        End If;
    End Sub;
End Class;

В компоненте «numericUpDown1» укажите значение формата-источника, в компоненте «numericUpDown2» - значение результирующего формата. После выполнения примера при нажатии на кнопку «Button1» топооснова будет преобразована из формата, значение которого указано в компоненте «numericUpDown1», в формат, значение которого указано в «numericUpDown2». При нажатии на кнопку «Button2» в окно консоли будет выведен список форматов, в которые была преобразована карта.

См. также: