MS

GUIs.ZooFlow/Modules/Globix/frmGlobix_Index.Designer.vb

@@ -295,7 +295,9 @@ Partial Class frmGlobix_Index
         '
         'SimpleButton1
         '
-        Me.SimpleButton1.Appearance.Font = New System.Drawing.Font("Segoe UI", 15.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.SimpleButton1.Appearance.BackColor = DevExpress.LookAndFeel.DXSkinColors.FillColors.Primary
+        Me.SimpleButton1.Appearance.Font = New System.Drawing.Font("Segoe UI", 15.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.SimpleButton1.Appearance.Options.UseBackColor = True
         Me.SimpleButton1.Appearance.Options.UseFont = True
         Me.SimpleButton1.Dock = System.Windows.Forms.DockStyle.Fill
         Me.SimpleButton1.ImageOptions.Location = DevExpress.XtraEditors.ImageLocation.MiddleRight

GUIs.ZooFlow/Search/frmFlowSearch1.Designer.vb

@@ -58,8 +58,8 @@ Partial Class frmFlowSearch1
         Me.Label1 = New System.Windows.Forms.Label()
         Me.cmbLimitationDateAttr = New System.Windows.Forms.ComboBox()
         Me.PictureEdit1 = New DevExpress.XtraEditors.PictureEdit()
-        Me.txtSearchInput = New DevExpress.XtraEditors.TextEdit()
         Me.SimpleButton1 = New DevExpress.XtraEditors.SimpleButton()
+        Me.TextEditSearch = New DevExpress.XtraEditors.TextEdit()
         CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.DockManager1, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.DockPanel1.SuspendLayout()
@@ -81,7 +81,7 @@ Partial Class frmFlowSearch1
         CType(Me.ToggleSwitchYear_Last.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.ToggleSwitchYear.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.PictureEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.txtSearchInput.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.TextEditSearch.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
         '
         'RibbonControl1
@@ -94,7 +94,7 @@ Partial Class frmFlowSearch1
         Me.RibbonControl1.Name = "RibbonControl1"
         Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1})
         Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False]
-        Me.RibbonControl1.Size = New System.Drawing.Size(936, 89)
+        Me.RibbonControl1.Size = New System.Drawing.Size(943, 89)
         Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1
         '
         'BarButtonStartSearch
@@ -170,10 +170,10 @@ Partial Class frmFlowSearch1
         'RibbonStatusBar1
         '
         Me.RibbonStatusBar1.ItemLinks.Add(Me.bsiStatus)
-        Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 745)
+        Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 515)
         Me.RibbonStatusBar1.Name = "RibbonStatusBar1"
         Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1
-        Me.RibbonStatusBar1.Size = New System.Drawing.Size(936, 24)
+        Me.RibbonStatusBar1.Size = New System.Drawing.Size(943, 24)
         '
         'RibbonPage2
         '
@@ -197,7 +197,7 @@ Partial Class frmFlowSearch1
         Me.DockPanel1.Location = New System.Drawing.Point(0, 89)
         Me.DockPanel1.Name = "DockPanel1"
         Me.DockPanel1.OriginalSize = New System.Drawing.Size(193, 200)
-        Me.DockPanel1.Size = New System.Drawing.Size(193, 656)
+        Me.DockPanel1.Size = New System.Drawing.Size(193, 426)
         Me.DockPanel1.Text = "Datum"
         '
         'DockPanel1_Container
@@ -207,7 +207,7 @@ Partial Class frmFlowSearch1
         Me.DockPanel1_Container.Controls.Add(Me.cmbLimitationDateAttr)
         Me.DockPanel1_Container.Location = New System.Drawing.Point(3, 40)
         Me.DockPanel1_Container.Name = "DockPanel1_Container"
-        Me.DockPanel1_Container.Size = New System.Drawing.Size(186, 613)
+        Me.DockPanel1_Container.Size = New System.Drawing.Size(186, 383)
         Me.DockPanel1_Container.TabIndex = 0
         '
         'XtraTabControl1
@@ -220,7 +220,7 @@ Partial Class frmFlowSearch1
         Me.XtraTabControl1.Name = "XtraTabControl1"
         Me.XtraTabControl1.SelectedTabPage = Me.XtraTabPage1
         Me.XtraTabControl1.ShowTabHeader = DevExpress.Utils.DefaultBoolean.[True]
-        Me.XtraTabControl1.Size = New System.Drawing.Size(171, 552)
+        Me.XtraTabControl1.Size = New System.Drawing.Size(171, 322)
         Me.XtraTabControl1.TabIndex = 10
         Me.XtraTabControl1.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPage1, Me.XtraTabPage2})
         '
@@ -241,13 +241,13 @@ Partial Class frmFlowSearch1
         Me.XtraTabPage1.Controls.Add(Me.ToggleSwitchYear_Last)
         Me.XtraTabPage1.Controls.Add(Me.ToggleSwitchYear)
         Me.XtraTabPage1.Name = "XtraTabPage1"
-        Me.XtraTabPage1.Size = New System.Drawing.Size(169, 527)
+        Me.XtraTabPage1.Size = New System.Drawing.Size(169, 297)
         Me.XtraTabPage1.Text = "Standard"
         '
         'DateEditTill
         '
         Me.DateEditTill.EditValue = Nothing
-        Me.DateEditTill.Location = New System.Drawing.Point(3, 281)
+        Me.DateEditTill.Location = New System.Drawing.Point(3, 260)
         Me.DateEditTill.MenuManager = Me.RibbonControl1
         Me.DateEditTill.Name = "DateEditTill"
         Me.DateEditTill.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)})
@@ -267,7 +267,7 @@ Partial Class frmFlowSearch1
         '
         'ToggleSwitchDateto
         '
-        Me.ToggleSwitchDateto.Location = New System.Drawing.Point(3, 256)
+        Me.ToggleSwitchDateto.Location = New System.Drawing.Point(3, 235)
         Me.ToggleSwitchDateto.MenuManager = Me.RibbonControl1
         Me.ToggleSwitchDateto.Name = "ToggleSwitchDateto"
         Me.ToggleSwitchDateto.Properties.OffText = "Datum bis"
@@ -277,7 +277,7 @@ Partial Class frmFlowSearch1
         '
         'lblDatefrom
         '
-        Me.lblDatefrom.Location = New System.Drawing.Point(3, 211)
+        Me.lblDatefrom.Location = New System.Drawing.Point(2, 190)
         Me.lblDatefrom.Name = "lblDatefrom"
         Me.lblDatefrom.Size = New System.Drawing.Size(34, 13)
         Me.lblDatefrom.TabIndex = 3
@@ -286,7 +286,7 @@ Partial Class frmFlowSearch1
         'DateEditFrom
         '
         Me.DateEditFrom.EditValue = Nothing
-        Me.DateEditFrom.Location = New System.Drawing.Point(3, 230)
+        Me.DateEditFrom.Location = New System.Drawing.Point(3, 209)
         Me.DateEditFrom.MenuManager = Me.RibbonControl1
         Me.DateEditFrom.Name = "DateEditFrom"
         Me.DateEditFrom.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)})
@@ -370,7 +370,7 @@ Partial Class frmFlowSearch1
         'XtraTabPage2
         '
         Me.XtraTabPage2.Name = "XtraTabPage2"
-        Me.XtraTabPage2.Size = New System.Drawing.Size(169, 527)
+        Me.XtraTabPage2.Size = New System.Drawing.Size(169, 297)
         Me.XtraTabPage2.Text = "...tbd"
         '
         'Label1
@@ -392,11 +392,9 @@ Partial Class frmFlowSearch1
         '
         'PictureEdit1
         '
-        Me.PictureEdit1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
-            Or System.Windows.Forms.AnchorStyles.Left) _
-            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.PictureEdit1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.PictureEdit1.EditValue = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.ZooFlow_CW_DevExpress
-        Me.PictureEdit1.Location = New System.Drawing.Point(709, 537)
+        Me.PictureEdit1.Location = New System.Drawing.Point(716, 307)
         Me.PictureEdit1.MenuManager = Me.RibbonControl1
         Me.PictureEdit1.Name = "PictureEdit1"
         Me.PictureEdit1.Properties.Appearance.BackColor = System.Drawing.SystemColors.Control
@@ -408,39 +406,35 @@ Partial Class frmFlowSearch1
         Me.PictureEdit1.Size = New System.Drawing.Size(215, 202)
         Me.PictureEdit1.TabIndex = 8
         '
-        'txtSearchInput
-        '
-        Me.txtSearchInput.EditValue = ""
-        Me.txtSearchInput.Location = New System.Drawing.Point(206, 95)
-        Me.txtSearchInput.MenuManager = Me.RibbonControl1
-        Me.txtSearchInput.Name = "txtSearchInput"
-        Me.txtSearchInput.Properties.Appearance.Font = New System.Drawing.Font("Segoe UI Semibold", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.txtSearchInput.Properties.Appearance.ForeColor = System.Drawing.Color.FromArgb(CType(CType(165, Byte), Integer), CType(CType(36, Byte), Integer), CType(CType(19, Byte), Integer))
-        Me.txtSearchInput.Properties.Appearance.Options.UseFont = True
-        Me.txtSearchInput.Properties.Appearance.Options.UseForeColor = True
-        Me.txtSearchInput.Properties.NullText = "Suchbegriff eingeben"
-        Me.txtSearchInput.Properties.Padding = New System.Windows.Forms.Padding(10)
-        Me.txtSearchInput.Size = New System.Drawing.Size(673, 46)
-        Me.txtSearchInput.TabIndex = 12
-        '
         'SimpleButton1
         '
+        Me.SimpleButton1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.SimpleButton1.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.ZooFlow_CW_DevExpress
         Me.SimpleButton1.ImageOptions.SvgImageSize = New System.Drawing.Size(40, 40)
-        Me.SimpleButton1.Location = New System.Drawing.Point(878, 95)
+        Me.SimpleButton1.Location = New System.Drawing.Point(885, 95)
         Me.SimpleButton1.Name = "SimpleButton1"
         Me.SimpleButton1.Size = New System.Drawing.Size(46, 46)
         Me.SimpleButton1.TabIndex = 16
         '
+        'TextEditSearch
+        '
+        Me.TextEditSearch.Location = New System.Drawing.Point(199, 95)
+        Me.TextEditSearch.MenuManager = Me.RibbonControl1
+        Me.TextEditSearch.Name = "TextEditSearch"
+        Me.TextEditSearch.Properties.Appearance.Font = New System.Drawing.Font("Segoe UI", 18.0!)
+        Me.TextEditSearch.Properties.Appearance.Options.UseFont = True
+        Me.TextEditSearch.Size = New System.Drawing.Size(680, 38)
+        Me.TextEditSearch.TabIndex = 20
+        '
         'frmFlowSearch1
         '
         Me.Appearance.BackColor = System.Drawing.SystemColors.Control
         Me.Appearance.Options.UseBackColor = True
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(936, 769)
+        Me.ClientSize = New System.Drawing.Size(943, 539)
+        Me.Controls.Add(Me.TextEditSearch)
         Me.Controls.Add(Me.SimpleButton1)
-        Me.Controls.Add(Me.txtSearchInput)
         Me.Controls.Add(Me.PictureEdit1)
         Me.Controls.Add(Me.DockPanel1)
         Me.Controls.Add(Me.RibbonStatusBar1)
@@ -473,7 +467,7 @@ Partial Class frmFlowSearch1
         CType(Me.ToggleSwitchYear_Last.Properties, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.ToggleSwitchYear.Properties, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.PictureEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.txtSearchInput.Properties, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.TextEditSearch.Properties, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ResumeLayout(False)
         Me.PerformLayout()
 
@@ -513,6 +507,6 @@ Partial Class frmFlowSearch1
     Friend WithEvents DateEditTill As DevExpress.XtraEditors.DateEdit
     Friend WithEvents DateEditFrom As DevExpress.XtraEditors.DateEdit
     Friend WithEvents ToggleSwitchDateto As DevExpress.XtraEditors.ToggleSwitch
-    Friend WithEvents txtSearchInput As DevExpress.XtraEditors.TextEdit
     Friend WithEvents SimpleButton1 As DevExpress.XtraEditors.SimpleButton
+    Friend WithEvents TextEditSearch As DevExpress.XtraEditors.TextEdit
 End Class

GUIs.ZooFlow/Search/frmFlowSearch1.vb

@@ -125,7 +125,6 @@ Public Class frmFlowSearch1
             Else
                 cmbLimitationDateAttr.Items.Add(IDB_ADDED_WHEN_String_Englisch)
             End If
-            'Dim oDT As DataTable = My.DatabaseIDB.GetDatatable($"SELECT * FROM VWIDB_BE_ATTRIBUTE WHERE TYPE_ID IN (5,6) AND LANG_ID = {My.Application.User.LanguageId}")
 
             For Each oRow As DataRow In My.Tables.DTIDB_ATTRIBUTE.Rows
                 If CBool(oRow.Item("SYS_ATTRIBUTE")) = False And (oRow.Item("TYP_ID") = 5 Or oRow.Item("TYP_ID") = 6) Then
@@ -163,9 +162,9 @@ Public Class frmFlowSearch1
                 collection.Add(orow.Item("TERM"))
             Next
 
-            txtSearchInput.MaskBox.AutoCompleteSource = AutoCompleteSource.CustomSource
-            txtSearchInput.MaskBox.AutoCompleteMode = AutoCompleteMode.SuggestAppend
-            txtSearchInput.MaskBox.AutoCompleteCustomSource = collection
+            TextEditSearch.MaskBox.AutoCompleteSource = AutoCompleteSource.CustomSource
+            TextEditSearch.MaskBox.AutoCompleteMode = AutoCompleteMode.SuggestAppend
+            TextEditSearch.MaskBox.AutoCompleteCustomSource = collection
 
             TogglesDate = New List(Of ToggleSwitch) From {
                 ToggleSwitchTomorrow,
@@ -190,7 +189,7 @@ Public Class frmFlowSearch1
         Dim oHandle = SplashScreenManager.ShowOverlayForm(Me)
 
         Try
-            Dim oResult = Await SearchRunner.Run(txtSearchInput.Text, DateEditFrom.EditValue, DateEditTill.EditValue)
+            Dim oResult = Await SearchRunner.Run(TextEditSearch.Text, DateEditFrom.EditValue, DateEditTill.EditValue)
             If oResult.OK = False Then
                 bsiStatus.Caption = oResult.ErrorMessage
             End If
@@ -206,29 +205,8 @@ Public Class frmFlowSearch1
 
     End Sub
 
-    Private Async Function txtSearchInput_KeyUp(sender As Object, e As KeyEventArgs) As Threading.Tasks.Task Handles txtSearchInput.KeyUp
-        If e.KeyCode = Keys.Return Then
-            If txtSearchInput.Text = String.Empty Then
-                Return
-            End If
-
-            Dim oHandle = SplashScreenManager.ShowOverlayForm(Me)
-
-            Try
-                Dim oResult = Await SearchRunner.Run(txtSearchInput.Text, DateEditFrom.EditValue, DateEditTill.EditValue)
-                If oResult.OK = False Then
-                    bsiStatus.Caption = oResult.ErrorMessage
-                End If
-            Catch ex As Exception
-                Logger.Error(ex)
-            Finally
-                SplashScreenManager.CloseOverlayForm(oHandle)
-            End Try
-        End If
-    End Function
-
     Private Sub BarButtonReset_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonReset.ItemClick
-        txtSearchInput.Text = ""
+        TextEditSearch.Text = ""
         ResetTogglesDate()
         ToggleSwitchDateto.IsOn = False
         SearchRunner.ExplicitDate = False
@@ -255,10 +233,13 @@ Public Class frmFlowSearch1
     End Sub
 
     Private Async Sub SimpleButton1_Click(sender As Object, e As EventArgs) Handles SimpleButton1.Click
+        RunSearch()
+    End Sub
+    Private Async Sub RunSearch()
         Dim oHandle = SplashScreenManager.ShowOverlayForm(Me)
 
         Try
-            Dim oResult = Await SearchRunner.Run(txtSearchInput.Text, DateEditFrom.EditValue, DateEditTill.EditValue)
+            Dim oResult = Await SearchRunner.Run(TextEditSearch.Text, DateEditFrom.EditValue, DateEditTill.EditValue)
             If oResult.OK = False Then
                 bsiStatus.Caption = oResult.ErrorMessage
             End If
@@ -268,4 +249,18 @@ Public Class frmFlowSearch1
             SplashScreenManager.CloseOverlayForm(oHandle)
         End Try
     End Sub
+
+    Private Sub TextEditSearch_KeyUp(sender As Object, e As KeyEventArgs) Handles TextEditSearch.KeyUp
+        If e.KeyCode = Keys.Return Then
+            If TextEditSearch.Text = String.Empty Then
+                Return
+            End If
+
+            RunSearch()
+        End If
+    End Sub
+
+    Private Sub PictureEdit1_Click(sender As Object, e As EventArgs) Handles PictureEdit1.Click
+        RunSearch()
+    End Sub
 End Class

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

GUIs.ZooFlow/frmServiceConfig.vb

@@ -19,11 +19,13 @@ Public Class frmServiceConfig
             txtServiceAddress.Text = oAddress.Item1
             txtServicePort.Text = oAddress.Item2
         End If
-
-        If My.Application.Service.Client.IsOnline Then
-            txtStatus.Text = STATUS_CONNECTED
+        If Not IsNothing(My.Application.Service.Client) Then
+            If My.Application.Service.Client.IsOnline Then
+                txtStatus.Text = STATUS_CONNECTED
+            End If
         End If
 
+
         txtServiceAddress.Focus()
     End Sub
 

GUIs.ZooFlow/frmtest.Designer.vb

@@ -38,6 +38,7 @@ Partial Class frmtest
         Me.txtIDB_OBJ_ID = New System.Windows.Forms.TextBox()
         Me.txtDoctypeID = New System.Windows.Forms.TextBox()
         Me.Label3 = New System.Windows.Forms.Label()
+        Me.Button1 = New System.Windows.Forms.Button()
         Me.SuspendLayout()
         '
         'Label2
@@ -172,11 +173,21 @@ Partial Class frmtest
         Me.Label3.TabIndex = 23
         Me.Label3.Text = "DoctypeID"
         '
+        'Button1
+        '
+        Me.Button1.Location = New System.Drawing.Point(12, 191)
+        Me.Button1.Name = "Button1"
+        Me.Button1.Size = New System.Drawing.Size(154, 23)
+        Me.Button1.TabIndex = 24
+        Me.Button1.Text = "AdhocWorkflow"
+        Me.Button1.UseVisualStyleBackColor = True
+        '
         'frmtest
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.ClientSize = New System.Drawing.Size(865, 450)
+        Me.Controls.Add(Me.Button1)
         Me.Controls.Add(Me.Label3)
         Me.Controls.Add(Me.txtDoctypeID)
         Me.Controls.Add(Me.txtProfileId)
@@ -214,4 +225,5 @@ Partial Class frmtest
     Friend WithEvents txtProfileId As TextBox
     Friend WithEvents txtDoctypeID As TextBox
     Friend WithEvents Label3 As Label
+    Friend WithEvents Button1 As Button
 End Class

GUIs.ZooFlow/frmtest.vb

@@ -1,9 +1,14 @@
 Imports DigitalData.Modules.EDMI.API.EDMIServiceReference
 Imports DigitalData.Modules.Base.IDB.FileStore
+Imports DigitalData.GUIs.Common
+Imports DigitalData.Modules.ZooFlow
 
 Public Class frmtest
+    Private Property Environment As Environment
+
     Private Sub frmtest_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         cmbObjectStoreType.SelectedIndex = 0
+        Environment = My.Application.GetEnvironment()
     End Sub
 
     Private Sub btnOpenFile_Click(sender As Object, e As EventArgs) Handles btnOpenFile.Click
@@ -66,4 +71,11 @@ Public Class frmtest
 
 
     End Sub
+
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+        Dim oForm As New frmWorkflow_Adhoc_start(My.LogConfig, Environment, 4711)
+        oForm.Show()
+        oForm.BringToFront()
+        oForm.Focus()
+    End Sub
 End Class