DocumentResultList: Layout et al

2022-03-21 16:35:01 +01:00
parent 9ff649e793
commit 53e702374b
12 changed files with 414 additions and 231 deletions
--- a/GUIs.Common/DocumentResultList/Layout.vb
+++ b/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
--- a/GUIs.Common/ObjectPropertyDialog/AttributeControls.vb
+++ b/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
-            If TypeOf oItem.Control Is BaseEdit Then
-                Dim oValue = Await GetAttributeValue(oItem.Name, pObjectId)
-                Dim oEdit = DirectCast(oItem.Control, BaseEdit)
+    Public Async Function LoadControlValuesForAttributes(pObjectId As Long, LayoutRoot As LayoutControlGroup) As Task
+        For Each oItem As BaseLayoutItem In LayoutRoot.Items
+            If TypeOf oItem Is LayoutControlGroup Then
+                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 oValueTable = Await GetAttributeValueAsTable(oItem.Name, pObjectId)
-                Dim oGrid = DirectCast(oItem.Control, GridControl)
-                oGrid.DataSource = oValueTable
+                    Dim oValue = Await GetAttributeValue(oItem.Name, pObjectId)
+                    oEdit.EditValue = oValue

+                    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
--- a/GUIs.Common/ObjectPropertyDialog/ctrlObjectPropertyDialog.Designer.vb
+++ b/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()
@@ -67,7 +68,6 @@ Partial Class ctrlObjectPropertyDialog
        Me.barDockControlBottom = New DevExpress.XtraBars.BarDockControl()
        Me.barDockControlLeft = New DevExpress.XtraBars.BarDockControl()
        Me.barDockControlRight = New DevExpress.XtraBars.BarDockControl()
-        Me.XtraTabPage1 = New DevExpress.XtraTab.XtraTabPage()
        BarStaticItem1 = New DevExpress.XtraBars.BarStaticItem()
        CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.XtraTabControl1.SuspendLayout()
@@ -126,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.XtraTabPage1})
+        Me.XtraTabControl1.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPageAttributes, Me.XtraTabPageObject, Me.XtraTabPageAttributeHistory, Me.XtraTabPageVersions})
        '
        'XtraTabPageObject
        '
@@ -431,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
@@ -467,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})
@@ -540,12 +547,6 @@ Partial Class ctrlObjectPropertyDialog
        Me.barDockControlRight.Manager = Me.BarManager1
        Me.barDockControlRight.Size = New System.Drawing.Size(0, 693)
        '
-        'XtraTabPage1
-        '
-        Me.XtraTabPage1.Name = "XtraTabPage1"
-        Me.XtraTabPage1.Size = New System.Drawing.Size(503, 668)
-        Me.XtraTabPage1.Text = "Versionen"
-        '
        'ctrlObjectPropertyDialog
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -644,5 +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 XtraTabPage1 As DevExpress.XtraTab.XtraTabPage
+    Friend WithEvents XtraTabPageVersions As DevExpress.XtraTab.XtraTabPage
 End Class
--- a/GUIs.Common/ObjectPropertyDialog/ctrlObjectPropertyDialog.vb
+++ b/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
--- a/GUIs.Common/ObjectPropertyDialog/frmObjectPropertyDialog.vb
+++ b/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
--- a/GUIs.Common/frmDocumentResultList.Designer.vb
+++ b/GUIs.Common/frmDocumentResultList.Designer.vb
@@ -54,6 +54,9 @@ Partial Class frmDocumentResultList
        Me.BarButtonItem8 = New DevExpress.XtraBars.BarButtonItem()
        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()
@@ -61,14 +64,16 @@ Partial Class frmDocumentResultList
        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.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
+        Me.RibbonPageGroup9 = 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()
@@ -177,14 +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.BarButtonItem7, Me.BarButtonItem8, Me.BarButtonItem9, Me.BarButtonItem10})
+        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 = 40
+        Me.RibbonControl.MaxItemId = 43
        Me.RibbonControl.Name = "RibbonControl"
        Me.RibbonControl.PageCategories.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageCategory() {Me.RibbonPageCategoryFile})
-        Me.RibbonControl.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1, Me.RibbonPage2, Me.RibbonPageExport})
+        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
@@ -396,6 +400,24 @@ Partial Class frmDocumentResultList
        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
@@ -434,19 +456,24 @@ Partial Class frmDocumentResultList
        '
        'RibbonPage3
        '
-        Me.RibbonPage3.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup4})
+        Me.RibbonPage3.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup4, Me.RibbonPageGroup8})
        Me.RibbonPage3.Name = "RibbonPage3"
        resources.ApplyResources(Me.RibbonPage3, "RibbonPage3")
        '
        'RibbonPageGroup4
        '
        Me.RibbonPageGroup4.ItemLinks.Add(Me.BarButtonItem7)
-        Me.RibbonPageGroup4.ItemLinks.Add(Me.BarButtonItem8)
-        Me.RibbonPageGroup4.ItemLinks.Add(Me.BarButtonItem9)
-        Me.RibbonPageGroup4.ItemLinks.Add(Me.BarButtonItem10)
        Me.RibbonPageGroup4.Name = "RibbonPageGroup4"
        resources.ApplyResources(Me.RibbonPageGroup4, "RibbonPageGroup4")
        '
+        'RibbonPageGroup8
+        '
+        Me.RibbonPageGroup8.ItemLinks.Add(Me.BarButtonItem9)
+        Me.RibbonPageGroup8.ItemLinks.Add(Me.BarButtonItem8)
+        Me.RibbonPageGroup8.ItemLinks.Add(Me.BarButtonItem10)
+        Me.RibbonPageGroup8.Name = "RibbonPageGroup8"
+        resources.ApplyResources(Me.RibbonPageGroup8, "RibbonPageGroup8")
+        '
        'RibbonPage1
        '
        Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup_Navigation, Me.RibbonPageGroup5})
@@ -467,9 +494,21 @@ Partial Class frmDocumentResultList
        Me.RibbonPageGroup5.Name = "RibbonPageGroup5"
        resources.ApplyResources(Me.RibbonPageGroup5, "RibbonPageGroup5")
        '
+        'RibbonPageExport
+        '
+        Me.RibbonPageExport.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup2})
+        Me.RibbonPageExport.Name = "RibbonPageExport"
+        resources.ApplyResources(Me.RibbonPageExport, "RibbonPageExport")
+        '
+        'RibbonPageGroup2
+        '
+        Me.RibbonPageGroup2.ItemLinks.Add(Me.BarButtonItemExportGrid1)
+        Me.RibbonPageGroup2.Name = "RibbonPageGroup2"
+        resources.ApplyResources(Me.RibbonPageGroup2, "RibbonPageGroup2")
+        '
        'RibbonPage2
        '
-        Me.RibbonPage2.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup_Layout, Me.RibbonPageGroup1})
+        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")
        '
@@ -482,23 +521,18 @@ Partial Class frmDocumentResultList
        '
        'RibbonPageGroup1
        '
-        Me.RibbonPageGroup1.Alignment = DevExpress.XtraBars.Ribbon.RibbonPageGroupAlignment.Far
        Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonResetLayout)
        Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem6)
        Me.RibbonPageGroup1.Name = "RibbonPageGroup1"
        resources.ApplyResources(Me.RibbonPageGroup1, "RibbonPageGroup1")
        '
-        'RibbonPageExport
+        'RibbonPageGroup9
        '
-        Me.RibbonPageExport.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup2})
-        Me.RibbonPageExport.Name = "RibbonPageExport"
-        resources.ApplyResources(Me.RibbonPageExport, "RibbonPageExport")
-        '
-        'RibbonPageGroup2
-        '
-        Me.RibbonPageGroup2.ItemLinks.Add(Me.BarButtonItemExportGrid1)
-        Me.RibbonPageGroup2.Name = "RibbonPageGroup2"
-        resources.ApplyResources(Me.RibbonPageGroup2, "RibbonPageGroup2")
+        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
        '
@@ -792,4 +826,9 @@ Partial Class frmDocumentResultList
    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
--- a/GUIs.Common/frmDocumentResultList.resx
+++ b/GUIs.Common/frmDocumentResultList.resx
@@ -459,6 +459,15 @@
  <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>
@@ -477,6 +486,9 @@
  <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>
@@ -492,21 +504,24 @@
  <data name="RibbonPage1.Text" xml:space="preserve">
    <value>Start</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="RibbonPage2.Text" xml:space="preserve">
-    <value>Layout</value>
-  </data>
  <data name="RibbonPageGroup2.Text" xml:space="preserve">
    <value>RibbonPageGroup2</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>
@@ -515,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>
@@ -548,7 +563,7 @@
    <value>4</value>
  </data>
  <data name="GridControl1.Size" type="System.Drawing.Size, System.Drawing">
-    <value>568, 529</value>
+    <value>568, 460</value>
  </data>
  <data name="GridControl1.TabIndex" type="System.Int32, mscorlib">
    <value>0</value>
@@ -719,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>
@@ -746,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>
@@ -785,7 +800,7 @@
    <value>3, 26</value>
  </data>
  <data name="DockPanel1_Container.Size" type="System.Drawing.Size, System.Drawing">
-    <value>318, 528</value>
+    <value>318, 459</value>
  </data>
  <data name="DockPanel1_Container.TabIndex" type="System.Int32, mscorlib">
    <value>0</value>
@@ -803,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>
@@ -830,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>
@@ -851,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>
@@ -869,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>
@@ -893,7 +908,7 @@
    <value>3, 26</value>
  </data>
  <data name="DockPanel2_Container.Size" type="System.Drawing.Size, System.Drawing">
-    <value>578, 529</value>
+    <value>578, 460</value>
  </data>
  <data name="DockPanel2_Container.TabIndex" type="System.Int32, mscorlib">
    <value>0</value>
@@ -911,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>
@@ -1194,6 +1209,24 @@
  <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>
@@ -1236,6 +1269,12 @@
  <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>
@@ -1254,6 +1293,18 @@
  <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>
@@ -1272,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">
-    <value>RibbonPageExport</value>
+  <data name="&gt;&gt;RibbonPageGroup9.Name" xml:space="preserve">
+    <value>RibbonPageGroup9</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">
+  <data name="&gt;&gt;RibbonPageGroup9.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">
--- a/GUIs.Common/frmDocumentResultList.vb
+++ b/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
@@ -199,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")

@@ -953,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