jj 30.11.2016

2016-11-30 15:56:44 +01:00
parent 0f374eecb2
commit 57517ffed8
12 changed files with 3350 additions and 4779 deletions
--- a/app/DD-Record-Organiser/frmGeodataNavigation.Designer.vb
+++ b/app/DD-Record-Organiser/frmGeodataNavigation.Designer.vb
@@ -29,24 +29,46 @@ Partial Class frmGeodataNavigation
        Me.StatusStrip1 = New System.Windows.Forms.StatusStrip()
        Me.tsLabelRecordCount = New System.Windows.Forms.ToolStripStatusLabel()
        Me.MapControl1 = New DevExpress.XtraMap.MapControl()
+        Me.XtraTabControl1 = New DevExpress.XtraTab.XtraTabControl()
+        Me.XtraTabPage1 = New DevExpress.XtraTab.XtraTabPage()
+        Me.XtraTabPage2 = New DevExpress.XtraTab.XtraTabPage()
+        Me.SplitContainer1 = New System.Windows.Forms.SplitContainer()
+        Me.GridControlGeo = New DevExpress.XtraGrid.GridControl()
+        Me.grvwMain = New DevExpress.XtraGrid.Views.Grid.GridView()
+        Me.Button2 = New System.Windows.Forms.Button()
+        Me.Button1 = New System.Windows.Forms.Button()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.txtLon = New System.Windows.Forms.TextBox()
+        Me.txtLat = New System.Windows.Forms.TextBox()
        Me.StatusStrip1.SuspendLayout()
        CType(Me.MapControl1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.XtraTabControl1.SuspendLayout()
+        Me.XtraTabPage1.SuspendLayout()
+        Me.XtraTabPage2.SuspendLayout()
+        CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SplitContainer1.Panel1.SuspendLayout()
+        Me.SplitContainer1.Panel2.SuspendLayout()
+        Me.SplitContainer1.SuspendLayout()
+        CType(Me.GridControlGeo, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.grvwMain, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.SuspendLayout()
        '
        'ToolStrip1
        '
        Me.ToolStrip1.Location = New System.Drawing.Point(0, 0)
        Me.ToolStrip1.Name = "ToolStrip1"
-        Me.ToolStrip1.Size = New System.Drawing.Size(796, 25)
+        Me.ToolStrip1.Size = New System.Drawing.Size(1002, 25)
        Me.ToolStrip1.TabIndex = 0
        Me.ToolStrip1.Text = "ToolStrip1"
        '
        'StatusStrip1
        '
        Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsLabelRecordCount})
-        Me.StatusStrip1.Location = New System.Drawing.Point(0, 477)
+        Me.StatusStrip1.Location = New System.Drawing.Point(0, 625)
        Me.StatusStrip1.Name = "StatusStrip1"
-        Me.StatusStrip1.Size = New System.Drawing.Size(796, 22)
+        Me.StatusStrip1.Size = New System.Drawing.Size(1002, 22)
        Me.StatusStrip1.TabIndex = 1
        Me.StatusStrip1.Text = "StatusStrip1"
        '
@@ -63,18 +85,135 @@ Partial Class frmGeodataNavigation
        VectorItemsLayer1.Name = "VectorLayer"
        Me.MapControl1.Layers.Add(ImageTilesLayer1)
        Me.MapControl1.Layers.Add(VectorItemsLayer1)
-        Me.MapControl1.Location = New System.Drawing.Point(0, 25)
+        Me.MapControl1.Location = New System.Drawing.Point(0, 0)
        Me.MapControl1.Name = "MapControl1"
        Me.MapControl1.NavigationPanelOptions.Visible = False
-        Me.MapControl1.Size = New System.Drawing.Size(796, 452)
+        Me.MapControl1.Size = New System.Drawing.Size(996, 572)
        Me.MapControl1.TabIndex = 2
        '
+        'XtraTabControl1
+        '
+        Me.XtraTabControl1.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.XtraTabControl1.Location = New System.Drawing.Point(0, 25)
+        Me.XtraTabControl1.Name = "XtraTabControl1"
+        Me.XtraTabControl1.SelectedTabPage = Me.XtraTabPage1
+        Me.XtraTabControl1.Size = New System.Drawing.Size(1002, 600)
+        Me.XtraTabControl1.TabIndex = 3
+        Me.XtraTabControl1.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPage1, Me.XtraTabPage2})
+        '
+        'XtraTabPage1
+        '
+        Me.XtraTabPage1.Controls.Add(Me.MapControl1)
+        Me.XtraTabPage1.Name = "XtraTabPage1"
+        Me.XtraTabPage1.Size = New System.Drawing.Size(996, 572)
+        Me.XtraTabPage1.Text = "Geodaten anzeigen"
+        '
+        'XtraTabPage2
+        '
+        Me.XtraTabPage2.Controls.Add(Me.SplitContainer1)
+        Me.XtraTabPage2.Name = "XtraTabPage2"
+        Me.XtraTabPage2.Size = New System.Drawing.Size(996, 572)
+        Me.XtraTabPage2.Text = "Geodaten bearbeiten"
+        '
+        'SplitContainer1
+        '
+        Me.SplitContainer1.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.SplitContainer1.Location = New System.Drawing.Point(0, 0)
+        Me.SplitContainer1.Name = "SplitContainer1"
+        Me.SplitContainer1.Orientation = System.Windows.Forms.Orientation.Horizontal
+        '
+        'SplitContainer1.Panel1
+        '
+        Me.SplitContainer1.Panel1.Controls.Add(Me.GridControlGeo)
+        '
+        'SplitContainer1.Panel2
+        '
+        Me.SplitContainer1.Panel2.Controls.Add(Me.Button2)
+        Me.SplitContainer1.Panel2.Controls.Add(Me.Button1)
+        Me.SplitContainer1.Panel2.Controls.Add(Me.Label2)
+        Me.SplitContainer1.Panel2.Controls.Add(Me.Label1)
+        Me.SplitContainer1.Panel2.Controls.Add(Me.txtLon)
+        Me.SplitContainer1.Panel2.Controls.Add(Me.txtLat)
+        Me.SplitContainer1.Panel2MinSize = 100
+        Me.SplitContainer1.Size = New System.Drawing.Size(996, 572)
+        Me.SplitContainer1.SplitterDistance = 467
+        Me.SplitContainer1.TabIndex = 0
+        '
+        'GridControlGeo
+        '
+        Me.GridControlGeo.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.GridControlGeo.Location = New System.Drawing.Point(0, 0)
+        Me.GridControlGeo.MainView = Me.grvwMain
+        Me.GridControlGeo.Name = "GridControlGeo"
+        Me.GridControlGeo.Size = New System.Drawing.Size(996, 467)
+        Me.GridControlGeo.TabIndex = 0
+        Me.GridControlGeo.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.grvwMain})
+        '
+        'grvwMain
+        '
+        Me.grvwMain.GridControl = Me.GridControlGeo
+        Me.grvwMain.Name = "grvwMain"
+        '
+        'Button2
+        '
+        Me.Button2.Location = New System.Drawing.Point(467, 25)
+        Me.Button2.Name = "Button2"
+        Me.Button2.Size = New System.Drawing.Size(96, 49)
+        Me.Button2.TabIndex = 5
+        Me.Button2.Text = "Save"
+        Me.Button2.UseVisualStyleBackColor = True
+        '
+        'Button1
+        '
+        Me.Button1.Location = New System.Drawing.Point(365, 25)
+        Me.Button1.Name = "Button1"
+        Me.Button1.Size = New System.Drawing.Size(96, 49)
+        Me.Button1.TabIndex = 4
+        Me.Button1.Text = "Set on Map"
+        Me.Button1.UseVisualStyleBackColor = True
+        '
+        'Label2
+        '
+        Me.Label2.AutoSize = True
+        Me.Label2.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label2.Location = New System.Drawing.Point(164, 22)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(68, 16)
+        Me.Label2.TabIndex = 3
+        Me.Label2.Text = "Longitude:"
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label1.Location = New System.Drawing.Point(8, 22)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(58, 16)
+        Me.Label1.TabIndex = 2
+        Me.Label1.Text = "Latitude:"
+        '
+        'txtLon
+        '
+        Me.txtLon.Font = New System.Drawing.Font("Tahoma", 15.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.txtLon.Location = New System.Drawing.Point(167, 41)
+        Me.txtLon.Name = "txtLon"
+        Me.txtLon.Size = New System.Drawing.Size(150, 33)
+        Me.txtLon.TabIndex = 1
+        '
+        'txtLat
+        '
+        Me.txtLat.Font = New System.Drawing.Font("Tahoma", 15.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.txtLat.Location = New System.Drawing.Point(11, 41)
+        Me.txtLat.Name = "txtLat"
+        Me.txtLat.Size = New System.Drawing.Size(150, 33)
+        Me.txtLat.TabIndex = 0
+        '
        'frmGeodataNavigation
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(796, 499)
-        Me.Controls.Add(Me.MapControl1)
+        Me.ClientSize = New System.Drawing.Size(1002, 647)
+        Me.Controls.Add(Me.XtraTabControl1)
        Me.Controls.Add(Me.StatusStrip1)
        Me.Controls.Add(Me.ToolStrip1)
        Me.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
@@ -84,6 +223,17 @@ Partial Class frmGeodataNavigation
        Me.StatusStrip1.ResumeLayout(False)
        Me.StatusStrip1.PerformLayout()
        CType(Me.MapControl1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.XtraTabControl1.ResumeLayout(False)
+        Me.XtraTabPage1.ResumeLayout(False)
+        Me.XtraTabPage2.ResumeLayout(False)
+        Me.SplitContainer1.Panel1.ResumeLayout(False)
+        Me.SplitContainer1.Panel2.ResumeLayout(False)
+        Me.SplitContainer1.Panel2.PerformLayout()
+        CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.SplitContainer1.ResumeLayout(False)
+        CType(Me.GridControlGeo, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.grvwMain, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)
        Me.PerformLayout()

@@ -92,4 +242,16 @@ Partial Class frmGeodataNavigation
    Friend WithEvents StatusStrip1 As System.Windows.Forms.StatusStrip
    Friend WithEvents MapControl1 As DevExpress.XtraMap.MapControl
    Friend WithEvents tsLabelRecordCount As System.Windows.Forms.ToolStripStatusLabel
+    Friend WithEvents XtraTabControl1 As DevExpress.XtraTab.XtraTabControl
+    Friend WithEvents XtraTabPage1 As DevExpress.XtraTab.XtraTabPage
+    Friend WithEvents XtraTabPage2 As DevExpress.XtraTab.XtraTabPage
+    Friend WithEvents SplitContainer1 As System.Windows.Forms.SplitContainer
+    Friend WithEvents GridControlGeo As DevExpress.XtraGrid.GridControl
+    Friend WithEvents grvwMain As DevExpress.XtraGrid.Views.Grid.GridView
+    Friend WithEvents Label2 As System.Windows.Forms.Label
+    Friend WithEvents Label1 As System.Windows.Forms.Label
+    Friend WithEvents txtLon As System.Windows.Forms.TextBox
+    Friend WithEvents txtLat As System.Windows.Forms.TextBox
+    Friend WithEvents Button2 As System.Windows.Forms.Button
+    Friend WithEvents Button1 As System.Windows.Forms.Button
 End Class