jj 16.11 frmGoogle

2016-11-16 16:48:04 +01:00
parent ba4040e3e4
commit 1184ee0043
5 changed files with 153 additions and 164 deletions
--- a/app/DD-Record-Organiser/frmGoogle.Designer.vb
+++ b/app/DD-Record-Organiser/frmGoogle.Designer.vb
@@ -23,126 +23,79 @@ Partial Class frmGoogle
    <System.Diagnostics.DebuggerStepThrough()> _
    Private Sub InitializeComponent()
        Me.components = New System.ComponentModel.Container()
-        Dim ImageTilesLayer1 As DevExpress.XtraMap.ImageTilesLayer = New DevExpress.XtraMap.ImageTilesLayer()
-        Dim BingMapDataProvider1 As DevExpress.XtraMap.BingMapDataProvider = New DevExpress.XtraMap.BingMapDataProvider()
-        Dim MiniMap1 As DevExpress.XtraMap.MiniMap = New DevExpress.XtraMap.MiniMap()
-        Dim FixedMiniMapBehavior1 As DevExpress.XtraMap.FixedMiniMapBehavior = New DevExpress.XtraMap.FixedMiniMapBehavior()
-        Dim MiniMapImageTilesLayer1 As DevExpress.XtraMap.MiniMapImageTilesLayer = New DevExpress.XtraMap.MiniMapImageTilesLayer()
+        Dim ImageTilesLayer2 As DevExpress.XtraMap.ImageTilesLayer = New DevExpress.XtraMap.ImageTilesLayer()
        Dim BingMapDataProvider2 As DevExpress.XtraMap.BingMapDataProvider = New DevExpress.XtraMap.BingMapDataProvider()
-        Dim MiniMapVectorItemsLayer1 As DevExpress.XtraMap.MiniMapVectorItemsLayer = New DevExpress.XtraMap.MiniMapVectorItemsLayer()
-        Dim MapItemStorage1 As DevExpress.XtraMap.MapItemStorage = New DevExpress.XtraMap.MapItemStorage()
-        Me.Label1 = New System.Windows.Forms.Label()
+        Dim InformationLayer2 As DevExpress.XtraMap.InformationLayer = New DevExpress.XtraMap.InformationLayer()
+        Dim BingSearchDataProvider2 As DevExpress.XtraMap.BingSearchDataProvider = New DevExpress.XtraMap.BingSearchDataProvider()
+        Dim VectorItemsLayer2 As DevExpress.XtraMap.VectorItemsLayer = New DevExpress.XtraMap.VectorItemsLayer()
+        Dim MapItemStorage2 As DevExpress.XtraMap.MapItemStorage = New DevExpress.XtraMap.MapItemStorage()
        Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
-        Me.txtAdress = New System.Windows.Forms.TextBox()
-        Me.Button1 = New System.Windows.Forms.Button()
-        Me.WebBrowser1 = New System.Windows.Forms.WebBrowser()
-        Me.cmbType = New System.Windows.Forms.ComboBox()
        Me.MapControl1 = New DevExpress.XtraMap.MapControl()
+        Me.ListBox1 = New System.Windows.Forms.ListBox()
+        Me.ToolTipController1 = New DevExpress.Utils.ToolTipController(Me.components)
        CType(Me.MapControl1, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.SuspendLayout()
        '
-        'Label1
-        '
-        Me.Label1.AutoSize = True
-        Me.Label1.Location = New System.Drawing.Point(12, 12)
-        Me.Label1.Name = "Label1"
-        Me.Label1.Size = New System.Drawing.Size(38, 13)
-        Me.Label1.TabIndex = 0
-        Me.Label1.Text = "Label1"
-        '
        'ContextMenuStrip1
        '
        Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
        Me.ContextMenuStrip1.Size = New System.Drawing.Size(61, 4)
        '
-        'txtAdress
-        '
-        Me.txtAdress.Location = New System.Drawing.Point(56, 9)
-        Me.txtAdress.Name = "txtAdress"
-        Me.txtAdress.Size = New System.Drawing.Size(282, 21)
-        Me.txtAdress.TabIndex = 2
-        '
-        'Button1
-        '
-        Me.Button1.Location = New System.Drawing.Point(489, 7)
-        Me.Button1.Name = "Button1"
-        Me.Button1.Size = New System.Drawing.Size(75, 23)
-        Me.Button1.TabIndex = 3
-        Me.Button1.Text = "Button1"
-        Me.Button1.UseVisualStyleBackColor = True
-        '
-        'WebBrowser1
-        '
-        Me.WebBrowser1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
-            Or System.Windows.Forms.AnchorStyles.Left) _
-            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.WebBrowser1.Location = New System.Drawing.Point(15, 38)
-        Me.WebBrowser1.MinimumSize = New System.Drawing.Size(20, 20)
-        Me.WebBrowser1.Name = "WebBrowser1"
-        Me.WebBrowser1.Size = New System.Drawing.Size(671, 344)
-        Me.WebBrowser1.TabIndex = 4
-        '
-        'cmbType
-        '
-        Me.cmbType.FormattingEnabled = True
-        Me.cmbType.Items.AddRange(New Object() {"Map", "Satellite", "Hybrid", "Terrain", "Google Earth"})
-        Me.cmbType.Location = New System.Drawing.Point(344, 9)
-        Me.cmbType.Name = "cmbType"
-        Me.cmbType.Size = New System.Drawing.Size(139, 21)
-        Me.cmbType.TabIndex = 5
-        '
        'MapControl1
        '
-        Me.MapControl1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
-            Or System.Windows.Forms.AnchorStyles.Left) _
-            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.MapControl1.CenterPoint = New DevExpress.XtraMap.GeoPoint(45.0R, 16.0R)
-        BingMapDataProvider1.BingKey = "hQUTlqLLK70bETnonpfi~0jx1pIAq1yQ7gXqbIyzKrg~Au-Tewbty8afAxdbNilSv4JlU7qwU-fQKu0ou" & _
+        BingMapDataProvider2.BingKey = "hQUTlqLLK70bETnonpfi~0jx1pIAq1yQ7gXqbIyzKrg~Au-Tewbty8afAxdbNilSv4JlU7qwU-fQKu0ou" & _
    "H9e1uJmpIyVdA3jugVEWMdy1Rbt"
-        BingMapDataProvider1.Kind = DevExpress.XtraMap.BingMapKind.Road
-        BingMapDataProvider1.TileSource = Nothing
-        ImageTilesLayer1.DataProvider = BingMapDataProvider1
-        Me.MapControl1.Layers.Add(ImageTilesLayer1)
-        Me.MapControl1.Location = New System.Drawing.Point(719, 38)
-        MiniMap1.Alignment = DevExpress.XtraMap.MiniMapAlignment.BottomRight
-        FixedMiniMapBehavior1.CenterPoint = New DevExpress.XtraMap.GeoPoint(45.0R, 18.0R)
-        MiniMap1.Behavior = FixedMiniMapBehavior1
-        BingMapDataProvider2.BingKey = "YOUR BING MAPS KEY"
+        BingMapDataProvider2.Kind = DevExpress.XtraMap.BingMapKind.Road
        BingMapDataProvider2.TileSource = Nothing
-        MiniMapImageTilesLayer1.DataProvider = BingMapDataProvider2
-        MiniMapVectorItemsLayer1.Data = MapItemStorage1
-        MiniMap1.Layers.Add(MiniMapImageTilesLayer1)
-        MiniMap1.Layers.Add(MiniMapVectorItemsLayer1)
-        Me.MapControl1.MiniMap = MiniMap1
+        ImageTilesLayer2.DataProvider = BingMapDataProvider2
+        ImageTilesLayer2.Name = "ImageLayer"
+        BingSearchDataProvider2.BingKey = "hQUTlqLLK70bETnonpfi~0jx1pIAq1yQ7gXqbIyzKrg~Au-Tewbty8afAxdbNilSv4JlU7qwU-fQKu0ou" & _
+    "H9e1uJmpIyVdA3jugVEWMdy1Rbt"
+        InformationLayer2.DataProvider = BingSearchDataProvider2
+        InformationLayer2.Name = "SearchLayer"
+        VectorItemsLayer2.Data = MapItemStorage2
+        VectorItemsLayer2.Name = "VectorLayer"
+        Me.MapControl1.Layers.Add(ImageTilesLayer2)
+        Me.MapControl1.Layers.Add(InformationLayer2)
+        Me.MapControl1.Layers.Add(VectorItemsLayer2)
+        Me.MapControl1.Location = New System.Drawing.Point(200, 2)
        Me.MapControl1.Name = "MapControl1"
-        Me.MapControl1.Size = New System.Drawing.Size(659, 344)
+        Me.MapControl1.Size = New System.Drawing.Size(1188, 485)
        Me.MapControl1.TabIndex = 6
+        Me.MapControl1.ToolTipController = Me.ToolTipController1
        Me.MapControl1.ZoomLevel = 10.0R
        '
+        'ListBox1
+        '
+        Me.ListBox1.FormattingEnabled = True
+        Me.ListBox1.Location = New System.Drawing.Point(3, 2)
+        Me.ListBox1.Name = "ListBox1"
+        Me.ListBox1.Size = New System.Drawing.Size(191, 485)
+        Me.ListBox1.TabIndex = 7
+        '
+        'ToolTipController1
+        '
+        Me.ToolTipController1.Rounded = True
+        Me.ToolTipController1.ToolTipStyle = DevExpress.Utils.ToolTipStyle.WindowsXP
+        Me.ToolTipController1.ToolTipType = DevExpress.Utils.ToolTipType.SuperTip
+        '
        'frmGoogle
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(1390, 394)
+        Me.ClientSize = New System.Drawing.Size(1390, 490)
+        Me.Controls.Add(Me.ListBox1)
        Me.Controls.Add(Me.MapControl1)
-        Me.Controls.Add(Me.cmbType)
-        Me.Controls.Add(Me.WebBrowser1)
-        Me.Controls.Add(Me.Button1)
-        Me.Controls.Add(Me.txtAdress)
-        Me.Controls.Add(Me.Label1)
        Me.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Name = "frmGoogle"
        Me.Text = "frmGoogle"
        CType(Me.MapControl1, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)
-        Me.PerformLayout()

    End Sub
-    Friend WithEvents Label1 As System.Windows.Forms.Label
    Friend WithEvents ContextMenuStrip1 As System.Windows.Forms.ContextMenuStrip
-    Friend WithEvents txtAdress As System.Windows.Forms.TextBox
-    Friend WithEvents Button1 As System.Windows.Forms.Button
-    Friend WithEvents WebBrowser1 As System.Windows.Forms.WebBrowser
-    Friend WithEvents cmbType As System.Windows.Forms.ComboBox
    Friend WithEvents MapControl1 As DevExpress.XtraMap.MapControl
+    Friend WithEvents ListBox1 As System.Windows.Forms.ListBox
+    Friend WithEvents ToolTipController1 As DevExpress.Utils.ToolTipController
 End Class