DocumentResultList: Layout et al

GUIs.Common/Common.vbproj

@@ -65,6 +65,7 @@
     <Reference Include="NLog, Version=4.0.0.0, Culture=neutral, PublicKeyToken=5120e14c03d0593c, processorArchitecture=MSIL">
       <HintPath>..\packages\NLog.4.7.10\lib\net45\NLog.dll</HintPath>
     </Reference>
+    <Reference Include="PresentationCore" />
     <Reference Include="System" />
     <Reference Include="System.ComponentModel.DataAnnotations" />
     <Reference Include="System.Configuration" />
@@ -73,6 +74,7 @@
     <Reference Include="System.Deployment" />
     <Reference Include="System.Drawing" />
     <Reference Include="System.IO.Compression" />
+    <Reference Include="System.Runtime.Remoting" />
     <Reference Include="System.Runtime.Serialization" />
     <Reference Include="System.Runtime.Serialization.Formatters.Soap" />
     <Reference Include="System.Security" />
@@ -84,6 +86,8 @@
     <Reference Include="System.Xml.Linq" />
     <Reference Include="System.Data.DataSetExtensions" />
     <Reference Include="System.Net.Http" />
+    <Reference Include="UIAutomationClient" />
+    <Reference Include="WindowsBase" />
   </ItemGroup>
   <ItemGroup>
     <Import Include="Microsoft.VisualBasic" />
@@ -335,5 +339,20 @@
   <ItemGroup>
     <None Include="Resources\clearpivottable.svg" />
   </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\bo_transition.svg" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\security_unlock.svg" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\bo_security_permission.svg" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\private.svg" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\enablescrolling.svg" />
+  </ItemGroup>
   <Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
 </Project>

GUIs.Common/DocumentResultList/Layout.vb

@@ -1,5 +1,6 @@
 Imports DevExpress.Utils
 Imports DevExpress.XtraBars.Docking
+Imports DevExpress.XtraGrid.Views.BandedGrid
 Imports DevExpress.XtraGrid.Views.Grid
 Imports DigitalData.Modules.Base
 Imports DigitalData.Modules.Config
@@ -10,12 +11,18 @@ Namespace DocumentResultList
         Inherits BaseClass
 
         Private Config As ConfigManager(Of Config)
+        Private GridViews As List(Of GridView)
 
-        Public Sub New(pLogConfig As LogConfig, pConfig As ConfigManager(Of DocumentResultList.Config))
+        Public Sub New(pLogConfig As LogConfig, pConfig As ConfigManager(Of DocumentResultList.Config), pGridViews As List(Of GridView))
             MyBase.New(pLogConfig)
             Config = pConfig
+            GridViews = pGridViews
         End Sub
 
+#Region "Saving and Restoring layout"
+
+
+
         Public Sub DockManager_SaveLayout(pDockManager As DockManager)
             Try
                 Dim oXml As String = GetDockmanager_LayoutName()
@@ -69,6 +76,44 @@ Namespace DocumentResultList
             Dim oDirectory As String = IO.Path.GetDirectoryName(Config.UserConfigPath)
             Return IO.Path.Combine(oDirectory, Filename)
         End Function
+#End Region
+
+        Public Sub SetGroupPanelVisible(pVisible As Boolean)
+            For Each oView In GridViews
+                oView.OptionsView.ShowGroupPanel = pVisible
+            Next
+        End Sub
+
+        Public Function GetGroupPanelVisible() As Boolean
+            Dim oView = GridViews.First()
+            Return oView.OptionsView.ShowGroupPanel
+        End Function
+
+        Public Sub SetFilterRowVisible(pVisible As Boolean)
+            For Each oView In GridViews
+                oView.OptionsView.ShowAutoFilterRow = pVisible
+            Next
+        End Sub
+
+        Public Function GetFilterRowVisible() As Boolean
+            Dim oView = GridViews.First()
+            Return oView.OptionsView.ShowAutoFilterRow
+        End Function
+
+        Public Sub SetBandTitleVisible(pVisible As Boolean)
+            For Each oView In GridViews
+                DirectCast(oView, BandedGridView).OptionsView.ShowBands = pVisible
+            Next
+        End Sub
+
+        Public Function GetBandTitleVisible() As Boolean
+            Dim oView = GridViews.First()
+            Return DirectCast(oView, BandedGridView).OptionsView.ShowBands
+        End Function
+
     End Class
 
+
+
+
 End Namespace

GUIs.Common/My Project/Resources.Designer.vb

@@ -80,6 +80,16 @@ Namespace My.Resources
             End Get
         End Property
         
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage.
+        '''</summary>
+        Friend ReadOnly Property _private() As DevExpress.Utils.Svg.SvgImage
+            Get
+                Dim obj As Object = ResourceManager.GetObject("private", resourceCulture)
+                Return CType(obj,DevExpress.Utils.Svg.SvgImage)
+            End Get
+        End Property
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage.
         '''</summary>
@@ -100,6 +110,26 @@ Namespace My.Resources
             End Get
         End Property
         
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage.
+        '''</summary>
+        Friend ReadOnly Property bo_security_permission() As DevExpress.Utils.Svg.SvgImage
+            Get
+                Dim obj As Object = ResourceManager.GetObject("bo_security_permission", resourceCulture)
+                Return CType(obj,DevExpress.Utils.Svg.SvgImage)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage.
+        '''</summary>
+        Friend ReadOnly Property bo_transition() As DevExpress.Utils.Svg.SvgImage
+            Get
+                Dim obj As Object = ResourceManager.GetObject("bo_transition", resourceCulture)
+                Return CType(obj,DevExpress.Utils.Svg.SvgImage)
+            End Get
+        End Property
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage.
         '''</summary>
@@ -180,6 +210,16 @@ Namespace My.Resources
             End Get
         End Property
         
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage.
+        '''</summary>
+        Friend ReadOnly Property enablescrolling() As DevExpress.Utils.Svg.SvgImage
+            Get
+                Dim obj As Object = ResourceManager.GetObject("enablescrolling", resourceCulture)
+                Return CType(obj,DevExpress.Utils.Svg.SvgImage)
+            End Get
+        End Property
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage.
         '''</summary>
@@ -270,6 +310,16 @@ Namespace My.Resources
             End Get
         End Property
         
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage.
+        '''</summary>
+        Friend ReadOnly Property security_unlock() As DevExpress.Utils.Svg.SvgImage
+            Get
+                Dim obj As Object = ResourceManager.GetObject("security_unlock", resourceCulture)
+                Return CType(obj,DevExpress.Utils.Svg.SvgImage)
+            End Get
+        End Property
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage.
         '''</summary>

GUIs.Common/My Project/Resources.resx

@@ -118,6 +118,12 @@
     <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </resheader>
   <assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
+  <data name="bo_transition" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\bo_transition.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+  </data>
+  <data name="security_unlock" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\security_unlock.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+  </data>
   <data name="zoom_less" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\zoom_less.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -127,15 +133,15 @@
   <data name="actions_question" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\actions_question.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
+  <data name="bo_security_permission" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\bo_security_permission.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+  </data>
   <data name="pdf" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\pdf.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="ZooFlow-Vergroessern" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\ZooFlow-Vergroessern.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
-  <data name="save" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\save.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
-  </data>
   <data name="Open_32x32" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\Open_32x32.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -148,15 +154,24 @@
   <data name="jpg" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\jpg.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="xls" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\xls.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="ppt" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\ppt.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="copy" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\copy.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
+  <data name="zoom_more" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\zoom_more.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="refreshallpivottable" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\refreshallpivottable.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
+  <data name="clearpivottable" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\clearpivottable.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+  </data>
   <data name="singlepageview1" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\singlepageview1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
@@ -178,14 +193,11 @@
   <data name="tiff" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\tiff.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="open" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\open.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
-  </data>
   <data name="editcolors" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\editcolors.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
-  <data name="xls" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="save" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\xls.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\save.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
   <data name="dwg" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\dwg.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -193,16 +205,19 @@
   <data name="png" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\png.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="private" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\private.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+  </data>
   <data name="Copy_32x32" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\Copy_32x32.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="zoom_more" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="open" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\zoom_more.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\open.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
   <data name="Article_32x32" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\Article_32x32.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="clearpivottable" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="enablescrolling" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\clearpivottable.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+    <value>..\Resources\enablescrolling.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
 </root>

GUIs.Common/ObjectPropertyDialog/AttributeControls.vb

@@ -64,36 +64,57 @@ Public Class AttributeControls
         End Try
     End Function
 
-    Public Async Function LoadControlsForAttributes(pObjectId As Long, pAttributes As List(Of Attribute), LayoutRoot As LayoutControlGroup) As Task
+    Public Sub LoadControlsForAttributes(pAttributes As List(Of Attribute), LayoutRoot As LayoutControlGroup)
         LayoutRoot.Clear()
 
+        Dim oUserAttributeGroup = LayoutRoot.AddGroup()
+        oUserAttributeGroup.Text = "Benutzer Attribute"
+
+        Dim oSystemAttributeGroup = LayoutRoot.AddGroup()
+        oSystemAttributeGroup.Text = "System Attribute"
+
         For Each oAttribute As Attribute In pAttributes
             Dim oEditable = ShouldControlBeEditable(oAttribute)
             Dim oControl = GetControlForAttribute(oAttribute, Not oEditable)
-
+            Dim oParentGroup = oSystemAttributeGroup
             ' Add new control
-            Dim oItem As LayoutControlItem = LayoutRoot.AddItem()
 
+            If oAttribute.IsSystem = False Then
+                oParentGroup = oUserAttributeGroup
+            End If
+
+            Dim oItem As LayoutControlItem = oParentGroup.AddItem()
             oItem.Text = oAttribute.Title
             oItem.Name = oAttribute.Title
             oItem.Control = oControl
         Next
+    End Sub
 
-        For Each oItem As LayoutControlItem In LayoutRoot.Items
+    Public Async Function LoadControlValuesForAttributes(pObjectId As Long, LayoutRoot As LayoutControlGroup) As Task
-            If TypeOf oItem.Control Is BaseEdit Then
+        For Each oItem As BaseLayoutItem In LayoutRoot.Items
-                Dim oValue = Await GetAttributeValue(oItem.Name, pObjectId)
+            If TypeOf oItem Is LayoutControlGroup Then
-                Dim oEdit = DirectCast(oItem.Control, BaseEdit)
+                Await LoadControlValuesForAttributes(pObjectId, oItem)
 
-                oEdit.EditValue = oValue
+            ElseIf TypeOf oItem Is LayoutControlItem Then
+                Dim oControlItem As LayoutControlItem = oItem
 
-                AddHandler oEdit.EditValueChanged, Sub() RaiseEvent EditValueChanged(oItem, Nothing)
+                If TypeOf oControlItem.Control Is BaseEdit Then
+                    Dim oEdit = DirectCast(oControlItem.Control, BaseEdit)
+                    oEdit.EditValue = Nothing
 
-            ElseIf TypeOf oItem.Control Is GridControl Then
+                    Dim oValue = Await GetAttributeValue(oItem.Name, pObjectId)
-                Dim oValueTable = Await GetAttributeValueAsTable(oItem.Name, pObjectId)
+                    oEdit.EditValue = oValue
-                Dim oGrid = DirectCast(oItem.Control, GridControl)
-                oGrid.DataSource = oValueTable
 
+                    AddHandler oEdit.EditValueChanged, Sub() RaiseEvent EditValueChanged(oItem, Nothing)
+                ElseIf TypeOf oControlItem.Control Is GridControl Then
+                    Dim oValueTable = Await GetAttributeValueAsTable(oItem.Name, pObjectId)
+                    Dim oGrid = DirectCast(oControlItem.Control, GridControl)
 
+                    oGrid.DataSource = Nothing
+
+                    oGrid.DataSource = oValueTable
+
+                End If
             End If
         Next
     End Function

GUIs.Common/ObjectPropertyDialog/ctrlObjectPropertyDialog.Designer.vb

@@ -59,6 +59,7 @@ Partial Class ctrlObjectPropertyDialog
         Me.XtraTabPageAttributeHistory = New DevExpress.XtraTab.XtraTabPage()
         Me.GridValueHistory = New DevExpress.XtraGrid.GridControl()
         Me.GridView2 = New DevExpress.XtraGrid.Views.Grid.GridView()
+        Me.XtraTabPageVersions = New DevExpress.XtraTab.XtraTabPage()
         Me.BarManager1 = New DevExpress.XtraBars.BarManager(Me.components)
         Me.d = New DevExpress.XtraBars.Bar()
         Me.cmbEntityId = New DevExpress.XtraBars.BarEditItem()
@@ -125,7 +126,7 @@ Partial Class ctrlObjectPropertyDialog
         Me.XtraTabControl1.SelectedTabPage = Me.XtraTabPageObject
         Me.XtraTabControl1.Size = New System.Drawing.Size(505, 693)
         Me.XtraTabControl1.TabIndex = 2
-        Me.XtraTabControl1.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPageObject, Me.XtraTabPageAttributes, Me.XtraTabPageAttributeHistory})
+        Me.XtraTabControl1.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPageAttributes, Me.XtraTabPageObject, Me.XtraTabPageAttributeHistory, Me.XtraTabPageVersions})
         '
         'XtraTabPageObject
         '
@@ -430,7 +431,7 @@ Partial Class ctrlObjectPropertyDialog
         Me.LayoutControl2.Dock = System.Windows.Forms.DockStyle.Fill
         Me.LayoutControl2.Location = New System.Drawing.Point(0, 0)
         Me.LayoutControl2.Name = "LayoutControl2"
-        Me.LayoutControl2.OptionsCustomizationForm.DesignTimeCustomizationFormPositionAndSize = New System.Drawing.Rectangle(551, 406, 650, 400)
+        Me.LayoutControl2.OptionsCustomizationForm.DesignTimeCustomizationFormPositionAndSize = New System.Drawing.Rectangle(624, 268, 650, 400)
         Me.LayoutControl2.Root = Me.Root
         Me.LayoutControl2.Size = New System.Drawing.Size(503, 668)
         Me.LayoutControl2.TabIndex = 0
@@ -466,6 +467,13 @@ Partial Class ctrlObjectPropertyDialog
         Me.GridView2.GridControl = Me.GridValueHistory
         Me.GridView2.Name = "GridView2"
         '
+        'XtraTabPageVersions
+        '
+        Me.XtraTabPageVersions.Name = "XtraTabPageVersions"
+        Me.XtraTabPageVersions.PageEnabled = False
+        Me.XtraTabPageVersions.Size = New System.Drawing.Size(503, 668)
+        Me.XtraTabPageVersions.Text = "Versionen"
+        '
         'BarManager1
         '
         Me.BarManager1.Bars.AddRange(New DevExpress.XtraBars.Bar() {Me.d})
@@ -637,4 +645,5 @@ Partial Class ctrlObjectPropertyDialog
     Friend WithEvents barDockControlBottom As DevExpress.XtraBars.BarDockControl
     Friend WithEvents barDockControlLeft As DevExpress.XtraBars.BarDockControl
     Friend WithEvents barDockControlRight As DevExpress.XtraBars.BarDockControl
+    Friend WithEvents XtraTabPageVersions As DevExpress.XtraTab.XtraTabPage
 End Class

GUIs.Common/ObjectPropertyDialog/ctrlObjectPropertyDialog.vb

@@ -5,6 +5,7 @@ Imports DigitalData.Modules.EDMI.API
 Imports DigitalData.Modules.Logging
 Imports DigitalData.Modules.Language
 Imports DigitalData.Modules.ZooFlow
+Imports DevExpress.XtraSplashScreen
 
 Public Class ctrlObjectPropertyDialog
     Implements IBaseForm
@@ -18,7 +19,15 @@ Public Class ctrlObjectPropertyDialog
     Private Property ObjectId As Long
 
     Private ReadOnly Changes As New Dictionary(Of String, Object)
-    Private Property Loading As Boolean = False
+
+
+    Private Loading As Boolean = False
+
+    Private LastEntityId As Integer = 0
+
+    Private Sub ctrlObjectPropertyDialog_Load(sender As Object, e As EventArgs) Handles Me.Load
+        XtraTabControl1.SelectedTabPage = XtraTabPageAttributes
+    End Sub
 
     Public Sub Initialize(pLogConfig As LogConfig, pHostForm As Form, pClient As Client, pEnv As Environment)
         LogConfig = pLogConfig
@@ -44,6 +53,8 @@ Public Class ctrlObjectPropertyDialog
 
     Public Async Function LoadObject(pObjectId As Long, pEntityId As Long) As Task(Of Boolean)
         Loading = True
+        Dim oLoadingHandle = SplashScreenManager.ShowOverlayForm(Me)
+
         Try
             ObjectId = pObjectId
 
@@ -59,12 +70,27 @@ Public Class ctrlObjectPropertyDialog
             Dim oObjectProperties = Await GetPropertiesForObjectId(ObjectId)
             ShowObjectProperties(oObjectProperties)
 
-            ' Load Attribute controls and values
+
+            ' Load All attributes for current entity id
             Dim oAttributes = Await ControlManager.GetAttributesForBusinessEntity(cmbEntityId.EditValue)
-            Await ControlManager.LoadControlsForAttributes(ObjectId, oAttributes, Root)
+
+            ' Load Attribute controls
+            If pEntityId <> LastEntityId Then
+                ControlManager.LoadControlsForAttributes(oAttributes, Root)
+            End If
+
+            ' Load values for all controls
+            Await ControlManager.LoadControlValuesForAttributes(pObjectId, Root)
+
+            ' Save the current entity id
+            LastEntityId = pEntityId
+
+            Return True
         Catch ex As Exception
             Logger.Error(ex)
+            Return False
         Finally
+            SplashScreenManager.CloseOverlayForm(oLoadingHandle)
             Loading = False
         End Try
     End Function
@@ -166,15 +192,17 @@ Public Class ctrlObjectPropertyDialog
         Return oResult.Table
     End Function
 
-    Private Async Sub Load_Attributes(pObject As Long, pBusinessEntityId As Long)
+    Private Async Sub Load_Attributes(pObjectId As Long, pBusinessEntityId As Long)
         Try
             Dim oAttributes = Await ControlManager.GetAttributesForBusinessEntity(pBusinessEntityId)
-
             If oAttributes.Count = 0 Then
-                MsgBox($"Es konnten keine Attribute für das Objekt '{pObject}' geladen werden!", MsgBoxStyle.Critical, Text)
+                MsgBox($"Es konnten keine Attribute für das Objekt '{pObjectId}' geladen werden!", MsgBoxStyle.Critical, Text)
             End If
 
-            Await ControlManager.LoadControlsForAttributes(pObject, oAttributes, Root)
+
+
+            ControlManager.LoadControlsForAttributes(oAttributes, Root)
+            Await ControlManager.LoadControlValuesForAttributes(pObjectId, Root)
         Catch ex As Exception
             Logger.Error(ex)
         End Try
@@ -184,7 +212,7 @@ Public Class ctrlObjectPropertyDialog
         Dim oEntityId As Long
 
         If Integer.TryParse(cmbEntityId.EditValue, oEntityId) AndAlso Loading = False Then
-            LoadObject(ObjectId, oEntityId)
+            Await LoadObject(ObjectId, oEntityId)
         End If
     End Sub
 End Class

GUIs.Common/ObjectPropertyDialog/frmObjectPropertyDialog.vb

@@ -151,7 +151,8 @@ Public Class frmObjectPropertyDialog
                 MsgBox($"Es konnten keine Attribute für das Objekt '{ObjectId}' geladen werden!", MsgBoxStyle.Critical, Text)
             End If
 
-            Await ControlManager.LoadControlsForAttributes(ObjectId, oAttributes, AttributeLayout)
+            ControlManager.LoadControlsForAttributes(oAttributes, AttributeLayout)
+            Await ControlManager.LoadControlValuesForAttributes(ObjectId, AttributeLayout)
         Catch ex As Exception
             Logger.Error(ex)
         End Try

GUIs.Common/Resources/bo_security_permission.svg

@@ -0,0 +1,25 @@
+<?xml version='1.0' encoding='UTF-8'?>
+<svg x="0px" y="0px" viewBox="0 0 32 32" version="1.1" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink" xml:space="preserve" id="Layer_1" style="enable-background:new 0 0 32 32">
+  <style type="text/css">
+	.Blue{fill:#1177D7;}
+	.Yellow{fill:#FFB115;}
+	.Red{fill:#D11C1C;}
+	.Green{fill:#039C23;}
+	.Black{fill:#727272;}
+	.White{fill:#FFFFFF;}
+	.st0{opacity:0.5;}
+	.st1{opacity:0.75;}
+	.st2{display:none;}
+	.st3{display:inline;fill:#FFB115;}
+	.st4{display:inline;}
+	.st5{display:inline;opacity:0.75;}
+	.st6{display:inline;opacity:0.5;}
+	.st7{display:inline;fill:#039C23;}
+	.st8{display:inline;fill:#D11C1C;}
+	.st9{display:inline;fill:#1177D7;}
+	.st10{display:inline;fill:#FFFFFF;}
+</style>
+  <g id="Security_x5F_Permission">
+    <path d="M27,10h-3V8c0-4.4-3.6-8-8-8S8,3.6,8,8v2H5c-0.6,0-1,0.5-1,1v18c0,0.5,0.4,1,1,1h22c0.6,0,1-0.5,1-1V11   C28,10.5,27.6,10,27,10z M18,24h-4l1.4-4.1c-0.8-0.3-1.4-1-1.4-1.9c0-1.1,0.9-2,2-2s2,0.9,2,2c0,0.9-0.6,1.6-1.4,1.9L18,24z M12,10   V8c0-2.2,1.8-4,4-4s4,1.8,4,4v2H12z" class="Yellow" />
+  </g>
+</svg>

GUIs.Common/Resources/bo_transition.svg

@@ -0,0 +1,26 @@
+<?xml version='1.0' encoding='UTF-8'?>
+<svg x="0px" y="0px" viewBox="0 0 32 32" version="1.1" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink" xml:space="preserve" id="Layer_1" style="enable-background:new 0 0 32 32">
+  <style type="text/css">
+	.Blue{fill:#1177D7;}
+	.Yellow{fill:#FFB115;}
+	.Red{fill:#D11C1C;}
+	.Green{fill:#039C23;}
+	.Black{fill:#727272;}
+	.White{fill:#FFFFFF;}
+	.st0{opacity:0.5;}
+	.st1{opacity:0.75;}
+	.st2{display:none;}
+	.st3{display:inline;fill:#FFB115;}
+	.st4{display:inline;}
+	.st5{display:inline;opacity:0.75;}
+	.st6{display:inline;opacity:0.5;}
+	.st7{display:inline;fill:#039C23;}
+	.st8{display:inline;fill:#D11C1C;}
+	.st9{display:inline;fill:#1177D7;}
+	.st10{display:inline;fill:#FFFFFF;}
+</style>
+  <g id="Transition">
+    <polygon points="24,18 24,22 4,22 4,26 24,26 24,30 30,24  " class="Black" />
+    <path d="M22,18h-3.5l-1-3.1h-5l-1,3.1H8l5.2-14H17L22,18z M16.8,12.5l-1.5-4.7C15.1,7.4,15.1,7,15,6.5h-0.1   c0,0.4-0.1,0.8-0.2,1.2l-1.5,4.7H16.8z" class="Blue" />
+  </g>
+</svg>

GUIs.Common/Resources/enablescrolling.svg

@@ -0,0 +1,16 @@
+<?xml version='1.0' encoding='UTF-8'?>
+<svg x="0px" y="0px" viewBox="0 0 32 32" version="1.1" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink" xml:space="preserve" id="Layer_1" style="enable-background:new 0 0 32 32">
+  <style type="text/css">
+	.Yellow{fill:#FFB115;}
+	.Red{fill:#D11C1C;}
+	.Blue{fill:#1177D7;}
+	.Green{fill:#039C23;}
+	.Black{fill:#727272;}
+	.White{fill:#FFFFFF;}
+	.st0{opacity:0.75;}
+</style>
+  <g id="EnableScrolling">
+    <path d="M26,0v12H8V0H6v13c0,0.6,0.4,1,1,1h20c0.6,0,1-0.4,1-1V0H26z M26,32V20H8v12H6V19c0-0.6,0.4-1,1-1h20   c0.6,0,1,0.4,1,1v13H26z" class="Black" />
+    <path d="M22,6H12v2h10V6z M22,4H12V2h10V4z M22,30H12v-2h10V30z M22,24H12v2h10V24z" class="Blue" />
+  </g>
+</svg>

GUIs.Common/Resources/private.svg

@@ -0,0 +1,17 @@
+<?xml version='1.0' encoding='UTF-8'?>
+<svg x="0px" y="0px" viewBox="0 0 32 32" version="1.1" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink" xml:space="preserve" id="Layer_1" style="enable-background:new 0 0 32 32">
+  <style type="text/css">
+	.Red{fill:#D11C1C;}
+	.Black{fill:#727272;}
+	.Blue{fill:#1177D7;}
+	.Green{fill:#039C23;}
+	.Yellow{fill:#FFB115;}
+	.White{fill:#FFFFFF;}
+	.st0{opacity:0.5;}
+	.st1{opacity:0.75;}
+	.st2{opacity:0.25;}
+</style>
+  <g id="Private">
+    <path d="M25,12h-3v-2c0-3.3-2.7-6-6-6s-6,2.7-6,6v2H7c-0.6,0-1,0.5-1,1v14c0,0.5,0.4,1,1,1h18c0.6,0,1-0.5,1-1V13   C26,12.5,25.6,12,25,12z M18,24h-4l1.4-4.1c-0.8-0.3-1.4-1-1.4-1.9c0-1.1,0.9-2,2-2s2,0.9,2,2c0,0.9-0.6,1.6-1.4,1.9L18,24z M12,12   v-2c0-2.2,1.8-4,4-4s4,1.8,4,4v2H12z" class="Yellow" />
+  </g>
+</svg>

GUIs.Common/Resources/security_unlock.svg

@@ -0,0 +1,12 @@
+<?xml version='1.0' encoding='UTF-8'?>
+<svg x="0px" y="0px" viewBox="0 0 32 32" version="1.1" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink" xml:space="preserve" id="Layer_1" style="enable-background:new 0 0 32 32">
+  <style type="text/css">
+	.Black{fill:#727272;}
+	.Red{fill:#D11C1C;}
+	.Yellow{fill:#FFB115;}
+	.Green{fill:#039C23;}
+</style>
+  <g id="Unlock">
+    <path d="M22,4c-3.3,0-6,2.7-6,6v2H5c-0.6,0-1,0.5-1,1v14c0,0.5,0.4,1,1,1h18c0.6,0,1-0.5,1-1V13c0-0.5-0.4-1-1-1h-5   v-2c0-2.2,1.8-4,4-4s4,1.8,4,4v2h2v-2C28,6.7,25.3,4,22,4z M16,24h-4l1.4-4.1c-0.8-0.3-1.4-1-1.4-1.9c0-1.1,0.9-2,2-2s2,0.9,2,2   c0,0.9-0.6,1.6-1.4,1.9L16,24z" class="Yellow" />
+  </g>
+</svg>

GUIs.Common/frmDocumentResultList.Designer.vb

@@ -50,18 +50,30 @@ Partial Class frmDocumentResultList
         Me.BarButtonItem4 = New DevExpress.XtraBars.BarButtonItem()
         Me.BarButtonItem5 = New DevExpress.XtraBars.BarButtonItem()
         Me.BarButtonItem6 = New DevExpress.XtraBars.BarButtonItem()
-        Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage()
+        Me.BarButtonItem7 = New DevExpress.XtraBars.BarButtonItem()
-        Me.RibbonPageGroup_Navigation = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
+        Me.BarButtonItem8 = New DevExpress.XtraBars.BarButtonItem()
-        Me.RibbonPageGroup5 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
+        Me.BarButtonItem9 = New DevExpress.XtraBars.BarButtonItem()
+        Me.BarButtonItem10 = New DevExpress.XtraBars.BarButtonItem()
+        Me.chkGridShowQuickfilter = New DevExpress.XtraBars.BarCheckItem()
+        Me.chkGridShowGrouping = New DevExpress.XtraBars.BarCheckItem()
+        Me.chkGridShowTitle = New DevExpress.XtraBars.BarCheckItem()
+        Me.RibbonPageCategoryFile = New DevExpress.XtraBars.Ribbon.RibbonPageCategory()
         Me.RibbonPage4 = New DevExpress.XtraBars.Ribbon.RibbonPage()
         Me.RibbonPageGroup3 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
         Me.RibbonPageGroup7 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
         Me.RibbonPageGroupFilesystem = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
+        Me.RibbonPage3 = New DevExpress.XtraBars.Ribbon.RibbonPage()
+        Me.RibbonPageGroup4 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
+        Me.RibbonPageGroup8 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
+        Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage()
+        Me.RibbonPageGroup_Navigation = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
+        Me.RibbonPageGroup5 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
+        Me.RibbonPageExport = New DevExpress.XtraBars.Ribbon.RibbonPage()
+        Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
         Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage()
         Me.RibbonPageGroup_Layout = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
         Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
-        Me.RibbonPageExport = New DevExpress.XtraBars.Ribbon.RibbonPage()
+        Me.RibbonPageGroup9 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
-        Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
         Me.RepositoryItemTextEdit1 = New DevExpress.XtraEditors.Repository.RepositoryItemTextEdit()
         Me.RepositoryItemTextEdit2 = New DevExpress.XtraEditors.Repository.RepositoryItemTextEdit()
         Me.RibbonStatusBar = New DevExpress.XtraBars.Ribbon.RibbonStatusBar()
@@ -80,9 +92,10 @@ Partial Class frmDocumentResultList
         Me.DockPanel2_Container = New DevExpress.XtraBars.Docking.ControlContainer()
         Me.DockPanelMetadata = New DevExpress.XtraBars.Docking.DockPanel()
         Me.DockPanel3_Container = New DevExpress.XtraBars.Docking.ControlContainer()
+        Me.CtrlObjectPropertyDialog = New DigitalData.GUIs.Common.ctrlObjectPropertyDialog()
         Me.DockPanelDocViewer = New DevExpress.XtraBars.Docking.DockPanel()
         Me.DockPanel1_Container = New DevExpress.XtraBars.Docking.ControlContainer()
-        Me.CtrlObjectPropertyDialog = New DigitalData.GUIs.Common.ctrlObjectPropertyDialog()
+        Me.SvgImageCollection1 = New DevExpress.Utils.SvgImageCollection(Me.components)
         CType(Me.SplitContainerControl1, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.SplitContainerControl1.Panel1, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SplitContainerControl1.Panel1.SuspendLayout()
@@ -111,10 +124,12 @@ Partial Class frmDocumentResultList
         Me.DockPanel3_Container.SuspendLayout()
         Me.DockPanelDocViewer.SuspendLayout()
         Me.DockPanel1_Container.SuspendLayout()
+        CType(Me.SvgImageCollection1, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
         '
         'SplitContainerControl1
         '
+        Me.SplitContainerControl1.Collapsed = True
         Me.SplitContainerControl1.CollapsePanel = DevExpress.XtraEditors.SplitCollapsePanel.Panel2
         resources.ApplyResources(Me.SplitContainerControl1, "SplitContainerControl1")
         Me.SplitContainerControl1.Name = "SplitContainerControl1"
@@ -140,17 +155,19 @@ Partial Class frmDocumentResultList
         '
         'GridView1
         '
-        Me.GridView1.Appearance.EvenRow.BackColor = System.Drawing.Color.Gainsboro
+        Me.GridView1.Appearance.FocusedCell.BackColor = System.Drawing.Color.Gainsboro
-        Me.GridView1.Appearance.EvenRow.Options.UseBackColor = True
+        Me.GridView1.Appearance.FocusedCell.Options.UseBackColor = True
-        Me.GridView1.Appearance.FocusedRow.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
+        Me.GridView1.Appearance.FocusedRow.BackColor = System.Drawing.Color.Gainsboro
         Me.GridView1.Appearance.FocusedRow.Options.UseBackColor = True
         Me.GridView1.Bands.AddRange(New DevExpress.XtraGrid.Views.BandedGrid.GridBand() {Me.GridBand1})
         Me.GridView1.GridControl = Me.GridControl1
         Me.GridView1.Name = "GridView1"
         Me.GridView1.OptionsBehavior.Editable = False
         Me.GridView1.OptionsBehavior.ReadOnly = True
-        Me.GridView1.OptionsView.EnableAppearanceEvenRow = True
         Me.GridView1.OptionsView.ShowAutoFilterRow = True
+        Me.GridView1.OptionsView.ShowHorizontalLines = DevExpress.Utils.DefaultBoolean.[False]
+        Me.GridView1.OptionsView.ShowIndicator = False
+        Me.GridView1.OptionsView.ShowVerticalLines = DevExpress.Utils.DefaultBoolean.[False]
         '
         'GridBand1
         '
@@ -165,13 +182,13 @@ Partial Class frmDocumentResultList
         '
         'RibbonControl
         '
-        Me.RibbonControl.CommandLayout = DevExpress.XtraBars.Ribbon.CommandLayout.Simplified
         Me.RibbonControl.ExpandCollapseItem.Id = 0
-        Me.RibbonControl.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl.ExpandCollapseItem, Me.RibbonControl.SearchEditItem, Me.SwitchMainContainerHorizontal, Me.SwitchDetailContainerHorizontal, Me.BarButtonItemExportGrid1, Me.BarStaticItem1, Me.labelResultCount, Me.BarButtonBack, Me.BarButtonResetLayout, Me.labelCriticalError, Me.labelWarning, Me.MenuItemFileOpen, Me.MenuItemPropertiesIDB, Me.MenuItemFolderOpen, Me.MenuItemFilepathCopy, Me.MenuItemFolderpathCopy, Me.MenuItemPropertiesECM, Me.MenuItemsOpenFileZooFlow, Me.MenuItemPropertiesZooFlow, Me.ButtonRefresh, Me.BarButtonItem1, Me.BarButtonItem2, Me.BarButtonItem3, Me.BarButtonItem4, Me.BarButtonItem5, Me.BarButtonItem6})
+        Me.RibbonControl.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl.ExpandCollapseItem, Me.RibbonControl.SearchEditItem, Me.SwitchMainContainerHorizontal, Me.SwitchDetailContainerHorizontal, Me.BarButtonItemExportGrid1, Me.BarStaticItem1, Me.labelResultCount, Me.BarButtonBack, Me.BarButtonResetLayout, Me.labelCriticalError, Me.labelWarning, Me.MenuItemFileOpen, Me.MenuItemPropertiesIDB, Me.MenuItemFolderOpen, Me.MenuItemFilepathCopy, Me.MenuItemFolderpathCopy, Me.MenuItemPropertiesECM, Me.MenuItemsOpenFileZooFlow, Me.MenuItemPropertiesZooFlow, Me.ButtonRefresh, Me.BarButtonItem1, Me.BarButtonItem2, Me.BarButtonItem3, Me.BarButtonItem4, Me.BarButtonItem5, Me.BarButtonItem6, Me.BarButtonItem7, Me.BarButtonItem8, Me.BarButtonItem9, Me.BarButtonItem10, Me.chkGridShowQuickfilter, Me.chkGridShowGrouping, Me.chkGridShowTitle})
         resources.ApplyResources(Me.RibbonControl, "RibbonControl")
-        Me.RibbonControl.MaxItemId = 36
+        Me.RibbonControl.MaxItemId = 43
         Me.RibbonControl.Name = "RibbonControl"
-        Me.RibbonControl.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1, Me.RibbonPage4, Me.RibbonPage2, Me.RibbonPageExport})
+        Me.RibbonControl.PageCategories.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageCategory() {Me.RibbonPageCategoryFile})
+        Me.RibbonControl.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1, Me.RibbonPageExport, Me.RibbonPage2})
         Me.RibbonControl.RepositoryItems.AddRange(New DevExpress.XtraEditors.Repository.RepositoryItem() {Me.RepositoryItemTextEdit1, Me.RepositoryItemTextEdit2})
         Me.RibbonControl.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False]
         Me.RibbonControl.ShowToolbarCustomizeItem = False
@@ -355,28 +372,64 @@ Partial Class frmDocumentResultList
         Me.BarButtonItem6.ImageOptions.SvgImage = Global.DigitalData.GUIs.Common.My.Resources.Resources.clearpivottable
         Me.BarButtonItem6.Name = "BarButtonItem6"
         '
-        'RibbonPage1
+        'BarButtonItem7
         '
-        Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup_Navigation, Me.RibbonPageGroup5})
+        resources.ApplyResources(Me.BarButtonItem7, "BarButtonItem7")
-        Me.RibbonPage1.Name = "RibbonPage1"
+        Me.BarButtonItem7.Id = 36
-        resources.ApplyResources(Me.RibbonPage1, "RibbonPage1")
+        Me.BarButtonItem7.ImageOptions.SvgImage = Global.DigitalData.GUIs.Common.My.Resources.Resources.bo_transition
+        Me.BarButtonItem7.Name = "BarButtonItem7"
         '
-        'RibbonPageGroup_Navigation
+        'BarButtonItem8
         '
-        Me.RibbonPageGroup_Navigation.AllowTextClipping = False
+        resources.ApplyResources(Me.BarButtonItem8, "BarButtonItem8")
-        Me.RibbonPageGroup_Navigation.ItemLinks.Add(Me.BarButtonBack)
+        Me.BarButtonItem8.Id = 37
-        Me.RibbonPageGroup_Navigation.Name = "RibbonPageGroup_Navigation"
+        Me.BarButtonItem8.ImageOptions.SvgImage = Global.DigitalData.GUIs.Common.My.Resources.Resources.security_unlock
-        resources.ApplyResources(Me.RibbonPageGroup_Navigation, "RibbonPageGroup_Navigation")
+        Me.BarButtonItem8.Name = "BarButtonItem8"
         '
-        'RibbonPageGroup5
+        'BarButtonItem9
         '
-        Me.RibbonPageGroup5.Alignment = DevExpress.XtraBars.Ribbon.RibbonPageGroupAlignment.Far
+        resources.ApplyResources(Me.BarButtonItem9, "BarButtonItem9")
-        Me.RibbonPageGroup5.ItemLinks.Add(Me.ButtonRefresh)
+        Me.BarButtonItem9.Id = 38
-        Me.RibbonPageGroup5.Name = "RibbonPageGroup5"
+        Me.BarButtonItem9.ImageOptions.SvgImage = Global.DigitalData.GUIs.Common.My.Resources.Resources._private
-        resources.ApplyResources(Me.RibbonPageGroup5, "RibbonPageGroup5")
+        Me.BarButtonItem9.Name = "BarButtonItem9"
+        '
+        'BarButtonItem10
+        '
+        resources.ApplyResources(Me.BarButtonItem10, "BarButtonItem10")
+        Me.BarButtonItem10.Id = 39
+        Me.BarButtonItem10.ImageOptions.SvgImage = Global.DigitalData.GUIs.Common.My.Resources.Resources.enablescrolling
+        Me.BarButtonItem10.Name = "BarButtonItem10"
+        '
+        'chkGridShowQuickfilter
+        '
+        resources.ApplyResources(Me.chkGridShowQuickfilter, "chkGridShowQuickfilter")
+        Me.chkGridShowQuickfilter.Id = 40
+        Me.chkGridShowQuickfilter.Name = "chkGridShowQuickfilter"
+        '
+        'chkGridShowGrouping
+        '
+        resources.ApplyResources(Me.chkGridShowGrouping, "chkGridShowGrouping")
+        Me.chkGridShowGrouping.Id = 41
+        Me.chkGridShowGrouping.Name = "chkGridShowGrouping"
+        '
+        'chkGridShowTitle
+        '
+        resources.ApplyResources(Me.chkGridShowTitle, "chkGridShowTitle")
+        Me.chkGridShowTitle.Id = 42
+        Me.chkGridShowTitle.Name = "chkGridShowTitle"
+        '
+        'RibbonPageCategoryFile
+        '
+        Me.RibbonPageCategoryFile.Appearance.BackColor = System.Drawing.Color.DarkGreen
+        Me.RibbonPageCategoryFile.Appearance.Options.UseBackColor = True
+        Me.RibbonPageCategoryFile.Name = "RibbonPageCategoryFile"
+        Me.RibbonPageCategoryFile.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage4, Me.RibbonPage3})
+        resources.ApplyResources(Me.RibbonPageCategoryFile, "RibbonPageCategoryFile")
         '
         'RibbonPage4
         '
+        Me.RibbonPage4.Appearance.BackColor = System.Drawing.Color.Green
+        Me.RibbonPage4.Appearance.Options.UseBackColor = True
         Me.RibbonPage4.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup3, Me.RibbonPageGroup7, Me.RibbonPageGroupFilesystem})
         Me.RibbonPage4.Name = "RibbonPage4"
         resources.ApplyResources(Me.RibbonPage4, "RibbonPage4")
@@ -401,26 +454,45 @@ Partial Class frmDocumentResultList
         Me.RibbonPageGroupFilesystem.Name = "RibbonPageGroupFilesystem"
         resources.ApplyResources(Me.RibbonPageGroupFilesystem, "RibbonPageGroupFilesystem")
         '
-        'RibbonPage2
+        'RibbonPage3
         '
-        Me.RibbonPage2.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup_Layout, Me.RibbonPageGroup1})
+        Me.RibbonPage3.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup4, Me.RibbonPageGroup8})
-        Me.RibbonPage2.Name = "RibbonPage2"
+        Me.RibbonPage3.Name = "RibbonPage3"
-        resources.ApplyResources(Me.RibbonPage2, "RibbonPage2")
+        resources.ApplyResources(Me.RibbonPage3, "RibbonPage3")
         '
-        'RibbonPageGroup_Layout
+        'RibbonPageGroup4
         '
-        Me.RibbonPageGroup_Layout.ItemLinks.Add(Me.SwitchMainContainerHorizontal)
+        Me.RibbonPageGroup4.ItemLinks.Add(Me.BarButtonItem7)
-        Me.RibbonPageGroup_Layout.ItemLinks.Add(Me.SwitchDetailContainerHorizontal)
+        Me.RibbonPageGroup4.Name = "RibbonPageGroup4"
-        Me.RibbonPageGroup_Layout.Name = "RibbonPageGroup_Layout"
+        resources.ApplyResources(Me.RibbonPageGroup4, "RibbonPageGroup4")
-        resources.ApplyResources(Me.RibbonPageGroup_Layout, "RibbonPageGroup_Layout")
         '
-        'RibbonPageGroup1
+        'RibbonPageGroup8
         '
-        Me.RibbonPageGroup1.Alignment = DevExpress.XtraBars.Ribbon.RibbonPageGroupAlignment.Far
+        Me.RibbonPageGroup8.ItemLinks.Add(Me.BarButtonItem9)
-        Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonResetLayout)
+        Me.RibbonPageGroup8.ItemLinks.Add(Me.BarButtonItem8)
-        Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem6)
+        Me.RibbonPageGroup8.ItemLinks.Add(Me.BarButtonItem10)
-        Me.RibbonPageGroup1.Name = "RibbonPageGroup1"
+        Me.RibbonPageGroup8.Name = "RibbonPageGroup8"
-        resources.ApplyResources(Me.RibbonPageGroup1, "RibbonPageGroup1")
+        resources.ApplyResources(Me.RibbonPageGroup8, "RibbonPageGroup8")
+        '
+        'RibbonPage1
+        '
+        Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup_Navigation, Me.RibbonPageGroup5})
+        Me.RibbonPage1.Name = "RibbonPage1"
+        resources.ApplyResources(Me.RibbonPage1, "RibbonPage1")
+        '
+        'RibbonPageGroup_Navigation
+        '
+        Me.RibbonPageGroup_Navigation.AllowTextClipping = False
+        Me.RibbonPageGroup_Navigation.ItemLinks.Add(Me.BarButtonBack)
+        Me.RibbonPageGroup_Navigation.Name = "RibbonPageGroup_Navigation"
+        resources.ApplyResources(Me.RibbonPageGroup_Navigation, "RibbonPageGroup_Navigation")
+        '
+        'RibbonPageGroup5
+        '
+        Me.RibbonPageGroup5.Alignment = DevExpress.XtraBars.Ribbon.RibbonPageGroupAlignment.Far
+        Me.RibbonPageGroup5.ItemLinks.Add(Me.ButtonRefresh)
+        Me.RibbonPageGroup5.Name = "RibbonPageGroup5"
+        resources.ApplyResources(Me.RibbonPageGroup5, "RibbonPageGroup5")
         '
         'RibbonPageExport
         '
@@ -434,6 +506,34 @@ Partial Class frmDocumentResultList
         Me.RibbonPageGroup2.Name = "RibbonPageGroup2"
         resources.ApplyResources(Me.RibbonPageGroup2, "RibbonPageGroup2")
         '
+        'RibbonPage2
+        '
+        Me.RibbonPage2.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1, Me.RibbonPageGroup9, Me.RibbonPageGroup_Layout})
+        Me.RibbonPage2.Name = "RibbonPage2"
+        resources.ApplyResources(Me.RibbonPage2, "RibbonPage2")
+        '
+        'RibbonPageGroup_Layout
+        '
+        Me.RibbonPageGroup_Layout.ItemLinks.Add(Me.SwitchMainContainerHorizontal)
+        Me.RibbonPageGroup_Layout.ItemLinks.Add(Me.SwitchDetailContainerHorizontal)
+        Me.RibbonPageGroup_Layout.Name = "RibbonPageGroup_Layout"
+        resources.ApplyResources(Me.RibbonPageGroup_Layout, "RibbonPageGroup_Layout")
+        '
+        'RibbonPageGroup1
+        '
+        Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonResetLayout)
+        Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem6)
+        Me.RibbonPageGroup1.Name = "RibbonPageGroup1"
+        resources.ApplyResources(Me.RibbonPageGroup1, "RibbonPageGroup1")
+        '
+        'RibbonPageGroup9
+        '
+        Me.RibbonPageGroup9.ItemLinks.Add(Me.chkGridShowQuickfilter)
+        Me.RibbonPageGroup9.ItemLinks.Add(Me.chkGridShowGrouping)
+        Me.RibbonPageGroup9.ItemLinks.Add(Me.chkGridShowTitle)
+        Me.RibbonPageGroup9.Name = "RibbonPageGroup9"
+        resources.ApplyResources(Me.RibbonPageGroup9, "RibbonPageGroup9")
+        '
         'RepositoryItemTextEdit1
         '
         resources.ApplyResources(Me.RepositoryItemTextEdit1, "RepositoryItemTextEdit1")
@@ -582,6 +682,11 @@ Partial Class frmDocumentResultList
         resources.ApplyResources(Me.DockPanel3_Container, "DockPanel3_Container")
         Me.DockPanel3_Container.Name = "DockPanel3_Container"
         '
+        'CtrlObjectPropertyDialog
+        '
+        resources.ApplyResources(Me.CtrlObjectPropertyDialog, "CtrlObjectPropertyDialog")
+        Me.CtrlObjectPropertyDialog.Name = "CtrlObjectPropertyDialog"
+        '
         'DockPanelDocViewer
         '
         Me.DockPanelDocViewer.Controls.Add(Me.DockPanel1_Container)
@@ -598,10 +703,9 @@ Partial Class frmDocumentResultList
         resources.ApplyResources(Me.DockPanel1_Container, "DockPanel1_Container")
         Me.DockPanel1_Container.Name = "DockPanel1_Container"
         '
-        'CtrlObjectPropertyDialog
+        'SvgImageCollection1
         '
-        resources.ApplyResources(Me.CtrlObjectPropertyDialog, "CtrlObjectPropertyDialog")
+        Me.SvgImageCollection1.Add("pdf", "image://svgimages/export/exporttopdf.svg")
-        Me.CtrlObjectPropertyDialog.Name = "CtrlObjectPropertyDialog"
         '
         'frmDocumentResultList
         '
@@ -646,6 +750,7 @@ Partial Class frmDocumentResultList
         Me.DockPanel3_Container.ResumeLayout(False)
         Me.DockPanelDocViewer.ResumeLayout(False)
         Me.DockPanel1_Container.ResumeLayout(False)
+        CType(Me.SvgImageCollection1, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ResumeLayout(False)
         Me.PerformLayout()
 
@@ -713,4 +818,17 @@ Partial Class frmDocumentResultList
     Friend WithEvents DockPanel2_Container As DevExpress.XtraBars.Docking.ControlContainer
     Friend WithEvents BarButtonItem6 As DevExpress.XtraBars.BarButtonItem
     Friend WithEvents CtrlObjectPropertyDialog As ctrlObjectPropertyDialog
+    Friend WithEvents RibbonPageCategoryFile As DevExpress.XtraBars.Ribbon.RibbonPageCategory
+    Friend WithEvents RibbonPage3 As DevExpress.XtraBars.Ribbon.RibbonPage
+    Friend WithEvents RibbonPageGroup4 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
+    Friend WithEvents BarButtonItem7 As DevExpress.XtraBars.BarButtonItem
+    Friend WithEvents BarButtonItem8 As DevExpress.XtraBars.BarButtonItem
+    Friend WithEvents BarButtonItem9 As DevExpress.XtraBars.BarButtonItem
+    Friend WithEvents BarButtonItem10 As DevExpress.XtraBars.BarButtonItem
+    Friend WithEvents SvgImageCollection1 As DevExpress.Utils.SvgImageCollection
+    Friend WithEvents chkGridShowQuickfilter As DevExpress.XtraBars.BarCheckItem
+    Friend WithEvents chkGridShowGrouping As DevExpress.XtraBars.BarCheckItem
+    Friend WithEvents chkGridShowTitle As DevExpress.XtraBars.BarCheckItem
+    Friend WithEvents RibbonPageGroup8 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
+    Friend WithEvents RibbonPageGroup9 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
 End Class

GUIs.Common/frmDocumentResultList.resx

@@ -447,21 +447,81 @@
   <data name="BarButtonItem6.Caption" xml:space="preserve">
     <value>Fenster Layout zurücksetzen</value>
   </data>
+  <data name="BarButtonItem7.Caption" xml:space="preserve">
+    <value>Adhoc Workflow starten</value>
+  </data>
+  <data name="BarButtonItem8.Caption" xml:space="preserve">
+    <value>Einchecken</value>
+  </data>
+  <data name="BarButtonItem9.Caption" xml:space="preserve">
+    <value>Auschecken</value>
+  </data>
+  <data name="BarButtonItem10.Caption" xml:space="preserve">
+    <value>Versionieren</value>
+  </data>
+  <data name="chkGridShowQuickfilter.Caption" xml:space="preserve">
+    <value>Schnellfilter anzeigen</value>
+  </data>
+  <data name="chkGridShowGrouping.Caption" xml:space="preserve">
+    <value>Gruppierung anzeigen</value>
+  </data>
+  <data name="chkGridShowTitle.Caption" xml:space="preserve">
+    <value>Titel anzeigen</value>
+  </data>
   <data name="RibbonControl.Location" type="System.Drawing.Point, System.Drawing">
     <value>0, 0</value>
   </data>
+  <data name="RibbonPageGroup3.Text" xml:space="preserve">
+    <value>RibbonPageGroup3</value>
+  </data>
+  <data name="RibbonPageGroup7.Text" xml:space="preserve">
+    <value>RibbonPageGroup7</value>
+  </data>
+  <data name="RibbonPageGroupFilesystem.Text" xml:space="preserve">
+    <value>RibbonPageGroup4</value>
+  </data>
+  <data name="RibbonPage4.Text" xml:space="preserve">
+    <value>Aktionen 1</value>
+  </data>
+  <data name="RibbonPageGroup4.Text" xml:space="preserve">
+    <value>RibbonPageGroup4</value>
+  </data>
+  <data name="RibbonPageGroup8.Text" xml:space="preserve">
+    <value>RibbonPageGroup8</value>
+  </data>
+  <data name="RibbonPage3.Text" xml:space="preserve">
+    <value>Aktionen 2</value>
+  </data>
+  <data name="RibbonPageCategoryFile.Text" xml:space="preserve">
+    <value>Datei</value>
+  </data>
+  <data name="RibbonPageGroup_Navigation.Text" xml:space="preserve">
+    <value>Navigation</value>
+  </data>
+  <data name="RibbonPageGroup5.Text" xml:space="preserve">
+    <value>RibbonPageGroup5</value>
+  </data>
   <data name="RibbonPage1.Text" xml:space="preserve">
     <value>Start</value>
   </data>
-  <data name="RibbonPage4.Text" xml:space="preserve">
+  <data name="RibbonPageGroup2.Text" xml:space="preserve">
-    <value>Bearbeiten</value>
+    <value>RibbonPageGroup2</value>
-  </data>
-  <data name="RibbonPage2.Text" xml:space="preserve">
-    <value>Layout</value>
   </data>
   <data name="RibbonPageExport.Text" xml:space="preserve">
     <value>Export</value>
   </data>
+  <data name="RibbonPageGroup1.Text" xml:space="preserve">
+    <value>RibbonPageGroup1</value>
+  </data>
+  <data name="RibbonPageGroup9.Text" xml:space="preserve">
+    <value>Tabellen Einstellungen</value>
+  </data>
+  <data name="RibbonPageGroup_Layout.Text" xml:space="preserve">
+    <value>Layout</value>
+  </data>
+  <data name="RibbonPage2.Text" xml:space="preserve">
+    <value>Layout</value>
+  </data>
   <assembly alias="mscorlib" name="mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
   <data name="RepositoryItemTextEdit1.AutoHeight" type="System.Boolean, mscorlib">
     <value>False</value>
@@ -470,7 +530,7 @@
     <value>False</value>
   </data>
   <data name="RibbonControl.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1189, 89</value>
+    <value>1189, 158</value>
   </data>
   <data name="RibbonStatusBar.Location" type="System.Drawing.Point, System.Drawing">
     <value>0, 647</value>
@@ -503,7 +563,7 @@
     <value>4</value>
   </data>
   <data name="GridControl1.Size" type="System.Drawing.Size, System.Drawing">
-    <value>325, 529</value>
+    <value>568, 460</value>
   </data>
   <data name="GridControl1.TabIndex" type="System.Int32, mscorlib">
     <value>0</value>
@@ -557,7 +617,7 @@
     <value>GridBand2</value>
   </data>
   <data name="GridControl2.Size" type="System.Drawing.Size, System.Drawing">
-    <value>243, 223</value>
+    <value>0, 0</value>
   </data>
   <data name="GridControl2.TabIndex" type="System.Int32, mscorlib">
     <value>0</value>
@@ -605,7 +665,7 @@
     <value>GridBand3</value>
   </data>
   <data name="GridControl3.Size" type="System.Drawing.Size, System.Drawing">
-    <value>243, 296</value>
+    <value>0, 0</value>
   </data>
   <data name="GridControl3.TabIndex" type="System.Int32, mscorlib">
     <value>0</value>
@@ -638,7 +698,7 @@
     <value>1</value>
   </data>
   <data name="SplitContainerControl2.Size" type="System.Drawing.Size, System.Drawing">
-    <value>243, 529</value>
+    <value>0, 0</value>
   </data>
   <data name="SplitContainerControl2.TabIndex" type="System.Int32, mscorlib">
     <value>0</value>
@@ -674,7 +734,7 @@
     <value>1</value>
   </data>
   <data name="SplitContainerControl1.Size" type="System.Drawing.Size, System.Drawing">
-    <value>578, 529</value>
+    <value>578, 460</value>
   </data>
   <data name="SplitContainerControl1.TabIndex" type="System.Int32, mscorlib">
     <value>2</value>
@@ -694,30 +754,6 @@
   <data name="&gt;&gt;SplitContainerControl1.ZOrder" xml:space="preserve">
     <value>0</value>
   </data>
-  <data name="RibbonPageGroup_Navigation.Text" xml:space="preserve">
-    <value>Navigation</value>
-  </data>
-  <data name="RibbonPageGroup5.Text" xml:space="preserve">
-    <value>RibbonPageGroup5</value>
-  </data>
-  <data name="RibbonPageGroup3.Text" xml:space="preserve">
-    <value>RibbonPageGroup3</value>
-  </data>
-  <data name="RibbonPageGroup7.Text" xml:space="preserve">
-    <value>RibbonPageGroup7</value>
-  </data>
-  <data name="RibbonPageGroupFilesystem.Text" xml:space="preserve">
-    <value>RibbonPageGroup4</value>
-  </data>
-  <data name="RibbonPageGroup_Layout.Text" xml:space="preserve">
-    <value>Layout</value>
-  </data>
-  <data name="RibbonPageGroup1.Text" xml:space="preserve">
-    <value>RibbonPageGroup1</value>
-  </data>
-  <data name="RibbonPageGroup2.Text" xml:space="preserve">
-    <value>RibbonPageGroup2</value>
-  </data>
   <data name="DocumentViewer1.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
     <value>Fill</value>
   </data>
@@ -725,7 +761,7 @@
     <value>0, 0</value>
   </data>
   <data name="DocumentViewer1.Size" type="System.Drawing.Size, System.Drawing">
-    <value>318, 528</value>
+    <value>318, 459</value>
   </data>
   <data name="DocumentViewer1.TabIndex" type="System.Int32, mscorlib">
     <value>0</value>
@@ -743,7 +779,7 @@
     <value>0</value>
   </data>
   <metadata name="XtraSaveFileDialog.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>14, 16</value>
+    <value>12, 27</value>
   </metadata>
   <data name="RibbonPageGroup6.Text" xml:space="preserve">
     <value>RibbonPageGroup6</value>
@@ -760,6 +796,15 @@
   <data name="$this.ClientSize" type="System.Drawing.Size, System.Drawing">
     <value>1189, 671</value>
   </data>
+  <data name="DockPanel1_Container.Location" type="System.Drawing.Point, System.Drawing">
+    <value>3, 26</value>
+  </data>
+  <data name="DockPanel1_Container.Size" type="System.Drawing.Size, System.Drawing">
+    <value>318, 459</value>
+  </data>
+  <data name="DockPanel1_Container.TabIndex" type="System.Int32, mscorlib">
+    <value>0</value>
+  </data>
   <data name="&gt;&gt;DockPanel1_Container.Name" xml:space="preserve">
     <value>DockPanel1_Container</value>
   </data>
@@ -773,10 +818,10 @@
     <value>0</value>
   </data>
   <data name="DockPanelDocViewer.Location" type="System.Drawing.Point, System.Drawing">
-    <value>585, 89</value>
+    <value>585, 158</value>
   </data>
   <data name="DockPanelDocViewer.Size" type="System.Drawing.Size, System.Drawing">
-    <value>324, 558</value>
+    <value>324, 489</value>
   </data>
   <data name="DockPanelDocViewer.Text" xml:space="preserve">
     <value>Vorschau</value>
@@ -800,7 +845,7 @@
     <value>0, 0</value>
   </data>
   <data name="CtrlObjectPropertyDialog.Size" type="System.Drawing.Size, System.Drawing">
-    <value>273, 529</value>
+    <value>273, 460</value>
   </data>
   <data name="CtrlObjectPropertyDialog.TabIndex" type="System.Int32, mscorlib">
     <value>0</value>
@@ -821,7 +866,7 @@
     <value>4, 26</value>
   </data>
   <data name="DockPanel3_Container.Size" type="System.Drawing.Size, System.Drawing">
-    <value>273, 529</value>
+    <value>273, 460</value>
   </data>
   <data name="DockPanel3_Container.TabIndex" type="System.Int32, mscorlib">
     <value>0</value>
@@ -839,10 +884,10 @@
     <value>0</value>
   </data>
   <data name="DockPanelMetadata.Location" type="System.Drawing.Point, System.Drawing">
-    <value>909, 89</value>
+    <value>909, 158</value>
   </data>
   <data name="DockPanelMetadata.Size" type="System.Drawing.Size, System.Drawing">
-    <value>280, 558</value>
+    <value>280, 489</value>
   </data>
   <data name="DockPanelMetadata.Text" xml:space="preserve">
     <value>Mehr</value>
@@ -859,6 +904,15 @@
   <data name="&gt;&gt;DockPanelMetadata.ZOrder" xml:space="preserve">
     <value>1</value>
   </data>
+  <data name="DockPanel2_Container.Location" type="System.Drawing.Point, System.Drawing">
+    <value>3, 26</value>
+  </data>
+  <data name="DockPanel2_Container.Size" type="System.Drawing.Size, System.Drawing">
+    <value>578, 460</value>
+  </data>
+  <data name="DockPanel2_Container.TabIndex" type="System.Int32, mscorlib">
+    <value>0</value>
+  </data>
   <data name="&gt;&gt;DockPanel2_Container.Name" xml:space="preserve">
     <value>DockPanel2_Container</value>
   </data>
@@ -872,10 +926,10 @@
     <value>0</value>
   </data>
   <data name="DockPanelFileList.Location" type="System.Drawing.Point, System.Drawing">
-    <value>0, 89</value>
+    <value>0, 158</value>
   </data>
   <data name="DockPanelFileList.Size" type="System.Drawing.Size, System.Drawing">
-    <value>585, 558</value>
+    <value>585, 489</value>
   </data>
   <data name="DockPanelFileList.Text" xml:space="preserve">
     <value>Ergebnisse</value>
@@ -1131,23 +1185,53 @@
   <data name="&gt;&gt;BarButtonItem6.Type" xml:space="preserve">
     <value>DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
-  <data name="&gt;&gt;RibbonPage1.Name" xml:space="preserve">
+  <data name="&gt;&gt;BarButtonItem7.Name" xml:space="preserve">
-    <value>RibbonPage1</value>
+    <value>BarButtonItem7</value>
   </data>
-  <data name="&gt;&gt;RibbonPage1.Type" xml:space="preserve">
+  <data name="&gt;&gt;BarButtonItem7.Type" xml:space="preserve">
-    <value>DevExpress.XtraBars.Ribbon.RibbonPage, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+    <value>DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
-  <data name="&gt;&gt;RibbonPageGroup_Navigation.Name" xml:space="preserve">
+  <data name="&gt;&gt;BarButtonItem8.Name" xml:space="preserve">
-    <value>RibbonPageGroup_Navigation</value>
+    <value>BarButtonItem8</value>
   </data>
-  <data name="&gt;&gt;RibbonPageGroup_Navigation.Type" xml:space="preserve">
+  <data name="&gt;&gt;BarButtonItem8.Type" xml:space="preserve">
-    <value>DevExpress.XtraBars.Ribbon.RibbonPageGroup, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+    <value>DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
-  <data name="&gt;&gt;RibbonPageGroup5.Name" xml:space="preserve">
+  <data name="&gt;&gt;BarButtonItem9.Name" xml:space="preserve">
-    <value>RibbonPageGroup5</value>
+    <value>BarButtonItem9</value>
   </data>
-  <data name="&gt;&gt;RibbonPageGroup5.Type" xml:space="preserve">
+  <data name="&gt;&gt;BarButtonItem9.Type" xml:space="preserve">
-    <value>DevExpress.XtraBars.Ribbon.RibbonPageGroup, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+    <value>DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+  </data>
+  <data name="&gt;&gt;BarButtonItem10.Name" xml:space="preserve">
+    <value>BarButtonItem10</value>
+  </data>
+  <data name="&gt;&gt;BarButtonItem10.Type" xml:space="preserve">
+    <value>DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+  </data>
+  <data name="&gt;&gt;chkGridShowQuickfilter.Name" xml:space="preserve">
+    <value>chkGridShowQuickfilter</value>
+  </data>
+  <data name="&gt;&gt;chkGridShowQuickfilter.Type" xml:space="preserve">
+    <value>DevExpress.XtraBars.BarCheckItem, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+  </data>
+  <data name="&gt;&gt;chkGridShowGrouping.Name" xml:space="preserve">
+    <value>chkGridShowGrouping</value>
+  </data>
+  <data name="&gt;&gt;chkGridShowGrouping.Type" xml:space="preserve">
+    <value>DevExpress.XtraBars.BarCheckItem, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+  </data>
+  <data name="&gt;&gt;chkGridShowTitle.Name" xml:space="preserve">
+    <value>chkGridShowTitle</value>
+  </data>
+  <data name="&gt;&gt;chkGridShowTitle.Type" xml:space="preserve">
+    <value>DevExpress.XtraBars.BarCheckItem, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+  </data>
+  <data name="&gt;&gt;RibbonPageCategoryFile.Name" xml:space="preserve">
+    <value>RibbonPageCategoryFile</value>
+  </data>
+  <data name="&gt;&gt;RibbonPageCategoryFile.Type" xml:space="preserve">
+    <value>DevExpress.XtraBars.Ribbon.RibbonPageCategory, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
   <data name="&gt;&gt;RibbonPage4.Name" xml:space="preserve">
     <value>RibbonPage4</value>
@@ -1173,6 +1257,54 @@
   <data name="&gt;&gt;RibbonPageGroupFilesystem.Type" xml:space="preserve">
     <value>DevExpress.XtraBars.Ribbon.RibbonPageGroup, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
+  <data name="&gt;&gt;RibbonPage3.Name" xml:space="preserve">
+    <value>RibbonPage3</value>
+  </data>
+  <data name="&gt;&gt;RibbonPage3.Type" xml:space="preserve">
+    <value>DevExpress.XtraBars.Ribbon.RibbonPage, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+  </data>
+  <data name="&gt;&gt;RibbonPageGroup4.Name" xml:space="preserve">
+    <value>RibbonPageGroup4</value>
+  </data>
+  <data name="&gt;&gt;RibbonPageGroup4.Type" xml:space="preserve">
+    <value>DevExpress.XtraBars.Ribbon.RibbonPageGroup, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+  </data>
+  <data name="&gt;&gt;RibbonPageGroup8.Name" xml:space="preserve">
+    <value>RibbonPageGroup8</value>
+  </data>
+  <data name="&gt;&gt;RibbonPageGroup8.Type" xml:space="preserve">
+    <value>DevExpress.XtraBars.Ribbon.RibbonPageGroup, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+  </data>
+  <data name="&gt;&gt;RibbonPage1.Name" xml:space="preserve">
+    <value>RibbonPage1</value>
+  </data>
+  <data name="&gt;&gt;RibbonPage1.Type" xml:space="preserve">
+    <value>DevExpress.XtraBars.Ribbon.RibbonPage, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+  </data>
+  <data name="&gt;&gt;RibbonPageGroup_Navigation.Name" xml:space="preserve">
+    <value>RibbonPageGroup_Navigation</value>
+  </data>
+  <data name="&gt;&gt;RibbonPageGroup_Navigation.Type" xml:space="preserve">
+    <value>DevExpress.XtraBars.Ribbon.RibbonPageGroup, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+  </data>
+  <data name="&gt;&gt;RibbonPageGroup5.Name" xml:space="preserve">
+    <value>RibbonPageGroup5</value>
+  </data>
+  <data name="&gt;&gt;RibbonPageGroup5.Type" xml:space="preserve">
+    <value>DevExpress.XtraBars.Ribbon.RibbonPageGroup, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+  </data>
+  <data name="&gt;&gt;RibbonPageExport.Name" xml:space="preserve">
+    <value>RibbonPageExport</value>
+  </data>
+  <data name="&gt;&gt;RibbonPageExport.Type" xml:space="preserve">
+    <value>DevExpress.XtraBars.Ribbon.RibbonPage, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+  </data>
+  <data name="&gt;&gt;RibbonPageGroup2.Name" xml:space="preserve">
+    <value>RibbonPageGroup2</value>
+  </data>
+  <data name="&gt;&gt;RibbonPageGroup2.Type" xml:space="preserve">
+    <value>DevExpress.XtraBars.Ribbon.RibbonPageGroup, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+  </data>
   <data name="&gt;&gt;RibbonPage2.Name" xml:space="preserve">
     <value>RibbonPage2</value>
   </data>
@@ -1191,16 +1323,10 @@
   <data name="&gt;&gt;RibbonPageGroup1.Type" xml:space="preserve">
     <value>DevExpress.XtraBars.Ribbon.RibbonPageGroup, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
-  <data name="&gt;&gt;RibbonPageExport.Name" xml:space="preserve">
+  <data name="&gt;&gt;RibbonPageGroup9.Name" xml:space="preserve">
-    <value>RibbonPageExport</value>
+    <value>RibbonPageGroup9</value>
   </data>
-  <data name="&gt;&gt;RibbonPageExport.Type" xml:space="preserve">
+  <data name="&gt;&gt;RibbonPageGroup9.Type" xml:space="preserve">
-    <value>DevExpress.XtraBars.Ribbon.RibbonPage, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
-  </data>
-  <data name="&gt;&gt;RibbonPageGroup2.Name" xml:space="preserve">
-    <value>RibbonPageGroup2</value>
-  </data>
-  <data name="&gt;&gt;RibbonPageGroup2.Type" xml:space="preserve">
     <value>DevExpress.XtraBars.Ribbon.RibbonPageGroup, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
   <data name="&gt;&gt;RepositoryItemTextEdit1.Name" xml:space="preserve">
@@ -1257,52 +1383,19 @@
   <data name="&gt;&gt;DockManager1.Type" xml:space="preserve">
     <value>DevExpress.XtraBars.Docking.DockManager, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
+  <data name="&gt;&gt;SvgImageCollection1.Name" xml:space="preserve">
+    <value>SvgImageCollection1</value>
+  </data>
+  <data name="&gt;&gt;SvgImageCollection1.Type" xml:space="preserve">
+    <value>DevExpress.Utils.SvgImageCollection, DevExpress.Utils.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+  </data>
   <data name="&gt;&gt;$this.Name" xml:space="preserve">
     <value>frmDocumentResultList</value>
   </data>
   <data name="&gt;&gt;$this.Type" xml:space="preserve">
     <value>DevExpress.XtraBars.Ribbon.RibbonForm, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
-  <data name="DockPanel2_Container.Location" type="System.Drawing.Point, System.Drawing">
+  <metadata name="SvgImageCollection1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>3, 26</value>
+    <value>290, 22</value>
-  </data>
+  </metadata>
-  <data name="DockPanel2_Container.Size" type="System.Drawing.Size, System.Drawing">
-    <value>578, 529</value>
-  </data>
-  <data name="DockPanel2_Container.TabIndex" type="System.Int32, mscorlib">
-    <value>0</value>
-  </data>
-  <data name="&gt;&gt;DockPanel2_Container.Name" xml:space="preserve">
-    <value>DockPanel2_Container</value>
-  </data>
-  <data name="&gt;&gt;DockPanel2_Container.Type" xml:space="preserve">
-    <value>DevExpress.XtraBars.Docking.ControlContainer, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
-  </data>
-  <data name="&gt;&gt;DockPanel2_Container.Parent" xml:space="preserve">
-    <value>DockPanelFileList</value>
-  </data>
-  <data name="&gt;&gt;DockPanel2_Container.ZOrder" xml:space="preserve">
-    <value>0</value>
-  </data>
-  <data name="DockPanel1_Container.Location" type="System.Drawing.Point, System.Drawing">
-    <value>3, 26</value>
-  </data>
-  <data name="DockPanel1_Container.Size" type="System.Drawing.Size, System.Drawing">
-    <value>318, 528</value>
-  </data>
-  <data name="DockPanel1_Container.TabIndex" type="System.Int32, mscorlib">
-    <value>0</value>
-  </data>
-  <data name="&gt;&gt;DockPanel1_Container.Name" xml:space="preserve">
-    <value>DockPanel1_Container</value>
-  </data>
-  <data name="&gt;&gt;DockPanel1_Container.Type" xml:space="preserve">
-    <value>DevExpress.XtraBars.Docking.ControlContainer, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
-  </data>
-  <data name="&gt;&gt;DockPanel1_Container.Parent" xml:space="preserve">
-    <value>DockPanelDocViewer</value>
-  </data>
-  <data name="&gt;&gt;DockPanel1_Container.ZOrder" xml:space="preserve">
-    <value>0</value>
-  </data>
 </root>

GUIs.Common/frmDocumentResultList.vb

@@ -56,6 +56,7 @@ Public Class frmDocumentResultList
     Private ReadOnly Helpers As DocumentResultList.Helpers
     Private ReadOnly Params As DocumentResultList.Params
     Private ReadOnly LayoutManager As DocumentResultList.Layout
+
     Private WithEvents Watcher As DocumentResultList.Watcher
     Private ControlManager As AttributeControls
 
@@ -65,20 +66,21 @@ Public Class frmDocumentResultList
     Private Property ResultLists As List(Of DocumentResultList.DocumentResult)
 
     Private _IsLoading As Boolean = True
-    Private _ActiveGrid As GridControl = Nothing
-    Private _ActiveGridBand As GridBand = Nothing
     Private _DragBoxFromMouseDown As Rectangle
     Private _ScreenOffset As Point
     Private _CurrentDocument As DocumentResultList.Document = Nothing
     Private ReadOnly _FileOpenList As New Dictionary(Of Integer, String)
     Private ReadOnly _Language As String
 
+    Private Property _ActiveGrid As GridControl = Nothing
+    Private Property _ActiveGridBand As GridBand = Nothing
+    Private Property GridList As List(Of GridControl)
+    Private Property ViewList As List(Of BandedGridView)
+
     Private Property OperationMode As OperationMode Implements IResultForm.OperationMode
 
     Public Property ShouldReturnToPreviousForm As Boolean = False Implements IResultForm.ShouldReturnToPreviousForm
 
-
-
     Public Event NeedsRefresh As EventHandler(Of Integer) Implements IResultForm.NeedsRefresh
     Public Event ResultsRefreshed As EventHandler(Of List(Of DocumentResultList.DocumentResult))
 
@@ -111,7 +113,7 @@ Public Class frmDocumentResultList
         GridBuilder = New GridBuilder(New List(Of GridView) From {GridView1, GridView2, GridView3})
         FileEx = New Modules.Windows.File(pLogConfig)
         Watcher = New DocumentResultList.Watcher(pLogConfig)
-        LayoutManager = New DocumentResultList.Layout(pLogConfig, Config)
+        LayoutManager = New DocumentResultList.Layout(pLogConfig, Config, New List(Of GridView) From {GridView1, GridView2, GridView3})
 
         _Language = Utils.NotNull(Me.Environment.User.Language, State.UserState.LANG_EN_US)
     End Sub
@@ -188,9 +190,7 @@ Public Class frmDocumentResultList
                 SwitchDetailContainerHorizontal.Visibility = BarItemVisibility.Never
             End If
 
-            GridBuilder.
+            GridBuilder.WithReadOnlyOptions()
-                WithDefaults().
-                WithReadOnlyOptions()
 
             AddHandler GridView1.FocusedRowChanged, AddressOf GridView_FocusedRowChanged
             AddHandler GridView2.FocusedRowChanged, AddressOf GridView_FocusedRowChanged
@@ -201,6 +201,10 @@ Public Class frmDocumentResultList
 
             LayoutManager.DockManager_RestoreLayout(DockManager1)
 
+            chkGridShowQuickfilter.Checked = LayoutManager.GetFilterRowVisible()
+            chkGridShowGrouping.Checked = LayoutManager.GetGroupPanelVisible()
+            chkGridShowTitle.Checked = LayoutManager.GetBandTitleVisible()
+
         Catch ex As Exception
             ErrorHandler.ShowErrorMessage(ex, "Error while loading results", "Form Load")
 
@@ -277,6 +281,10 @@ Public Class frmDocumentResultList
 
                     'Await ControlManager.LoadControlsForAttributes(oObjectId, oAttributes, RootMetadata)
                 End If
+
+                RibbonPageCategoryFile.Visible = True
+            Else
+                RibbonPageCategoryFile.Visible = False
             End If
         Catch ex As Exception
             ErrorHandler.ShowErrorMessage(ex, "GridView_FocusedRowChanged")
@@ -285,6 +293,8 @@ Public Class frmDocumentResultList
         End Try
     End Sub
 
+#Region "Watcher"
+
     Public Async Sub Watcher_FileOpened(sender As Object, e As DocumentResultList.Watcher.FileOpenedArgs) Handles Watcher.FileOpened
         Await _IDBClient.SetObjectStateAsync(e.File.Document.Id, OBJECT_STATE_FILE_OPENED, New Options.SetObjectStateOptions With {
             .Language = Environment.User.Language,
@@ -389,6 +399,8 @@ Public Class frmDocumentResultList
 
         End Select
     End Function
+#End Region
+
 
 
     Private Function InitAppServer() As Boolean
@@ -466,8 +478,6 @@ Public Class frmDocumentResultList
         End Try
     End Sub
 
-
-
     Private Sub UpdateGridData()
         ' Load Grids
         For oIndex = 0 To ResultLists.Count - 1
@@ -559,8 +569,8 @@ Public Class frmDocumentResultList
 
     Private Sub CreateDocumentGrid(GridView As BandedGridView, Result As DocumentResultList.DocumentResult)
         Try
-            If IsNothing(GridView.Columns("ICON")) Then
+            If IsNothing(GridView.Columns(COLUMN_ICON)) Then
-                Dim oIconColumn = GridView.Columns.AddVisible("ICON", "ICON")
+                Dim oIconColumn = GridView.Columns.AddVisible(COLUMN_ICON, COLUMN_ICON)
                 With oIconColumn
                     .OptionsColumn.AllowSort = False
                     .OptionsColumn.AllowSize = False
@@ -585,38 +595,46 @@ Public Class frmDocumentResultList
                 oChanged = "Changed"
             End If
 
-            Try
+            Dim oColumnsToHide As New List(Of String) From {
-                Dim oDocIdColumn As GridColumn = GridView.Columns(COLUMN_DOCID)
+                oCreated, oChanged, COLUMN_DOCID, COLUMN_FILEPATH,
-                If Not IsNothing(oDocIdColumn) Then
+                "CREATED_WHEN", "CREATED_WHO", "ADDED_WHEN", "ADDED_WHO"
-                    oDocIdColumn.Visible = False
+            }
-                End If
 
+            For Each oFieldName As String In oColumnsToHide
+                Try
+                    Dim oColumn = GridView.Columns(oFieldName)
+                    If oColumn IsNot Nothing Then
+                        oColumn.Visible = False
+                    End If
+                Catch ex As Exception
+                End Try
+            Next
+
+            Try
                 Dim oFilePathColumn As GridColumn = GridView.Columns(COLUMN_FILEPATH)
                 If Not IsNothing(oFilePathColumn) Then
-                    oFilePathColumn.Visible = False
-
                     ' Hide Fullpath column completely in AppServer-Mode
                     If OperationMode = OperationMode.WithAppServer Then
                         oFilePathColumn.OptionsColumn.ShowInCustomizationForm = False
                     End If
                 End If
 
-                Dim oCreatedColumn = GridView.Columns(oCreated)
+                'Dim oCreatedColumn = GridView.Columns(oCreated)
-                If Not IsNothing(oCreatedColumn) Then
+                'If Not IsNothing(oCreatedColumn) Then
-                    oCreatedColumn.DisplayFormat.FormatType = FormatType.DateTime
+                '    oCreatedColumn.DisplayFormat.FormatType = FormatType.DateTime
-                    oCreatedColumn.DisplayFormat.FormatString = Environment.User.DateFormat & " HH:MM:ss"
+                '    oCreatedColumn.DisplayFormat.FormatString = Environment.User.DateFormat & " HH:MM:ss"
-                End If
+                'End If
 
-                Dim oChangedColumn = GridView.Columns(oChanged)
+                'Dim oChangedColumn = GridView.Columns(oChanged)
-                If Not IsNothing(oChangedColumn) Then
+                'If Not IsNothing(oChangedColumn) Then
-                    oChangedColumn.DisplayFormat.FormatType = FormatType.DateTime
+                '    oChangedColumn.DisplayFormat.FormatType = FormatType.DateTime
-                    oChangedColumn.DisplayFormat.FormatString = Environment.User.DateFormat & " HH:MM:ss"
+                '    oChangedColumn.DisplayFormat.FormatString = Environment.User.DateFormat & " HH:MM:ss"
-                End If
+                'End If
             Catch ex As Exception
                 Logger.Error(ex)
             End Try
 
-            GridView.OptionsView.BestFitMaxRowCount = 30
+            GridView.OptionsView.BestFitMaxRowCount = 10
             GridView.BestFitColumns()
         Catch ex As ApplicationException
             MsgBox($"Error while loading grid data for search {Result.Title}: {vbNewLine}{vbNewLine}{ex.Message}", MsgBoxStyle.Critical, Text)
@@ -626,29 +644,41 @@ Public Class frmDocumentResultList
         End Try
     End Sub
 
+
+
     'Private Sub GridView1_CustomDrawCell(sender As Object, e As RowCellCustomDrawEventArgs) Handles GridView1.CustomDrawCell
-    '    Try
+    '    If e.RowHandle <> GridControl.NewItemRowHandle AndAlso e.Column.FieldName = COLUMN_ICON Then
-    '        If e.RowHandle < 0 Then
+    '        Dim oRow As DataRow = TryCast(sender, GridView)?.GetDataRow(e.RowHandle)
-    '            Exit Sub
-    '        End If
-
-    '        e.DefaultDraw()
-
-    '        Dim oView As GridView = TryCast(sender, GridView)
-    '        Dim oCellInfo As GridCellInfo = TryCast(e.Cell, GridCellInfo)
-    '        Dim oRow As DataRow = oView.GetDataRow(e.RowHandle)
     '        Dim oValue = oRow.Item(COLUMN_FILENAME)
 
-    '        If e.Column.FieldName = COLUMN_ICON Then
+    '        If oValue.ToString.EndsWith(".pdf") Then
-    '            Dim oIcon = Helpers.GetIconByExtension(oValue)
+    '            Dim oIcon = My.Resources.pdf
-    '            Dim offsetX = 0
+    '            e.Cache.DrawImage(oIcon, e.Bounds.X + 0, e.Bounds.Y + 0, 18, 18)
-    '            Dim offsetY = 0
-
-    '            e.Cache.DrawImage(oIcon, e.Bounds.X + offsetX, e.Bounds.Y + offsetY, 18, 18)
     '        End If
-    '    Catch ex As Exception
+    '    End If
-    '        Logger.Error(ex)
+
-    '    End Try
+    '    'Try
+    '    '    If e.RowHandle < 0 Then
+    '    '        Exit Sub
+    '    '    End If
+
+    '    '    e.DefaultDraw()
+
+    '    '    Dim oView As GridView = TryCast(sender, GridView)
+    '    '    Dim oCellInfo As GridCellInfo = TryCast(e.Cell, GridCellInfo)
+    '    '    Dim oRow As DataRow = oView.GetDataRow(e.RowHandle)
+    '    '    Dim oValue = oRow.Item(COLUMN_FILENAME)
+
+    '    '    If e.Column.FieldName = COLUMN_ICON Then
+    '    '        Dim oIcon = Helpers.GetIconByExtension(oValue)
+    '    '        Dim offsetX = 0
+    '    '        Dim offsetY = 0
+
+    '    '        e.Cache.DrawImage(oIcon, e.Bounds.X + offsetX, e.Bounds.Y + offsetY, 18, 18)
+    '    '    End If
+    '    'Catch ex As Exception
+    '    '    Logger.Error(ex)
+    '    'End Try
     'End Sub
 
     Private Sub BarButtonItemExportGrid1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItemExportGrid1.ItemClick
@@ -929,4 +959,23 @@ Public Class frmDocumentResultList
             Logger.Error(ex)
         End Try
     End Sub
+
+
+    Private Sub chkGridShowGrouping_CheckedChanged(sender As Object, e As ItemClickEventArgs) Handles chkGridShowGrouping.CheckedChanged
+        If _IsLoading = False Then
+            LayoutManager.SetGroupPanelVisible(chkGridShowGrouping.Checked)
+        End If
+    End Sub
+
+    Private Sub chkGridShowQuickfilter_CheckedChanged(sender As Object, e As ItemClickEventArgs) Handles chkGridShowQuickfilter.CheckedChanged
+        If _IsLoading = False Then
+            LayoutManager.SetFilterRowVisible(chkGridShowQuickfilter.Checked)
+        End If
+    End Sub
+
+    Private Sub chkGridShowTitle_CheckedChanged(sender As Object, e As ItemClickEventArgs) Handles chkGridShowTitle.CheckedChanged
+        If _IsLoading = False Then
+            LayoutManager.SetBandTitleVisible(chkGridShowTitle.Checked)
+        End If
+    End Sub
 End Class

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

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.btnBasicConfig = New DevExpress.XtraBars.BarButtonItem()
-        Me.BarButtonItemGlobixGE = New DevExpress.XtraBars.BarButtonItem()
+        Me.btnGlobixConfig = New DevExpress.XtraBars.BarButtonItem()
-        Me.BarButtonItem6 = New DevExpress.XtraBars.BarButtonItem()
+        Me.btnServiceConfig = New DevExpress.XtraBars.BarButtonItem()
-        Me.BarButtonItem7 = New DevExpress.XtraBars.BarButtonItem()
+        Me.btnDatabaseConfig = New DevExpress.XtraBars.BarButtonItem()
-        Me.BarButtonItem1 = New DevExpress.XtraBars.BarButtonItem()
+        Me.btnRestartZooflow = New DevExpress.XtraBars.BarButtonItem()
-        Me.buttonExitZooflow = 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.btnBasicConfig.Caption = "Grundeinstellungen"
-        Me.BarButtonItem8.Id = 9
+        Me.btnBasicConfig.Id = 9
-        Me.BarButtonItem8.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.properties
+        Me.btnBasicConfig.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.properties
-        Me.BarButtonItem8.Name = "BarButtonItem8"
+        Me.btnBasicConfig.Name = "btnBasicConfig"
         '
-        'BarButtonItemGlobixGE
+        'btnGlobixConfig
         '
-        Me.BarButtonItemGlobixGE.Caption = "Grundeinstellungen Globix"
+        Me.btnGlobixConfig.Caption = "Grundeinstellungen Globix"
-        Me.BarButtonItemGlobixGE.Id = 10
+        Me.btnGlobixConfig.Id = 10
-        Me.BarButtonItemGlobixGE.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItemGlobixGE.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
+        Me.btnGlobixConfig.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItemGlobixGE.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
-        Me.BarButtonItemGlobixGE.Name = "BarButtonItemGlobixGE"
+        Me.btnGlobixConfig.Name = "btnGlobixConfig"
         '
-        'BarButtonItem6
+        'btnServiceConfig
         '
-        Me.BarButtonItem6.Caption = "Dienstkonfiguration"
+        Me.btnServiceConfig.Caption = "Dienstkonfiguration"
-        Me.BarButtonItem6.Id = 7
+        Me.btnServiceConfig.Id = 7
-        Me.BarButtonItem6.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.servermode
+        Me.btnServiceConfig.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.servermode
-        Me.BarButtonItem6.Name = "BarButtonItem6"
+        Me.btnServiceConfig.Name = "btnServiceConfig"
         '
-        'BarButtonItem7
+        'btnDatabaseConfig
         '
-        Me.BarButtonItem7.Caption = "Datenbankkonfiguration"
+        Me.btnDatabaseConfig.Caption = "Datenbankkonfiguration"
-        Me.BarButtonItem7.Id = 8
+        Me.btnDatabaseConfig.Id = 8
-        Me.BarButtonItem7.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.managedatasource2
+        Me.btnDatabaseConfig.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.managedatasource2
-        Me.BarButtonItem7.Name = "BarButtonItem7"
+        Me.btnDatabaseConfig.Name = "btnDatabaseConfig"
         '
-        'BarButtonItem1
+        'btnRestartZooflow
         '
-        Me.BarButtonItem1.Caption = "Zooflow neustarten"
+        Me.btnRestartZooflow.Caption = "Zooflow neustarten"
-        Me.BarButtonItem1.Id = 6
+        Me.btnRestartZooflow.Id = 6
-        Me.BarButtonItem1.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.actions_refresh
+        Me.btnRestartZooflow.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.actions_refresh
-        Me.BarButtonItem1.Name = "BarButtonItem1"
+        Me.btnRestartZooflow.Name = "btnRestartZooflow"
         '
-        'buttonExitZooflow
+        'btnExitZooflow
         '
-        Me.buttonExitZooflow.Caption = "Zooflow beenden"
+        Me.btnExitZooflow.Caption = "Zooflow beenden"
-        Me.buttonExitZooflow.Id = 1
+        Me.btnExitZooflow.Id = 1
-        Me.buttonExitZooflow.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.cancel
+        Me.btnExitZooflow.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.cancel
-        Me.buttonExitZooflow.Name = "buttonExitZooflow"
+        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.Location = System.Drawing.ContentAlignment.BottomRight
-        Me.TaskBadge.Properties.Offset = New System.Drawing.Point(-5, -5)
+        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 btnRestartZooflow As DevExpress.XtraBars.BarButtonItem
-    Friend WithEvents BarButtonItem6 As DevExpress.XtraBars.BarButtonItem
+    Friend WithEvents btnServiceConfig As DevExpress.XtraBars.BarButtonItem
-    Friend WithEvents BarButtonItem7 As DevExpress.XtraBars.BarButtonItem
+    Friend WithEvents btnDatabaseConfig As DevExpress.XtraBars.BarButtonItem
-    Friend WithEvents BarButtonItem8 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

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
+        Y2U9InByZXNlcnZlIiBpZD0iRWJlbmVfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
-        MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9Cgku
+        MzAgMzAiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLnN0MHtjbGlwLXBhdGg6dXJsKCNTVkdJ
-        WWVsbG93e2ZpbGw6I0ZGQjExNTt9CgkuQmx1ZXtmaWxsOiMxMTc3RDc7fQoJLkdyZWVue2ZpbGw6IzAz
+        RF8yXyk7ZmlsbDojQTUyNDMxO30KPC9zdHlsZT4NCiAgPGc+DQogICAgPGRlZnM+DQogICAgICA8cmVj
-        OUMyMzt9CgkuUmVke2ZpbGw6I0QxMUMxQzt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh
+        dCB4PSIwIiB5PSIwIiB3aWR0aD0iMzAiIGhlaWdodD0iMzAiIHJ4PSIwIiByeT0iMCIgaWQ9IlNWR0lE
-        Y2l0eTowLjc1O30KCS5zdDF7b3BhY2l0eTowLjU7fQoJLnN0MntvcGFjaXR5OjAuMjU7fQo8L3N0eWxl
+        XzFfIiAvPg0KICAgIDwvZGVmcz4NCiAgICA8Y2xpcFBhdGggaWQ9IlNWR0lEXzJfIj4NCiAgICAgIDx1
-        Pg0KICA8ZyBpZD0iUHJvcGVydGllcyI+DQogICAgPHBhdGggZD0iTTMwLDE4di00bC00LjQtMC43Yy0w
+        c2UgeGxpbms6aHJlZj0iI1NWR0lEXzFfIiBzdHlsZT0ib3ZlcmZsb3c6dmlzaWJsZSIgLz4NCiAgICA8
-        LjItMC44LTAuNS0xLjUtMC45LTIuMWwyLjYtMy42bC0yLjgtMi44bC0zLjYsMi42Yy0wLjctMC40LTEu
+        L2NsaXBQYXRoPg0KICAgIDxwYXRoIGQ9Ik0xMi4wOSwyMi4wMmMtMy44Ny0xLjYtNS43MS02LjA1LTQu
-        NC0wLjctMi4xLTAuOUwxOCwyaC00ICAgbC0wLjcsNC40Yy0wLjgsMC4yLTEuNSwwLjUtMi4xLDAuOUw3
+        MTEtOS45MmMxLjYxLTMuODgsNi4wNS01LjcyLDkuOTItNC4xMWMzLjg4LDEuNiw1LjcyLDYuMDUsNC4x
-        LjUsNC43TDQuNyw3LjVsMi42LDMuNmMtMC40LDAuNy0wLjcsMS40LTAuOSwyLjFMMiwxNHY0bDQuNCww
+        MSw5LjkyICAgQzIwLjQxLDIxLjc4LDE1Ljk3LDIzLjYyLDEyLjA5LDIyLjAyIE0yLjUsMTIuOThjLTAu
-        LjdjMC4yLDAuOCwwLjUsMS41LDAuOSwyLjEgICBsLTIuNiwzLjZsMi44LDIuOGwzLjYtMi42YzAuNyww
+        MjIsMS4zNi0wLjIxLDIuNzIsMCw0LjA0TDAsMTguNDdsMS45NCw0LjY4bDIuOC0wLjc0ICAgYzAuNzgs
-        LjQsMS40LDAuNywyLjEsMC45TDE0LDMwaDRsMC43LTQuNGMwLjgtMC4yLDEuNS0wLjUsMi4xLTAuOWwz
+        MS4wOSwxLjc0LDIuMDYsMi44NiwyLjg2bC0wLjc0LDIuOEwxMS41MywzMGwxLjQ1LTIuNWMxLjM2LDAu
-        LjYsMi42bDIuOC0yLjhsLTIuNi0zLjYgICBjMC40LTAuNywwLjctMS40LDAuOS0yLjFMMzAsMTh6IE0x
+        MjIsMi43MiwwLjIxLDQuMDQsMGwxLjQ1LDIuNWw0LjY4LTEuOTRsLTAuNzUtMi44ICAgYzEuMDktMC43
-        NiwyMGMtMi4yLDAtNC0xLjgtNC00YzAtMi4yLDEuOC00LDQtNHM0LDEuOCw0LDRDMjAsMTguMiwxOC4y
+        OCwyLjA2LTEuNzQsMi44Ni0yLjg2bDIuOCwwLjc0TDMwLDE4LjQ3bC0yLjUtMS40NWMwLjIyLTEuMzYs
-        LDIwLDE2LDIweiIgY2xhc3M9IkJsdWUiIC8+DQogIDwvZz4NCjwvc3ZnPgs=
+        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>17, 56</value>
+    <value>990, 17</value>
   </metadata>
 </root>

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
 
 
@@ -1145,10 +1146,6 @@ Public Class frmFlowForm
         Await My.Database.GetDatatableIDBAsync(DocResultBaseSearch)
     End Function
 
-    Async Function RunQuickSearch2(pSearchText As String, pToken As CancellationToken) As Task
-
-    End Function
-
     Async Function RunQuickSearch1(pSearchText As String) As Threading.Tasks.Task
         Dim oHandle = SplashScreenManager.ShowOverlayForm(Me)
 
@@ -1220,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
+    Private Sub buttonExitZooflow_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles btnExitZooflow.ItemClick
-            Await CheckRunSearch1()
-
-        End If
-
-    End Function
-
-    Private Sub buttonExitZooflow_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles buttonExitZooflow.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"
@@ -1257,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)
@@ -1277,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
@@ -1293,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 Panel2_Paint(sender As Object, e As PaintEventArgs) Handles Panel2.Paint
-
-    End Sub
 End Class