DocumentResultList: Layout et al

GUIs.ZooFlow/frmFlowForm.vb

@@ -150,7 +150,7 @@ Public Class frmFlowForm
         Me.Height = System.Windows.Forms.Screen.PrimaryScreen.Bounds.Height - TaskBarHeight
     End Sub
 #End Region
-
+#Region "Form Variables"
     ' Constants
     Private Const OPACITY_INITIAL = 0
     Private Const OPACITY_FINAL = 1
@@ -195,6 +195,7 @@ Public Class frmFlowForm
     Public Event ClipboardChanged As EventHandler(Of IDataObject)
     Private WithEvents HotkeyClass As Hotkey
     Private WithEvents Watcher As Watcher = Watcher.Singleton
+#End Region
 
     Private Sub frmFlowForm_Load(sender As Object, e As EventArgs) Handles Me.Load
         ' === Set Form ===
@@ -325,9 +326,9 @@ Public Class frmFlowForm
 
                 Init_Folderwatch()
                 Folderwatch_CheckFiles()
-                BarButtonItemGlobixGE.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
+                btnGlobixConfig.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
             Else
-                BarButtonItemGlobixGE.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
+                btnGlobixConfig.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
             End If
 
 
@@ -1216,31 +1217,20 @@ Public Class frmFlowForm
             End Try
         End If
     End Function
-    Private Async Function PictureEdit1_Click(sender As Object, e As EventArgs) As Task Handles PictureBoxSearch.Click
-        If txtQuicksearch1.Text = String.Empty Then
-            Open_FlowSearch()
-            Return
 
-        Else
-            Await CheckRunSearch1()
-
-        End If
-
-    End Function
-
-    Private Sub buttonExitZooflow_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles buttonExitZooflow.ItemClick
+    Private Sub buttonExitZooflow_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles btnExitZooflow.ItemClick
         ExitZooflow()
     End Sub
 
-    Private Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem1.ItemClick
+    Private Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles btnRestartZooflow.ItemClick
         Application.Restart()
     End Sub
 
-    Private Sub BarButtonItem6_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem6.ItemClick
+    Private Sub BarButtonItem6_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles btnServiceConfig.ItemClick
         frmServiceConfig.ShowDialog()
     End Sub
 
-    Private Sub BarButtonItem7_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem7.ItemClick
+    Private Sub BarButtonItem7_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles btnDatabaseConfig.ItemClick
         Dim oForm As New frmSQLConfig(My.LogConfig) With {
             .ConnectionString = My.SystemConfig.ConnectionString,
             .FormTitle = "ECM Datenbank"
@@ -1253,15 +1243,25 @@ Public Class frmFlowForm
         End If
     End Sub
 
-    Private Async Sub BarButtonItem8_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem8.ItemClick
+    Private Async Sub BarButtonItem8_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles btnBasicConfig.ItemClick
         frmConfigBasic.ShowDialog()
         Await ConfigureQuicksearch1(True)
     End Sub
 
-    Private Sub BarButtonItem9_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItemGlobixGE.ItemClick
+    Private Sub BarButtonItem9_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles btnGlobixConfig.ItemClick
         frmGlobixBasicConfig.ShowDialog()
     End Sub
 
+
+
+    Private Sub PictureBoxSearch_MouseEnter(sender As Object, e As EventArgs) Handles PictureBoxSearch.MouseEnter
+        PictureBoxSearch.SvgImage = My.Resources.FLOW_Sidebar_Search_aktiv
+    End Sub
+
+    Private Sub PictureBoxSearch_MouseLeave(sender As Object, e As EventArgs) Handles PictureBoxSearch.MouseLeave
+        PictureBoxSearch.SvgImage = My.Resources.FLOW_Sidebar_Search_inaktiv
+    End Sub
+
     Private Sub PictureBoxPM_Click(sender As Object, e As EventArgs) Handles PictureBoxPM.Click
         Try
             Dim oProcessManagerPath = Modules.GetProductPath(DigitalData.Modules.Base.ECM.Product.ProcessManager)
@@ -1273,14 +1273,6 @@ Public Class frmFlowForm
         End Try
     End Sub
 
-    Private Sub PictureBoxSearch_MouseEnter(sender As Object, e As EventArgs) Handles PictureBoxSearch.MouseEnter
-        PictureBoxSearch.SvgImage = My.Resources.FLOW_Sidebar_Search_aktiv
-    End Sub
-
-    Private Sub PictureBoxSearch_MouseLeave(sender As Object, e As EventArgs) Handles PictureBoxSearch.MouseLeave
-        PictureBoxSearch.SvgImage = My.Resources.FLOW_Sidebar_Search_inaktiv
-    End Sub
-
     Private Sub PictureBoxPM_MouseEnter(sender As Object, e As EventArgs) Handles PictureBoxPM.MouseEnter
         PictureBoxPM.SvgImage = My.Resources.FLOW_Sidebar_Task_aktiv
     End Sub
@@ -1289,16 +1281,8 @@ Public Class frmFlowForm
         PictureBoxPM.SvgImage = My.Resources.FLOW_Sidebar_Task_inaktiv
     End Sub
 
-    Private Sub TimerRefreshData_Tick_1(sender As Object, e As EventArgs) Handles TimerRefreshData.Tick
-        TaskBadge.Properties.Text = Date.Now.Millisecond.ToString.Last
-    End Sub
-
     Private Async Sub PictureEditQuicksearch1_Click(sender As Object, e As EventArgs) Handles PictureEditQuicksearch1.Click
         Await CheckRunSearch1()
     End Sub
-
-    Private Sub PictureEditQuicksearch1_EditValueChanged(sender As Object, e As EventArgs) Handles PictureEditQuicksearch1.EditValueChanged
-
-    End Sub
 End Class