MS

2022-04-28 16:27:55 +02:00
parent abc4d664a0
commit b8a3325c2f
12 changed files with 635 additions and 111 deletions
--- a/GUIs.ZooFlow/frmServiceConfig.Designer.vb
+++ b/GUIs.ZooFlow/frmServiceConfig.Designer.vb
@@ -28,32 +28,32 @@ Partial Class frmServiceConfig
        Me.btnOK = New DevExpress.XtraBars.BarButtonItem()
        Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage()
        Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
-        Me.txtServicePort = New DevExpress.XtraEditors.SpinEdit()
+        Me.txtStatus = New DevExpress.XtraEditors.TextEdit()
        Me.Root = New DevExpress.XtraLayout.LayoutControlGroup()
        Me.LayoutControlItem1 = New DevExpress.XtraLayout.LayoutControlItem()
        Me.LayoutControlItem2 = New DevExpress.XtraLayout.LayoutControlItem()
        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()
+        Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage()
+        Me.txtServicePort = New DevExpress.XtraEditors.TextEdit()
        CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.LayoutControl1.SuspendLayout()
        CType(Me.txtServiceAddress.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.txtServicePort.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtStatus.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.EmptySpaceItem1, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.txtStatus.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtServicePort.Properties, 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.Controls.Add(Me.txtServicePort)
        Me.LayoutControl1.Dock = System.Windows.Forms.DockStyle.Fill
        Me.LayoutControl1.Location = New System.Drawing.Point(0, 63)
        Me.LayoutControl1.Name = "LayoutControl1"
@@ -105,16 +105,15 @@ Partial Class frmServiceConfig
        Me.RibbonPageGroup1.Name = "RibbonPageGroup1"
        Me.RibbonPageGroup1.Text = "RibbonPageGroup1"
        '
-        'txtServicePort
+        'txtStatus
        '
-        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
+        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
        '
        'Root
        '
@@ -153,21 +152,6 @@ Partial Class frmServiceConfig
        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
@@ -178,6 +162,23 @@ Partial Class frmServiceConfig
        Me.LayoutControlItem3.Text = "Status"
        Me.LayoutControlItem3.TextSize = New System.Drawing.Size(53, 13)
        '
+        'RibbonPage2
+        '
+        Me.RibbonPage2.Name = "RibbonPage2"
+        Me.RibbonPage2.Text = "RibbonPage2"
+        '
+        'txtServicePort
+        '
+        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.EditValueChangedFiringMode = DevExpress.XtraEditors.Controls.EditValueChangedFiringMode.Buffered
+        Me.txtServicePort.Properties.Mask.MaskType = DevExpress.XtraEditors.Mask.MaskType.Numeric
+        Me.txtServicePort.Size = New System.Drawing.Size(485, 20)
+        Me.txtServicePort.StyleController = Me.LayoutControl1
+        Me.txtServicePort.TabIndex = 5
+        '
        'frmServiceConfig
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -192,13 +193,13 @@ Partial Class frmServiceConfig
        Me.LayoutControl1.ResumeLayout(False)
        CType(Me.txtServiceAddress.Properties, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.txtServicePort.Properties, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtStatus.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.EmptySpaceItem1, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.txtStatus.Properties, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtServicePort.Properties, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)
        Me.PerformLayout()

@@ -212,10 +213,10 @@ Partial Class frmServiceConfig
    Friend WithEvents RibbonPage2 As DevExpress.XtraBars.Ribbon.RibbonPage
    Friend WithEvents btnOK As DevExpress.XtraBars.BarButtonItem
    Friend WithEvents txtServiceAddress As DevExpress.XtraEditors.TextEdit
-    Friend WithEvents txtServicePort As DevExpress.XtraEditors.SpinEdit
    Friend WithEvents LayoutControlItem1 As DevExpress.XtraLayout.LayoutControlItem
    Friend WithEvents LayoutControlItem2 As DevExpress.XtraLayout.LayoutControlItem
    Friend WithEvents EmptySpaceItem1 As DevExpress.XtraLayout.EmptySpaceItem
    Friend WithEvents txtStatus As DevExpress.XtraEditors.TextEdit
    Friend WithEvents LayoutControlItem3 As DevExpress.XtraLayout.LayoutControlItem
+    Friend WithEvents txtServicePort As DevExpress.XtraEditors.TextEdit
 End Class