Zooflow: Improve frmServiceConfig, Init Errors Handling, Hide Backnavigation in Results

This commit is contained in:
Jonathan Jenne
2022-04-13 10:28:35 +02:00
parent 62748c9053
commit 711734bd12
13 changed files with 224 additions and 409 deletions

View File

@@ -23,50 +23,53 @@ Partial Class frmServiceConfig
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.LayoutControl1 = New DevExpress.XtraLayout.LayoutControl()
Me.Root = New DevExpress.XtraLayout.LayoutControlGroup()
Me.txtServiceAddress = New DevExpress.XtraEditors.TextEdit()
Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl()
Me.btnOK = New DevExpress.XtraBars.BarButtonItem()
Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage()
Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage()
Me.txtServiceAddress = New DevExpress.XtraEditors.TextEdit()
Me.LayoutControlItem1 = New DevExpress.XtraLayout.LayoutControlItem()
Me.txtServicePort = New DevExpress.XtraEditors.SpinEdit()
Me.Root = New DevExpress.XtraLayout.LayoutControlGroup()
Me.LayoutControlItem1 = New DevExpress.XtraLayout.LayoutControlItem()
Me.LayoutControlItem2 = New DevExpress.XtraLayout.LayoutControlItem()
Me.lblStatus = New DevExpress.XtraLayout.SimpleLabelItem()
Me.EmptySpaceItem1 = New DevExpress.XtraLayout.EmptySpaceItem()
Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage()
Me.txtStatus = New DevExpress.XtraEditors.TextEdit()
Me.LayoutControlItem3 = New DevExpress.XtraLayout.LayoutControlItem()
CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.LayoutControl1.SuspendLayout()
CType(Me.Root, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtServiceAddress.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtServicePort.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Root, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblStatus, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.EmptySpaceItem1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtStatus.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'LayoutControl1
'
Me.LayoutControl1.Controls.Add(Me.txtServiceAddress)
Me.LayoutControl1.Controls.Add(Me.txtServicePort)
Me.LayoutControl1.Controls.Add(Me.txtStatus)
Me.LayoutControl1.Dock = System.Windows.Forms.DockStyle.Fill
Me.LayoutControl1.Location = New System.Drawing.Point(0, 66)
Me.LayoutControl1.Location = New System.Drawing.Point(0, 63)
Me.LayoutControl1.Name = "LayoutControl1"
Me.LayoutControl1.Root = Me.Root
Me.LayoutControl1.Size = New System.Drawing.Size(630, 204)
Me.LayoutControl1.Size = New System.Drawing.Size(630, 207)
Me.LayoutControl1.TabIndex = 0
Me.LayoutControl1.Text = "LayoutControl1"
'
'Root
'txtServiceAddress
'
Me.Root.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True]
Me.Root.GroupBordersVisible = False
Me.Root.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem1, Me.LayoutControlItem2, Me.EmptySpaceItem1, Me.lblStatus})
Me.Root.Name = "Root"
Me.Root.Size = New System.Drawing.Size(630, 204)
Me.Root.TextVisible = False
Me.txtServiceAddress.Location = New System.Drawing.Point(105, 40)
Me.txtServiceAddress.MenuManager = Me.RibbonControl1
Me.txtServiceAddress.Name = "txtServiceAddress"
Me.txtServiceAddress.Size = New System.Drawing.Size(485, 20)
Me.txtServiceAddress.StyleController = Me.LayoutControl1
Me.txtServiceAddress.TabIndex = 4
'
'RibbonControl1
'
@@ -80,7 +83,7 @@ Partial Class frmServiceConfig
Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False]
Me.RibbonControl1.ShowPageHeadersMode = DevExpress.XtraBars.Ribbon.ShowPageHeadersMode.Hide
Me.RibbonControl1.ShowToolbarCustomizeItem = False
Me.RibbonControl1.Size = New System.Drawing.Size(630, 66)
Me.RibbonControl1.Size = New System.Drawing.Size(630, 63)
Me.RibbonControl1.Toolbar.ShowCustomizeItem = False
'
'btnOK
@@ -102,19 +105,25 @@ Partial Class frmServiceConfig
Me.RibbonPageGroup1.Name = "RibbonPageGroup1"
Me.RibbonPageGroup1.Text = "RibbonPageGroup1"
'
'RibbonPage2
'txtServicePort
'
Me.RibbonPage2.Name = "RibbonPage2"
Me.RibbonPage2.Text = "RibbonPage2"
Me.txtServicePort.EditValue = New Decimal(New Integer() {9000, 0, 0, 0})
Me.txtServicePort.Location = New System.Drawing.Point(105, 70)
Me.txtServicePort.MenuManager = Me.RibbonControl1
Me.txtServicePort.Name = "txtServicePort"
Me.txtServicePort.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)})
Me.txtServicePort.Size = New System.Drawing.Size(485, 20)
Me.txtServicePort.StyleController = Me.LayoutControl1
Me.txtServicePort.TabIndex = 5
'
'txtServiceAddress
'Root
'
Me.txtServiceAddress.Location = New System.Drawing.Point(167, 40)
Me.txtServiceAddress.MenuManager = Me.RibbonControl1
Me.txtServiceAddress.Name = "txtServiceAddress"
Me.txtServiceAddress.Size = New System.Drawing.Size(423, 20)
Me.txtServiceAddress.StyleController = Me.LayoutControl1
Me.txtServiceAddress.TabIndex = 4
Me.Root.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True]
Me.Root.GroupBordersVisible = False
Me.Root.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem1, Me.LayoutControlItem2, Me.EmptySpaceItem1, Me.LayoutControlItem3})
Me.Root.Name = "Root"
Me.Root.Size = New System.Drawing.Size(630, 207)
Me.Root.TextVisible = False
'
'LayoutControlItem1
'
@@ -124,18 +133,7 @@ Partial Class frmServiceConfig
Me.LayoutControlItem1.Padding = New DevExpress.XtraLayout.Utils.Padding(30, 30, 30, 5)
Me.LayoutControlItem1.Size = New System.Drawing.Size(610, 55)
Me.LayoutControlItem1.Text = "IP-Adresse"
Me.LayoutControlItem1.TextSize = New System.Drawing.Size(124, 13)
'
'txtServicePort
'
Me.txtServicePort.EditValue = New Decimal(New Integer() {9000, 0, 0, 0})
Me.txtServicePort.Location = New System.Drawing.Point(167, 70)
Me.txtServicePort.MenuManager = Me.RibbonControl1
Me.txtServicePort.Name = "txtServicePort"
Me.txtServicePort.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)})
Me.txtServicePort.Size = New System.Drawing.Size(423, 20)
Me.txtServicePort.StyleController = Me.LayoutControl1
Me.txtServicePort.TabIndex = 5
Me.LayoutControlItem1.TextSize = New System.Drawing.Size(53, 13)
'
'LayoutControlItem2
'
@@ -145,26 +143,41 @@ Partial Class frmServiceConfig
Me.LayoutControlItem2.Padding = New DevExpress.XtraLayout.Utils.Padding(30, 30, 5, 5)
Me.LayoutControlItem2.Size = New System.Drawing.Size(610, 30)
Me.LayoutControlItem2.Text = "Port"
Me.LayoutControlItem2.TextSize = New System.Drawing.Size(124, 13)
'
'lblStatus
'
Me.lblStatus.AllowHotTrack = False
Me.lblStatus.Location = New System.Drawing.Point(0, 85)
Me.lblStatus.Name = "lblStatus"
Me.lblStatus.Padding = New DevExpress.XtraLayout.Utils.Padding(30, 30, 5, 30)
Me.lblStatus.Size = New System.Drawing.Size(610, 48)
Me.lblStatus.Text = "Status: Nicht verbunden"
Me.lblStatus.TextSize = New System.Drawing.Size(124, 13)
Me.LayoutControlItem2.TextSize = New System.Drawing.Size(53, 13)
'
'EmptySpaceItem1
'
Me.EmptySpaceItem1.AllowHotTrack = False
Me.EmptySpaceItem1.Location = New System.Drawing.Point(0, 133)
Me.EmptySpaceItem1.Location = New System.Drawing.Point(0, 115)
Me.EmptySpaceItem1.Name = "EmptySpaceItem1"
Me.EmptySpaceItem1.Size = New System.Drawing.Size(610, 51)
Me.EmptySpaceItem1.Size = New System.Drawing.Size(610, 72)
Me.EmptySpaceItem1.TextSize = New System.Drawing.Size(0, 0)
'
'RibbonPage2
'
Me.RibbonPage2.Name = "RibbonPage2"
Me.RibbonPage2.Text = "RibbonPage2"
'
'txtStatus
'
Me.txtStatus.Location = New System.Drawing.Point(105, 100)
Me.txtStatus.MenuManager = Me.RibbonControl1
Me.txtStatus.Name = "txtStatus"
Me.txtStatus.Properties.ReadOnly = True
Me.txtStatus.Size = New System.Drawing.Size(485, 20)
Me.txtStatus.StyleController = Me.LayoutControl1
Me.txtStatus.TabIndex = 6
'
'LayoutControlItem3
'
Me.LayoutControlItem3.Control = Me.txtStatus
Me.LayoutControlItem3.Location = New System.Drawing.Point(0, 85)
Me.LayoutControlItem3.Name = "LayoutControlItem3"
Me.LayoutControlItem3.Padding = New DevExpress.XtraLayout.Utils.Padding(30, 30, 5, 5)
Me.LayoutControlItem3.Size = New System.Drawing.Size(610, 30)
Me.LayoutControlItem3.Text = "Status"
Me.LayoutControlItem3.TextSize = New System.Drawing.Size(53, 13)
'
'frmServiceConfig
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -177,14 +190,15 @@ Partial Class frmServiceConfig
Me.Text = "IDB Dienst-Konfiguration"
CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).EndInit()
Me.LayoutControl1.ResumeLayout(False)
CType(Me.Root, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtServiceAddress.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtServicePort.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Root, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblStatus, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.EmptySpaceItem1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtStatus.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
@@ -202,5 +216,6 @@ Partial Class frmServiceConfig
Friend WithEvents LayoutControlItem1 As DevExpress.XtraLayout.LayoutControlItem
Friend WithEvents LayoutControlItem2 As DevExpress.XtraLayout.LayoutControlItem
Friend WithEvents EmptySpaceItem1 As DevExpress.XtraLayout.EmptySpaceItem
Friend WithEvents lblStatus As DevExpress.XtraLayout.SimpleLabelItem
Friend WithEvents txtStatus As DevExpress.XtraEditors.TextEdit
Friend WithEvents LayoutControlItem3 As DevExpress.XtraLayout.LayoutControlItem
End Class