This commit is contained in:
SchreiberM
2016-12-07 10:18:58 +01:00
parent 29abb10c1b
commit e809444d94
14 changed files with 418 additions and 87 deletions

View File

@@ -22,8 +22,8 @@ Partial Class frmGeodataSelect
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim ImageTilesLayer2 As DevExpress.XtraMap.ImageTilesLayer = New DevExpress.XtraMap.ImageTilesLayer()
Dim VectorItemsLayer2 As DevExpress.XtraMap.VectorItemsLayer = New DevExpress.XtraMap.VectorItemsLayer()
Dim ImageTilesLayer1 As DevExpress.XtraMap.ImageTilesLayer = New DevExpress.XtraMap.ImageTilesLayer()
Dim VectorItemsLayer1 As DevExpress.XtraMap.VectorItemsLayer = New DevExpress.XtraMap.VectorItemsLayer()
Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
Me.btnSave = New System.Windows.Forms.ToolStripButton()
Me.ToolStripLabel1 = New System.Windows.Forms.ToolStripLabel()
@@ -31,6 +31,7 @@ Partial Class frmGeodataSelect
Me.txtLat = New System.Windows.Forms.ToolStripLabel()
Me.ToolStripLabel4 = New System.Windows.Forms.ToolStripLabel()
Me.txtLon = New System.Windows.Forms.ToolStripLabel()
Me.tsbtnactivate = New System.Windows.Forms.ToolStripButton()
Me.MapControl1 = New DevExpress.XtraMap.MapControl()
Me.ToolStrip1.SuspendLayout()
CType(Me.MapControl1, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -39,10 +40,10 @@ Partial Class frmGeodataSelect
'ToolStrip1
'
Me.ToolStrip1.GripStyle = System.Windows.Forms.ToolStripGripStyle.Hidden
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.btnSave, Me.ToolStripLabel1, Me.ToolStripLabel2, Me.txtLat, Me.ToolStripLabel4, Me.txtLon})
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.btnSave, Me.ToolStripLabel1, Me.ToolStripLabel2, Me.txtLat, Me.ToolStripLabel4, Me.txtLon, Me.tsbtnactivate})
Me.ToolStrip1.Location = New System.Drawing.Point(0, 0)
Me.ToolStrip1.Name = "ToolStrip1"
Me.ToolStrip1.Size = New System.Drawing.Size(882, 25)
Me.ToolStrip1.Size = New System.Drawing.Size(934, 25)
Me.ToolStrip1.TabIndex = 0
Me.ToolStrip1.Text = "ToolStrip1"
'
@@ -86,23 +87,31 @@ Partial Class frmGeodataSelect
Me.txtLon.Size = New System.Drawing.Size(40, 22)
Me.txtLon.Text = "txtLon"
'
'tsbtnactivate
'
Me.tsbtnactivate.Image = Global.DD_Record_Organiser.My.Resources.Resources.base_globe_32
Me.tsbtnactivate.ImageTransparentColor = System.Drawing.Color.Magenta
Me.tsbtnactivate.Name = "tsbtnactivate"
Me.tsbtnactivate.Size = New System.Drawing.Size(148, 22)
Me.tsbtnactivate.Text = "Aktiviere Mausauswahl"
'
'MapControl1
'
Me.MapControl1.Dock = System.Windows.Forms.DockStyle.Fill
ImageTilesLayer2.Name = "ImageLayer"
VectorItemsLayer2.Name = "VectorLayer"
Me.MapControl1.Layers.Add(ImageTilesLayer2)
Me.MapControl1.Layers.Add(VectorItemsLayer2)
ImageTilesLayer1.Name = "ImageLayer"
VectorItemsLayer1.Name = "VectorLayer"
Me.MapControl1.Layers.Add(ImageTilesLayer1)
Me.MapControl1.Layers.Add(VectorItemsLayer1)
Me.MapControl1.Location = New System.Drawing.Point(0, 25)
Me.MapControl1.Name = "MapControl1"
Me.MapControl1.Size = New System.Drawing.Size(882, 442)
Me.MapControl1.Size = New System.Drawing.Size(934, 442)
Me.MapControl1.TabIndex = 1
'
'frmGeodataSelect
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(882, 467)
Me.ClientSize = New System.Drawing.Size(934, 467)
Me.Controls.Add(Me.MapControl1)
Me.Controls.Add(Me.ToolStrip1)
Me.Name = "frmGeodataSelect"
@@ -122,4 +131,5 @@ Partial Class frmGeodataSelect
Friend WithEvents ToolStripLabel4 As System.Windows.Forms.ToolStripLabel
Friend WithEvents txtLon As System.Windows.Forms.ToolStripLabel
Friend WithEvents MapControl1 As DevExpress.XtraMap.MapControl
Friend WithEvents tsbtnactivate As System.Windows.Forms.ToolStripButton
End Class