AppStd/RecordOrganizer
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

jj 17.11

Browse Source
This commit is contained in:
JenneJ
2016-11-17 16:32:30 +01:00
parent fa59a28683
commit d9384ec390
14 changed files with 2102 additions and 3053 deletions
Download Patch File Download Diff File Expand all files Collapse all files

54
app/DD-Record-Organiser/frmGoogle.Designer.vb generated
View File

@@ -23,16 +23,16 @@ Partial Class frmGoogle
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim ImageTilesLayer2 As DevExpress.XtraMap.ImageTilesLayer = New DevExpress.XtraMap.ImageTilesLayer()
Dim BingMapDataProvider2 As DevExpress.XtraMap.BingMapDataProvider = New DevExpress.XtraMap.BingMapDataProvider()
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()
Dim ImageTilesLayer1 As DevExpress.XtraMap.ImageTilesLayer = New DevExpress.XtraMap.ImageTilesLayer()
Dim BingMapDataProvider1 As DevExpress.XtraMap.BingMapDataProvider = New DevExpress.XtraMap.BingMapDataProvider()
Dim InformationLayer1 As DevExpress.XtraMap.InformationLayer = New DevExpress.XtraMap.InformationLayer()
Dim BingSearchDataProvider1 As DevExpress.XtraMap.BingSearchDataProvider = New DevExpress.XtraMap.BingSearchDataProvider()
Dim VectorItemsLayer1 As DevExpress.XtraMap.VectorItemsLayer = New DevExpress.XtraMap.VectorItemsLayer()
Dim MapItemStorage1 As DevExpress.XtraMap.MapItemStorage = New DevExpress.XtraMap.MapItemStorage()
Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.MapControl1 = New DevExpress.XtraMap.MapControl()
Me.ListBox1 = New System.Windows.Forms.ListBox()
Me.ToolTipController1 = New DevExpress.Utils.ToolTipController(Me.components)
Me.ListBox1 = New System.Windows.Forms.ListBox()
CType(Me.MapControl1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
@@ -43,22 +43,22 @@ Partial Class frmGoogle
'
'MapControl1
'
Me.MapControl1.CenterPoint = New DevExpress.XtraMap.GeoPoint(45.0R, 16.0R)
BingMapDataProvider2.BingKey = "hQUTlqLLK70bETnonpfi~0jx1pIAq1yQ7gXqbIyzKrg~Au-Tewbty8afAxdbNilSv4JlU7qwU-fQKu0ou" & _
Me.MapControl1.CenterPoint = New DevExpress.XtraMap.GeoPoint(50.7R, 8.6R)
BingMapDataProvider1.BingKey = "hQUTlqLLK70bETnonpfi~0jx1pIAq1yQ7gXqbIyzKrg~Au-Tewbty8afAxdbNilSv4JlU7qwU-fQKu0ou" & _
"H9e1uJmpIyVdA3jugVEWMdy1Rbt"
BingMapDataProvider2.Kind = DevExpress.XtraMap.BingMapKind.Road
BingMapDataProvider2.TileSource = Nothing
ImageTilesLayer2.DataProvider = BingMapDataProvider2
ImageTilesLayer2.Name = "ImageLayer"
BingSearchDataProvider2.BingKey = "hQUTlqLLK70bETnonpfi~0jx1pIAq1yQ7gXqbIyzKrg~Au-Tewbty8afAxdbNilSv4JlU7qwU-fQKu0ou" & _
BingMapDataProvider1.Kind = DevExpress.XtraMap.BingMapKind.Road
BingMapDataProvider1.TileSource = Nothing
ImageTilesLayer1.DataProvider = BingMapDataProvider1
ImageTilesLayer1.Name = "ImageLayer"
BingSearchDataProvider1.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)
InformationLayer1.DataProvider = BingSearchDataProvider1
InformationLayer1.Name = "SearchLayer"
VectorItemsLayer1.Data = MapItemStorage1
VectorItemsLayer1.Name = "VectorLayer"
Me.MapControl1.Layers.Add(ImageTilesLayer1)
Me.MapControl1.Layers.Add(InformationLayer1)
Me.MapControl1.Layers.Add(VectorItemsLayer1)
Me.MapControl1.Location = New System.Drawing.Point(200, 2)
Me.MapControl1.Name = "MapControl1"
Me.MapControl1.Size = New System.Drawing.Size(1188, 485)
@@ -66,6 +66,12 @@ Partial Class frmGoogle
Me.MapControl1.ToolTipController = Me.ToolTipController1
Me.MapControl1.ZoomLevel = 10.0R
'
'ToolTipController1
'
Me.ToolTipController1.Rounded = True
Me.ToolTipController1.ToolTipStyle = DevExpress.Utils.ToolTipStyle.WindowsXP
Me.ToolTipController1.ToolTipType = DevExpress.Utils.ToolTipType.SuperTip
'
'ListBox1
'
Me.ListBox1.FormattingEnabled = True
@@ -74,12 +80,6 @@ Partial Class frmGoogle
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!)