DocumentResultList: Layout et al

2022-03-21 16:35:01 +01:00
parent 9ff649e793
commit 53e702374b
12 changed files with 414 additions and 231 deletions
--- a/GUIs.ZooFlow/ClassInit.vb
+++ b/GUIs.ZooFlow/ClassInit.vb
@@ -258,6 +258,7 @@ Public Class ClassInit
            Throw New InitException("Error in InitBasicData", ex)
        End Try
    End Sub
+
 #End Region

    Private Function SetupDatabase() As Boolean
--- a/GUIs.ZooFlow/frmFlowForm.Designer.vb
+++ b/GUIs.ZooFlow/frmFlowForm.Designer.vb
@@ -47,12 +47,12 @@ Partial Class frmFlowForm
        Me.BarManager1 = New DevExpress.XtraBars.BarManager(Me.components)
        Me.Bar3 = New DevExpress.XtraBars.Bar()
        Me.BarSubItem1 = New DevExpress.XtraBars.BarSubItem()
-        Me.BarButtonItem8 = New DevExpress.XtraBars.BarButtonItem()
-        Me.BarButtonItemGlobixGE = New DevExpress.XtraBars.BarButtonItem()
-        Me.BarButtonItem6 = New DevExpress.XtraBars.BarButtonItem()
-        Me.BarButtonItem7 = New DevExpress.XtraBars.BarButtonItem()
-        Me.BarButtonItem1 = New DevExpress.XtraBars.BarButtonItem()
-        Me.buttonExitZooflow = New DevExpress.XtraBars.BarButtonItem()
+        Me.btnBasicConfig = New DevExpress.XtraBars.BarButtonItem()
+        Me.btnGlobixConfig = New DevExpress.XtraBars.BarButtonItem()
+        Me.btnServiceConfig = New DevExpress.XtraBars.BarButtonItem()
+        Me.btnDatabaseConfig = New DevExpress.XtraBars.BarButtonItem()
+        Me.btnRestartZooflow = New DevExpress.XtraBars.BarButtonItem()
+        Me.btnExitZooflow = New DevExpress.XtraBars.BarButtonItem()
        Me.barDockControlTop = New DevExpress.XtraBars.BarDockControl()
        Me.barDockControlBottom = New DevExpress.XtraBars.BarDockControl()
        Me.barDockControlLeft = New DevExpress.XtraBars.BarDockControl()
@@ -62,13 +62,12 @@ Partial Class frmFlowForm
        Me.BarButtonItem4 = New DevExpress.XtraBars.BarButtonItem()
        Me.BarButtonItem5 = New DevExpress.XtraBars.BarButtonItem()
        Me.lblQuicksearch1 = New DevExpress.XtraEditors.LabelControl()
+        Me.Panel3 = New System.Windows.Forms.Panel()
        Me.Panel1 = New System.Windows.Forms.Panel()
        Me.PictureEdit2 = New DevExpress.XtraEditors.PictureEdit()
        Me.Panel2 = New System.Windows.Forms.Panel()
-        Me.PopupMenu1 = New DevExpress.XtraBars.PopupMenu(Me.components)
        Me.AdornerUIManager1 = New DevExpress.Utils.VisualEffects.AdornerUIManager(Me.components)
        Me.TaskBadge = New DevExpress.Utils.VisualEffects.Badge()
-        Me.Panel3 = New System.Windows.Forms.Panel()
        Me.ContextMenuSystray.SuspendLayout()
        CType(Me.PictureBoxPM, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.PictureBoxSearch, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -79,7 +78,6 @@ Partial Class frmFlowForm
        Me.Panel1.SuspendLayout()
        CType(Me.PictureEdit2.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.Panel2.SuspendLayout()
-        CType(Me.PopupMenu1, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.AdornerUIManager1, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.SuspendLayout()
        '
@@ -134,17 +132,14 @@ Partial Class frmFlowForm
        Me.ZooFlowBeendenToolStripMenuItem.Size = New System.Drawing.Size(169, 22)
        Me.ZooFlowBeendenToolStripMenuItem.Text = "ZooFlow beenden"
        '
-        'TimerRefreshData
-        '
-        '
        'PictureBoxPM
        '
        Me.PictureBoxPM.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.PictureBoxPM.Cursor = System.Windows.Forms.Cursors.Hand
        Me.PictureBoxPM.ItemHitTestType = DevExpress.XtraEditors.ItemHitTestType.BoundingBox
-        Me.PictureBoxPM.Location = New System.Drawing.Point(21, 22)
+        Me.PictureBoxPM.Location = New System.Drawing.Point(21, 6)
        Me.PictureBoxPM.Name = "PictureBoxPM"
-        Me.PictureBoxPM.Size = New System.Drawing.Size(158, 58)
+        Me.PictureBoxPM.Size = New System.Drawing.Size(158, 50)
        Me.PictureBoxPM.SizeMode = DevExpress.XtraEditors.SvgImageSizeMode.Zoom
        Me.PictureBoxPM.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.FLOW_Sidebar_Task_inaktiv
        Me.PictureBoxPM.TabIndex = 14
@@ -153,12 +148,13 @@ Partial Class frmFlowForm
        '
        'PictureBoxSearch
        '
-        Me.PictureBoxSearch.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.PictureBoxSearch.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.PictureBoxSearch.Cursor = System.Windows.Forms.Cursors.Hand
        Me.PictureBoxSearch.ItemHitTestType = DevExpress.XtraEditors.ItemHitTestType.BoundingBox
-        Me.PictureBoxSearch.Location = New System.Drawing.Point(21, 226)
+        Me.PictureBoxSearch.Location = New System.Drawing.Point(21, 280)
        Me.PictureBoxSearch.Name = "PictureBoxSearch"
-        Me.PictureBoxSearch.Size = New System.Drawing.Size(158, 49)
+        Me.PictureBoxSearch.Size = New System.Drawing.Size(158, 50)
        Me.PictureBoxSearch.SizeMode = DevExpress.XtraEditors.SvgImageSizeMode.Zoom
        Me.PictureBoxSearch.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.FLOW_Sidebar_Search_inaktiv
        Me.PictureBoxSearch.TabIndex = 13
@@ -172,14 +168,13 @@ Partial Class frmFlowForm
        'pnlQuicksearch1
        '
        Me.pnlQuicksearch1.BackColor = System.Drawing.Color.White
-        Me.pnlQuicksearch1.Controls.Add(Me.Panel3)
        Me.pnlQuicksearch1.Controls.Add(Me.txtQuicksearch1)
        Me.pnlQuicksearch1.Controls.Add(Me.PictureEditQuicksearch1)
        Me.pnlQuicksearch1.Controls.Add(Me.lblQuicksearch1)
        Me.pnlQuicksearch1.Dock = System.Windows.Forms.DockStyle.Bottom
-        Me.pnlQuicksearch1.Location = New System.Drawing.Point(0, 333)
+        Me.pnlQuicksearch1.Location = New System.Drawing.Point(0, 335)
        Me.pnlQuicksearch1.Name = "pnlQuicksearch1"
-        Me.pnlQuicksearch1.Size = New System.Drawing.Size(202, 77)
+        Me.pnlQuicksearch1.Size = New System.Drawing.Size(202, 75)
        Me.pnlQuicksearch1.TabIndex = 16
        Me.pnlQuicksearch1.Visible = False
        '
@@ -187,26 +182,27 @@ Partial Class frmFlowForm
        '
        Me.txtQuicksearch1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.txtQuicksearch1.Location = New System.Drawing.Point(21, 40)
+        Me.txtQuicksearch1.Location = New System.Drawing.Point(21, 29)
        Me.txtQuicksearch1.Name = "txtQuicksearch1"
        Me.txtQuicksearch1.Properties.Appearance.BackColor = System.Drawing.Color.LightGray
        Me.txtQuicksearch1.Properties.Appearance.Font = New System.Drawing.Font("Segoe UI", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.txtQuicksearch1.Properties.Appearance.Options.UseBackColor = True
        Me.txtQuicksearch1.Properties.Appearance.Options.UseFont = True
        Me.txtQuicksearch1.Properties.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder
-        Me.txtQuicksearch1.Size = New System.Drawing.Size(135, 26)
+        Me.txtQuicksearch1.Properties.NullText = "Schnellsuche"
+        Me.txtQuicksearch1.Size = New System.Drawing.Size(124, 26)
        Me.txtQuicksearch1.TabIndex = 1
        '
        'PictureEditQuicksearch1
        '
        Me.PictureEditQuicksearch1.EditValue = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.ZooFlow_Sidebar_individuelle_suche
-        Me.PictureEditQuicksearch1.Location = New System.Drawing.Point(138, 42)
+        Me.PictureEditQuicksearch1.Location = New System.Drawing.Point(151, 27)
        Me.PictureEditQuicksearch1.MenuManager = Me.BarManager1
        Me.PictureEditQuicksearch1.Name = "PictureEditQuicksearch1"
        Me.PictureEditQuicksearch1.Properties.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder
        Me.PictureEditQuicksearch1.Properties.ShowCameraMenuItem = DevExpress.XtraEditors.Controls.CameraMenuItemVisibility.[Auto]
        Me.PictureEditQuicksearch1.Properties.SizeMode = DevExpress.XtraEditors.Controls.PictureSizeMode.Zoom
-        Me.PictureEditQuicksearch1.Size = New System.Drawing.Size(64, 24)
+        Me.PictureEditQuicksearch1.Size = New System.Drawing.Size(28, 28)
        Me.PictureEditQuicksearch1.TabIndex = 17
        '
        'BarManager1
@@ -217,7 +213,7 @@ Partial Class frmFlowForm
        Me.BarManager1.DockControls.Add(Me.barDockControlLeft)
        Me.BarManager1.DockControls.Add(Me.barDockControlRight)
        Me.BarManager1.Form = Me
-        Me.BarManager1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.BarSubItem1, Me.buttonExitZooflow, Me.BarButtonItem2, Me.BarButtonItem3, Me.BarButtonItem4, Me.BarButtonItem5, Me.BarButtonItem1, Me.BarButtonItem6, Me.BarButtonItem7, Me.BarButtonItem8, Me.BarButtonItemGlobixGE})
+        Me.BarManager1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.BarSubItem1, Me.btnExitZooflow, Me.BarButtonItem2, Me.BarButtonItem3, Me.BarButtonItem4, Me.BarButtonItem5, Me.btnRestartZooflow, Me.btnServiceConfig, Me.btnDatabaseConfig, Me.btnBasicConfig, Me.btnGlobixConfig})
        Me.BarManager1.MaxItemId = 11
        Me.BarManager1.StatusBar = Me.Bar3
        '
@@ -243,51 +239,51 @@ Partial Class frmFlowForm
        Me.BarSubItem1.Caption = "Menu"
        Me.BarSubItem1.Id = 0
        Me.BarSubItem1.ImageOptions.SvgImage = CType(resources.GetObject("BarSubItem1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
-        Me.BarSubItem1.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(Me.BarButtonItem8), New DevExpress.XtraBars.LinkPersistInfo(Me.BarButtonItemGlobixGE), New DevExpress.XtraBars.LinkPersistInfo(Me.BarButtonItem6), New DevExpress.XtraBars.LinkPersistInfo(Me.BarButtonItem7), New DevExpress.XtraBars.LinkPersistInfo(Me.BarButtonItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.buttonExitZooflow)})
+        Me.BarSubItem1.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(Me.btnBasicConfig), New DevExpress.XtraBars.LinkPersistInfo(Me.btnGlobixConfig), New DevExpress.XtraBars.LinkPersistInfo(Me.btnServiceConfig), New DevExpress.XtraBars.LinkPersistInfo(Me.btnDatabaseConfig), New DevExpress.XtraBars.LinkPersistInfo(Me.btnRestartZooflow), New DevExpress.XtraBars.LinkPersistInfo(Me.btnExitZooflow)})
        Me.BarSubItem1.Name = "BarSubItem1"
        Me.BarSubItem1.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph
        '
-        'BarButtonItem8
+        'btnBasicConfig
        '
-        Me.BarButtonItem8.Caption = "Grundeinstellungen"
-        Me.BarButtonItem8.Id = 9
-        Me.BarButtonItem8.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.properties
-        Me.BarButtonItem8.Name = "BarButtonItem8"
+        Me.btnBasicConfig.Caption = "Grundeinstellungen"
+        Me.btnBasicConfig.Id = 9
+        Me.btnBasicConfig.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.properties
+        Me.btnBasicConfig.Name = "btnBasicConfig"
        '
-        'BarButtonItemGlobixGE
+        'btnGlobixConfig
        '
-        Me.BarButtonItemGlobixGE.Caption = "Grundeinstellungen Globix"
-        Me.BarButtonItemGlobixGE.Id = 10
-        Me.BarButtonItemGlobixGE.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItemGlobixGE.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
-        Me.BarButtonItemGlobixGE.Name = "BarButtonItemGlobixGE"
+        Me.btnGlobixConfig.Caption = "Grundeinstellungen Globix"
+        Me.btnGlobixConfig.Id = 10
+        Me.btnGlobixConfig.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItemGlobixGE.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
+        Me.btnGlobixConfig.Name = "btnGlobixConfig"
        '
-        'BarButtonItem6
+        'btnServiceConfig
        '
-        Me.BarButtonItem6.Caption = "Dienstkonfiguration"
-        Me.BarButtonItem6.Id = 7
-        Me.BarButtonItem6.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.servermode
-        Me.BarButtonItem6.Name = "BarButtonItem6"
+        Me.btnServiceConfig.Caption = "Dienstkonfiguration"
+        Me.btnServiceConfig.Id = 7
+        Me.btnServiceConfig.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.servermode
+        Me.btnServiceConfig.Name = "btnServiceConfig"
        '
-        'BarButtonItem7
+        'btnDatabaseConfig
        '
-        Me.BarButtonItem7.Caption = "Datenbankkonfiguration"
-        Me.BarButtonItem7.Id = 8
-        Me.BarButtonItem7.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.managedatasource2
-        Me.BarButtonItem7.Name = "BarButtonItem7"
+        Me.btnDatabaseConfig.Caption = "Datenbankkonfiguration"
+        Me.btnDatabaseConfig.Id = 8
+        Me.btnDatabaseConfig.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.managedatasource2
+        Me.btnDatabaseConfig.Name = "btnDatabaseConfig"
        '
-        'BarButtonItem1
+        'btnRestartZooflow
        '
-        Me.BarButtonItem1.Caption = "Zooflow neustarten"
-        Me.BarButtonItem1.Id = 6
-        Me.BarButtonItem1.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.actions_refresh
-        Me.BarButtonItem1.Name = "BarButtonItem1"
+        Me.btnRestartZooflow.Caption = "Zooflow neustarten"
+        Me.btnRestartZooflow.Id = 6
+        Me.btnRestartZooflow.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.actions_refresh
+        Me.btnRestartZooflow.Name = "btnRestartZooflow"
        '
-        'buttonExitZooflow
+        'btnExitZooflow
        '
-        Me.buttonExitZooflow.Caption = "Zooflow beenden"
-        Me.buttonExitZooflow.Id = 1
-        Me.buttonExitZooflow.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.cancel
-        Me.buttonExitZooflow.Name = "buttonExitZooflow"
+        Me.btnExitZooflow.Caption = "Zooflow beenden"
+        Me.btnExitZooflow.Id = 1
+        Me.btnExitZooflow.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.cancel
+        Me.btnExitZooflow.Name = "btnExitZooflow"
        '
        'barDockControlTop
        '
@@ -353,12 +349,23 @@ Partial Class frmFlowForm
            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.lblQuicksearch1.Appearance.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.lblQuicksearch1.Appearance.Options.UseFont = True
-        Me.lblQuicksearch1.Location = New System.Drawing.Point(21, 19)
+        Me.lblQuicksearch1.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None
+        Me.lblQuicksearch1.Location = New System.Drawing.Point(21, 3)
        Me.lblQuicksearch1.Name = "lblQuicksearch1"
-        Me.lblQuicksearch1.Size = New System.Drawing.Size(69, 15)
+        Me.lblQuicksearch1.Size = New System.Drawing.Size(158, 18)
        Me.lblQuicksearch1.TabIndex = 0
        Me.lblQuicksearch1.Text = "Schnellsuche"
        '
+        'Panel3
+        '
+        Me.Panel3.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Panel3.BackColor = System.Drawing.Color.FromArgb(CType(CType(165, Byte), Integer), CType(CType(36, Byte), Integer), CType(CType(49, Byte), Integer))
+        Me.Panel3.Location = New System.Drawing.Point(21, 272)
+        Me.Panel3.Name = "Panel3"
+        Me.Panel3.Size = New System.Drawing.Size(158, 2)
+        Me.Panel3.TabIndex = 17
+        '
        'Panel1
        '
        Me.Panel1.Controls.Add(Me.PictureEdit2)
@@ -384,6 +391,7 @@ Partial Class frmFlowForm
        'Panel2
        '
        Me.Panel2.Controls.Add(Me.PictureBoxPM)
+        Me.Panel2.Controls.Add(Me.Panel3)
        Me.Panel2.Controls.Add(Me.pnlQuicksearch1)
        Me.Panel2.Controls.Add(Me.PictureBoxSearch)
        Me.Panel2.Dock = System.Windows.Forms.DockStyle.Fill
@@ -392,11 +400,6 @@ Partial Class frmFlowForm
        Me.Panel2.Size = New System.Drawing.Size(202, 410)
        Me.Panel2.TabIndex = 17
        '
-        'PopupMenu1
-        '
-        Me.PopupMenu1.Manager = Me.BarManager1
-        Me.PopupMenu1.Name = "PopupMenu1"
-        '
        'AdornerUIManager1
        '
        Me.AdornerUIManager1.Elements.Add(Me.TaskBadge)
@@ -406,21 +409,13 @@ Partial Class frmFlowForm
        '
        Me.TaskBadge.Appearance.BackColor = System.Drawing.Color.FromArgb(CType(CType(165, Byte), Integer), CType(CType(36, Byte), Integer), CType(CType(49, Byte), Integer))
        Me.TaskBadge.Appearance.Options.UseBackColor = True
-        Me.TaskBadge.Properties.Location = System.Drawing.ContentAlignment.TopRight
-        Me.TaskBadge.Properties.Offset = New System.Drawing.Point(-5, -5)
+        Me.TaskBadge.Properties.Location = System.Drawing.ContentAlignment.BottomRight
+        Me.TaskBadge.Properties.Offset = New System.Drawing.Point(0, 0)
        Me.TaskBadge.Properties.PaintStyle = DevExpress.Utils.VisualEffects.BadgePaintStyle.[Default]
        Me.TaskBadge.Properties.Text = "0"
        Me.TaskBadge.TargetElement = Me.PictureBoxPM
        Me.TaskBadge.TargetElementRegion = DevExpress.Utils.VisualEffects.TargetElementRegion.Control
        '
-        'Panel3
-        '
-        Me.Panel3.BackColor = System.Drawing.Color.Black
-        Me.Panel3.Location = New System.Drawing.Point(21, 3)
-        Me.Panel3.Name = "Panel3"
-        Me.Panel3.Size = New System.Drawing.Size(158, 10)
-        Me.Panel3.TabIndex = 17
-        '
        'frmFlowForm
        '
        Me.AllowDrop = True
@@ -448,14 +443,12 @@ Partial Class frmFlowForm
        CType(Me.PictureBoxPM, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.PictureBoxSearch, System.ComponentModel.ISupportInitialize).EndInit()
        Me.pnlQuicksearch1.ResumeLayout(False)
-        Me.pnlQuicksearch1.PerformLayout()
        CType(Me.txtQuicksearch1.Properties, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.PictureEditQuicksearch1.Properties, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.BarManager1, System.ComponentModel.ISupportInitialize).EndInit()
        Me.Panel1.ResumeLayout(False)
        CType(Me.PictureEdit2.Properties, System.ComponentModel.ISupportInitialize).EndInit()
        Me.Panel2.ResumeLayout(False)
-        CType(Me.PopupMenu1, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.AdornerUIManager1, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)
        Me.PerformLayout()
@@ -478,11 +471,10 @@ Partial Class frmFlowForm
    Friend WithEvents txtQuicksearch1 As TextEdit
    Friend WithEvents lblQuicksearch1 As LabelControl
    Friend WithEvents Panel1 As Panel
-    Friend WithEvents PopupMenu1 As DevExpress.XtraBars.PopupMenu
    Friend WithEvents BarManager1 As DevExpress.XtraBars.BarManager
    Friend WithEvents Bar3 As DevExpress.XtraBars.Bar
    Friend WithEvents BarSubItem1 As DevExpress.XtraBars.BarSubItem
-    Friend WithEvents buttonExitZooflow As DevExpress.XtraBars.BarButtonItem
+    Friend WithEvents btnExitZooflow As DevExpress.XtraBars.BarButtonItem
    Friend WithEvents barDockControlTop As DevExpress.XtraBars.BarDockControl
    Friend WithEvents barDockControlBottom As DevExpress.XtraBars.BarDockControl
    Friend WithEvents barDockControlLeft As DevExpress.XtraBars.BarDockControl
@@ -491,12 +483,12 @@ Partial Class frmFlowForm
    Friend WithEvents BarButtonItem3 As DevExpress.XtraBars.BarButtonItem
    Friend WithEvents BarButtonItem4 As DevExpress.XtraBars.BarButtonItem
    Friend WithEvents BarButtonItem5 As DevExpress.XtraBars.BarButtonItem
-    Friend WithEvents BarButtonItem1 As DevExpress.XtraBars.BarButtonItem
-    Friend WithEvents BarButtonItem6 As DevExpress.XtraBars.BarButtonItem
-    Friend WithEvents BarButtonItem7 As DevExpress.XtraBars.BarButtonItem
-    Friend WithEvents BarButtonItem8 As DevExpress.XtraBars.BarButtonItem
+    Friend WithEvents btnRestartZooflow As DevExpress.XtraBars.BarButtonItem
+    Friend WithEvents btnServiceConfig As DevExpress.XtraBars.BarButtonItem
+    Friend WithEvents btnDatabaseConfig As DevExpress.XtraBars.BarButtonItem
+    Friend WithEvents btnBasicConfig As DevExpress.XtraBars.BarButtonItem
    Friend WithEvents Panel2 As Panel
-    Friend WithEvents BarButtonItemGlobixGE As DevExpress.XtraBars.BarButtonItem
+    Friend WithEvents btnGlobixConfig As DevExpress.XtraBars.BarButtonItem
    Friend WithEvents AdornerUIManager1 As DevExpress.Utils.VisualEffects.AdornerUIManager
    Friend WithEvents TaskBadge As DevExpress.Utils.VisualEffects.Badge
    Friend WithEvents PictureEditQuicksearch1 As PictureEdit
--- a/GUIs.ZooFlow/frmFlowForm.resx
+++ b/GUIs.ZooFlow/frmFlowForm.resx
@@ -1966,31 +1966,35 @@
    <value>716, 17</value>
  </metadata>
  <metadata name="BarManager1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>990, 17</value>
+    <value>865, 17</value>
  </metadata>
  <assembly alias="DevExpress.Data.v21.2" name="DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
  <data name="BarSubItem1.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
    <value>
        AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
        LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
-        dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAO4DAAAC77u/
+        dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAMMEAAAC77u/
        PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
-        IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
+        IHZpZXdCb3g9IjAgMCAzMCAzMCIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
        MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
-        Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
-        MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9Cgku
-        WWVsbG93e2ZpbGw6I0ZGQjExNTt9CgkuQmx1ZXtmaWxsOiMxMTc3RDc7fQoJLkdyZWVue2ZpbGw6IzAz
-        OUMyMzt9CgkuUmVke2ZpbGw6I0QxMUMxQzt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh
-        Y2l0eTowLjc1O30KCS5zdDF7b3BhY2l0eTowLjU7fQoJLnN0MntvcGFjaXR5OjAuMjU7fQo8L3N0eWxl
-        Pg0KICA8ZyBpZD0iUHJvcGVydGllcyI+DQogICAgPHBhdGggZD0iTTMwLDE4di00bC00LjQtMC43Yy0w
-        LjItMC44LTAuNS0xLjUtMC45LTIuMWwyLjYtMy42bC0yLjgtMi44bC0zLjYsMi42Yy0wLjctMC40LTEu
-        NC0wLjctMi4xLTAuOUwxOCwyaC00ICAgbC0wLjcsNC40Yy0wLjgsMC4yLTEuNSwwLjUtMi4xLDAuOUw3
-        LjUsNC43TDQuNyw3LjVsMi42LDMuNmMtMC40LDAuNy0wLjcsMS40LTAuOSwyLjFMMiwxNHY0bDQuNCww
-        LjdjMC4yLDAuOCwwLjUsMS41LDAuOSwyLjEgICBsLTIuNiwzLjZsMi44LDIuOGwzLjYtMi42YzAuNyww
-        LjQsMS40LDAuNywyLjEsMC45TDE0LDMwaDRsMC43LTQuNGMwLjgtMC4yLDEuNS0wLjUsMi4xLTAuOWwz
-        LjYsMi42bDIuOC0yLjhsLTIuNi0zLjYgICBjMC40LTAuNywwLjctMS40LDAuOS0yLjFMMzAsMTh6IE0x
-        NiwyMGMtMi4yLDAtNC0xLjgtNC00YzAtMi4yLDEuOC00LDQtNHM0LDEuOCw0LDRDMjAsMTguMiwxOC4y
-        LDIwLDE2LDIweiIgY2xhc3M9IkJsdWUiIC8+DQogIDwvZz4NCjwvc3ZnPgs=
+        Y2U9InByZXNlcnZlIiBpZD0iRWJlbmVfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
+        MzAgMzAiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLnN0MHtjbGlwLXBhdGg6dXJsKCNTVkdJ
+        RF8yXyk7ZmlsbDojQTUyNDMxO30KPC9zdHlsZT4NCiAgPGc+DQogICAgPGRlZnM+DQogICAgICA8cmVj
+        dCB4PSIwIiB5PSIwIiB3aWR0aD0iMzAiIGhlaWdodD0iMzAiIHJ4PSIwIiByeT0iMCIgaWQ9IlNWR0lE
+        XzFfIiAvPg0KICAgIDwvZGVmcz4NCiAgICA8Y2xpcFBhdGggaWQ9IlNWR0lEXzJfIj4NCiAgICAgIDx1
+        c2UgeGxpbms6aHJlZj0iI1NWR0lEXzFfIiBzdHlsZT0ib3ZlcmZsb3c6dmlzaWJsZSIgLz4NCiAgICA8
+        L2NsaXBQYXRoPg0KICAgIDxwYXRoIGQ9Ik0xMi4wOSwyMi4wMmMtMy44Ny0xLjYtNS43MS02LjA1LTQu
+        MTEtOS45MmMxLjYxLTMuODgsNi4wNS01LjcyLDkuOTItNC4xMWMzLjg4LDEuNiw1LjcyLDYuMDUsNC4x
+        MSw5LjkyICAgQzIwLjQxLDIxLjc4LDE1Ljk3LDIzLjYyLDEyLjA5LDIyLjAyIE0yLjUsMTIuOThjLTAu
+        MjIsMS4zNi0wLjIxLDIuNzIsMCw0LjA0TDAsMTguNDdsMS45NCw0LjY4bDIuOC0wLjc0ICAgYzAuNzgs
+        MS4wOSwxLjc0LDIuMDYsMi44NiwyLjg2bC0wLjc0LDIuOEwxMS41MywzMGwxLjQ1LTIuNWMxLjM2LDAu
+        MjIsMi43MiwwLjIxLDQuMDQsMGwxLjQ1LDIuNWw0LjY4LTEuOTRsLTAuNzUtMi44ICAgYzEuMDktMC43
+        OCwyLjA2LTEuNzQsMi44Ni0yLjg2bDIuOCwwLjc0TDMwLDE4LjQ3bC0yLjUtMS40NWMwLjIyLTEuMzYs
+        MC4yMS0yLjcyLDAtNC4wNEwzMCwxMS41M2wtMS45NC00LjY4bC0yLjgsMC43NSAgIGMtMC43OC0xLjA5
+        LTEuNzQtMi4wNi0yLjg2LTIuODZsMC43NS0yLjhMMTguNDcsMGwtMS40NSwyLjVjLTEuMzYtMC4yMi0y
+        LjcyLTAuMjEtNC4wNCwwTDExLjUzLDBMNi44NSwxLjk0bDAuNzUsMi44ICAgQzYuNTEsNS41Miw1LjU0
+        LDYuNDgsNC43Myw3LjU5bC0yLjgtMC43NUwwLDExLjUzTDIuNSwxMi45OHoiIGNsYXNzPSJzdDAiIC8+
+        DQogIDwvZz4NCjwvc3ZnPgs=
 </value>
  </data>
  <data name="BarButtonItemGlobixGE.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
@@ -2017,10 +2021,7 @@
        LDIwLDE2LDIweiIgY2xhc3M9IkJsdWUiIC8+DQogIDwvZz4NCjwvc3ZnPgs=
 </value>
  </data>
-  <metadata name="PopupMenu1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>865, 17</value>
-  </metadata>
  <metadata name="AdornerUIManager1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>1115, 17</value>
+    <value>990, 17</value>
  </metadata>
 </root>
--- a/GUIs.ZooFlow/frmFlowForm.vb
+++ b/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