MS FlowSearch und Ansatz DocumentResultlist

2021-02-02 11:06:42 +01:00
parent 15653490b1
commit de685806f0
20 changed files with 635 additions and 156 deletions
--- a/GUIs.Common/Common.vbproj
+++ b/GUIs.Common/Common.vbproj
@@ -250,5 +250,14 @@
  <ItemGroup>
    <None Include="Resources\Copy_32x32.png" />
  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\ZooFlow-Vergroessern.svg" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\zoom_less.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\zoom_more.png" />
+  </ItemGroup>
  <Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
 </Project>
--- a/GUIs.Common/DataResultList/frmDataResultList.Designer.vb
+++ b/GUIs.Common/DataResultList/frmDataResultList.Designer.vb
@@ -65,13 +65,13 @@ Partial Class frmDataResultList
        'RibbonControl1
        '
        Me.RibbonControl1.ExpandCollapseItem.Id = 0
-        Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.SwitchMainContainerHorizontal, Me.SwitchDetailContainerHorizontal, Me.labelResultCount, Me.BarButtonItem1, Me.BarButtonItem2})
+        Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.SwitchMainContainerHorizontal, Me.SwitchDetailContainerHorizontal, Me.labelResultCount, Me.BarButtonItem1, Me.BarButtonItem2, Me.RibbonControl1.SearchEditItem})
        Me.RibbonControl1.Location = New System.Drawing.Point(0, 0)
        Me.RibbonControl1.MaxItemId = 6
        Me.RibbonControl1.Name = "RibbonControl1"
        Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1})
        Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False]
-        Me.RibbonControl1.Size = New System.Drawing.Size(995, 143)
+        Me.RibbonControl1.Size = New System.Drawing.Size(995, 159)
        Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1
        '
        'SwitchMainContainerHorizontal
@@ -137,10 +137,10 @@ Partial Class frmDataResultList
        'RibbonStatusBar1
        '
        Me.RibbonStatusBar1.ItemLinks.Add(Me.labelResultCount)
-        Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 633)
+        Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 642)
        Me.RibbonStatusBar1.Name = "RibbonStatusBar1"
        Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1
-        Me.RibbonStatusBar1.Size = New System.Drawing.Size(995, 31)
+        Me.RibbonStatusBar1.Size = New System.Drawing.Size(995, 22)
        '
        'RibbonPage2
        '
@@ -151,13 +151,13 @@ Partial Class frmDataResultList
        '
        Me.SplitContainerControl1.CollapsePanel = DevExpress.XtraEditors.SplitCollapsePanel.Panel2
        Me.SplitContainerControl1.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.SplitContainerControl1.Location = New System.Drawing.Point(0, 143)
+        Me.SplitContainerControl1.Location = New System.Drawing.Point(0, 159)
        Me.SplitContainerControl1.Name = "SplitContainerControl1"
        Me.SplitContainerControl1.Panel1.Controls.Add(Me.GridControl1)
        Me.SplitContainerControl1.Panel1.Text = "Panel1"
        Me.SplitContainerControl1.Panel2.Controls.Add(Me.SplitContainerControl2)
        Me.SplitContainerControl1.Panel2.Text = "Panel2"
-        Me.SplitContainerControl1.Size = New System.Drawing.Size(995, 490)
+        Me.SplitContainerControl1.Size = New System.Drawing.Size(995, 483)
        Me.SplitContainerControl1.SplitterPosition = 401
        Me.SplitContainerControl1.TabIndex = 2
        Me.SplitContainerControl1.Text = "SplitContainerControl1"
@@ -169,7 +169,7 @@ Partial Class frmDataResultList
        Me.GridControl1.MainView = Me.GridView1
        Me.GridControl1.MenuManager = Me.RibbonControl1
        Me.GridControl1.Name = "GridControl1"
-        Me.GridControl1.Size = New System.Drawing.Size(401, 490)
+        Me.GridControl1.Size = New System.Drawing.Size(401, 483)
        Me.GridControl1.TabIndex = 0
        Me.GridControl1.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView1})
        '
@@ -182,7 +182,7 @@ Partial Class frmDataResultList
        '
        'GridBand1
        '
-        Me.GridBand1.AppearanceHeader.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.GridBand1.AppearanceHeader.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Bold)
        Me.GridBand1.AppearanceHeader.Options.UseFont = True
        Me.GridBand1.Caption = "GridBand1"
        Me.GridBand1.Name = "GridBand1"
@@ -199,7 +199,7 @@ Partial Class frmDataResultList
        Me.SplitContainerControl2.Panel1.Text = "Panel1"
        Me.SplitContainerControl2.Panel2.Controls.Add(Me.GridControl3)
        Me.SplitContainerControl2.Panel2.Text = "Panel2"
-        Me.SplitContainerControl2.Size = New System.Drawing.Size(589, 490)
+        Me.SplitContainerControl2.Size = New System.Drawing.Size(584, 483)
        Me.SplitContainerControl2.SplitterPosition = 264
        Me.SplitContainerControl2.TabIndex = 0
        Me.SplitContainerControl2.Text = "SplitContainerControl2"
@@ -211,7 +211,7 @@ Partial Class frmDataResultList
        Me.GridControl2.MainView = Me.GridView2
        Me.GridControl2.MenuManager = Me.RibbonControl1
        Me.GridControl2.Name = "GridControl2"
-        Me.GridControl2.Size = New System.Drawing.Size(589, 264)
+        Me.GridControl2.Size = New System.Drawing.Size(584, 264)
        Me.GridControl2.TabIndex = 0
        Me.GridControl2.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView2})
        '
@@ -224,7 +224,7 @@ Partial Class frmDataResultList
        '
        'GridBand2
        '
-        Me.GridBand2.AppearanceHeader.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.GridBand2.AppearanceHeader.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Bold)
        Me.GridBand2.AppearanceHeader.Options.UseFont = True
        Me.GridBand2.Caption = "GridBand2"
        Me.GridBand2.Name = "GridBand2"
@@ -237,7 +237,7 @@ Partial Class frmDataResultList
        Me.GridControl3.MainView = Me.GridView3
        Me.GridControl3.MenuManager = Me.RibbonControl1
        Me.GridControl3.Name = "GridControl3"
-        Me.GridControl3.Size = New System.Drawing.Size(589, 221)
+        Me.GridControl3.Size = New System.Drawing.Size(584, 209)
        Me.GridControl3.TabIndex = 0
        Me.GridControl3.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView3})
        '
@@ -250,7 +250,7 @@ Partial Class frmDataResultList
        '
        'GridBand3
        '
-        Me.GridBand3.AppearanceHeader.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.GridBand3.AppearanceHeader.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Bold)
        Me.GridBand3.AppearanceHeader.Options.UseFont = True
        Me.GridBand3.Caption = "GridBand3"
        Me.GridBand3.Name = "GridBand3"
@@ -273,9 +273,9 @@ Partial Class frmDataResultList
        Me.Controls.Add(Me.SplitContainerControl1)
        Me.Controls.Add(Me.RibbonStatusBar1)
        Me.Controls.Add(Me.RibbonControl1)
+        Me.IconOptions.ShowIcon = False
        Me.Name = "frmDataResultList"
        Me.Ribbon = Me.RibbonControl1
-        Me.ShowIcon = False
        Me.StatusBar = Me.RibbonStatusBar1
        Me.Text = "Daten Suche"
        CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit()
--- a/GUIs.Common/DataResultList/frmDataResultList.vb
+++ b/GUIs.Common/DataResultList/frmDataResultList.vb
@@ -11,6 +11,7 @@ Imports DigitalData.Modules.Language
 Imports DevExpress.XtraPrinting
 Imports DigitalData.GUIs.Common
 Imports System.ComponentModel
+Imports DevExpress.XtraGrid.Views.Grid.ViewInfo

 Public Class frmDataResultList
    Implements IResultForm
@@ -282,4 +283,6 @@ Public Class frmDataResultList
    Public Function RefreshResults(pResults As IEnumerable(Of BaseResult)) As Boolean Implements IResultForm.RefreshResults
        'TODO: Implement
    End Function
+
+
 End Class
--- a/GUIs.Common/DocumentResultList/frmDocumentResultList.Designer.vb
+++ b/GUIs.Common/DocumentResultList/frmDocumentResultList.Designer.vb
@@ -84,7 +84,7 @@ Partial Class frmDocumentResultList
        Me.RibbonControl.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1})
        Me.RibbonControl.RepositoryItems.AddRange(New DevExpress.XtraEditors.Repository.RepositoryItem() {Me.RepositoryItemTextEdit1, Me.RepositoryItemTextEdit2})
        Me.RibbonControl.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False]
-        Me.RibbonControl.Size = New System.Drawing.Size(1189, 158)
+        Me.RibbonControl.Size = New System.Drawing.Size(1189, 159)
        Me.RibbonControl.StatusBar = Me.RibbonStatusBar
        '
        'SwitchMainContainerHorizontal
@@ -107,6 +107,7 @@ Partial Class frmDocumentResultList
        Me.BarButtonItemExportGrid1.Id = 3
        Me.BarButtonItemExportGrid1.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItemExportGrid1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
        Me.BarButtonItemExportGrid1.Name = "BarButtonItemExportGrid1"
+        Me.BarButtonItemExportGrid1.Visibility = DevExpress.XtraBars.BarItemVisibility.OnlyInCustomizing
        '
        'BarButtonItem1
        '
@@ -159,6 +160,7 @@ Partial Class frmDocumentResultList
        Me.BarButtonItem5.Id = 10
        Me.BarButtonItem5.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem5.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
        Me.BarButtonItem5.Name = "BarButtonItem5"
+        Me.BarButtonItem5.Visibility = DevExpress.XtraBars.BarItemVisibility.OnlyInCustomizing
        '
        'BarEditItem1
        '
@@ -206,6 +208,7 @@ Partial Class frmDocumentResultList
        Me.labelWarning.ItemAppearance.Normal.BackColor = System.Drawing.Color.White
        Me.labelWarning.ItemAppearance.Normal.Options.UseBackColor = True
        Me.labelWarning.Name = "labelWarning"
+        Me.labelWarning.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph
        Me.labelWarning.Visibility = DevExpress.XtraBars.BarItemVisibility.OnlyInCustomizing
        '
        'RibbonPage1
@@ -242,10 +245,10 @@ Partial Class frmDocumentResultList
        Me.RibbonStatusBar.ItemLinks.Add(Me.labelResultCount)
        Me.RibbonStatusBar.ItemLinks.Add(Me.labelCriticalError)
        Me.RibbonStatusBar.ItemLinks.Add(Me.labelWarning)
-        Me.RibbonStatusBar.Location = New System.Drawing.Point(0, 647)
+        Me.RibbonStatusBar.Location = New System.Drawing.Point(0, 649)
        Me.RibbonStatusBar.Name = "RibbonStatusBar"
        Me.RibbonStatusBar.Ribbon = Me.RibbonControl
-        Me.RibbonStatusBar.Size = New System.Drawing.Size(1189, 24)
+        Me.RibbonStatusBar.Size = New System.Drawing.Size(1189, 22)
        '
        'SplitContainerControl1
        '
@@ -257,7 +260,7 @@ Partial Class frmDocumentResultList
        Me.SplitContainerControl1.Panel1.Text = "Panel1"
        Me.SplitContainerControl1.Panel2.Controls.Add(Me.SplitContainerControl2)
        Me.SplitContainerControl1.Panel2.Text = "Panel2"
-        Me.SplitContainerControl1.Size = New System.Drawing.Size(762, 489)
+        Me.SplitContainerControl1.Size = New System.Drawing.Size(762, 490)
        Me.SplitContainerControl1.SplitterPosition = 382
        Me.SplitContainerControl1.TabIndex = 2
        Me.SplitContainerControl1.Text = "SplitContainerControl1"
@@ -269,13 +272,13 @@ Partial Class frmDocumentResultList
        Me.GridControl1.MainView = Me.GridView1
        Me.GridControl1.MenuManager = Me.RibbonControl
        Me.GridControl1.Name = "GridControl1"
-        Me.GridControl1.Size = New System.Drawing.Size(382, 489)
+        Me.GridControl1.Size = New System.Drawing.Size(382, 490)
        Me.GridControl1.TabIndex = 0
        Me.GridControl1.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView1})
        '
        'GridView1
        '
-        Me.GridView1.Appearance.EvenRow.BackColor = System.Drawing.Color.WhiteSmoke
+        Me.GridView1.Appearance.EvenRow.BackColor = System.Drawing.Color.Gainsboro
        Me.GridView1.Appearance.EvenRow.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.Options.UseBackColor = True
@@ -309,7 +312,7 @@ Partial Class frmDocumentResultList
        Me.SplitContainerControl2.Panel1.Text = "Panel1"
        Me.SplitContainerControl2.Panel2.Controls.Add(Me.GridControl3)
        Me.SplitContainerControl2.Panel2.Text = "Panel2"
-        Me.SplitContainerControl2.Size = New System.Drawing.Size(370, 489)
+        Me.SplitContainerControl2.Size = New System.Drawing.Size(370, 490)
        Me.SplitContainerControl2.SplitterPosition = 223
        Me.SplitContainerControl2.TabIndex = 0
        Me.SplitContainerControl2.Text = "SplitContainerControl2"
@@ -327,7 +330,7 @@ Partial Class frmDocumentResultList
        '
        'GridView2
        '
-        Me.GridView2.Appearance.EvenRow.BackColor = System.Drawing.Color.WhiteSmoke
+        Me.GridView2.Appearance.EvenRow.BackColor = System.Drawing.Color.Gainsboro
        Me.GridView2.Appearance.EvenRow.Options.UseBackColor = True
        Me.GridView2.Bands.AddRange(New DevExpress.XtraGrid.Views.BandedGrid.GridBand() {Me.GridBand2})
        Me.GridView2.GridControl = Me.GridControl2
@@ -354,13 +357,13 @@ Partial Class frmDocumentResultList
        Me.GridControl3.MainView = Me.GridView3
        Me.GridControl3.MenuManager = Me.RibbonControl
        Me.GridControl3.Name = "GridControl3"
-        Me.GridControl3.Size = New System.Drawing.Size(370, 256)
+        Me.GridControl3.Size = New System.Drawing.Size(370, 257)
        Me.GridControl3.TabIndex = 0
        Me.GridControl3.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView3})
        '
        'GridView3
        '
-        Me.GridView3.Appearance.EvenRow.BackColor = System.Drawing.Color.WhiteSmoke
+        Me.GridView3.Appearance.EvenRow.BackColor = System.Drawing.Color.Gainsboro
        Me.GridView3.Appearance.EvenRow.Options.UseBackColor = True
        Me.GridView3.Bands.AddRange(New DevExpress.XtraGrid.Views.BandedGrid.GridBand() {Me.GridBand3})
        Me.GridView3.GridControl = Me.GridControl3
@@ -383,13 +386,13 @@ Partial Class frmDocumentResultList
        'SplitContainerControl3
        '
        Me.SplitContainerControl3.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.SplitContainerControl3.Location = New System.Drawing.Point(0, 158)
+        Me.SplitContainerControl3.Location = New System.Drawing.Point(0, 159)
        Me.SplitContainerControl3.Name = "SplitContainerControl3"
        Me.SplitContainerControl3.Panel1.Controls.Add(Me.SplitContainerControl1)
        Me.SplitContainerControl3.Panel1.Text = "Panel1"
        Me.SplitContainerControl3.Panel2.Controls.Add(Me.DocumentViewer1)
        Me.SplitContainerControl3.Panel2.Text = "Panel2"
-        Me.SplitContainerControl3.Size = New System.Drawing.Size(1189, 489)
+        Me.SplitContainerControl3.Size = New System.Drawing.Size(1189, 490)
        Me.SplitContainerControl3.SplitterPosition = 762
        Me.SplitContainerControl3.TabIndex = 5
        Me.SplitContainerControl3.Text = "SplitContainerControl3"
@@ -400,7 +403,7 @@ Partial Class frmDocumentResultList
        Me.DocumentViewer1.FileLoaded = False
        Me.DocumentViewer1.Location = New System.Drawing.Point(0, 0)
        Me.DocumentViewer1.Name = "DocumentViewer1"
-        Me.DocumentViewer1.Size = New System.Drawing.Size(417, 489)
+        Me.DocumentViewer1.Size = New System.Drawing.Size(417, 490)
        Me.DocumentViewer1.TabIndex = 0
        '
        'XtraSaveFileDialog
@@ -417,6 +420,7 @@ Partial Class frmDocumentResultList
        Me.Controls.Add(Me.RibbonStatusBar)
        Me.Controls.Add(Me.RibbonControl)
        Me.IconOptions.Icon = CType(resources.GetObject("frmDocumentResultList.IconOptions.Icon"), System.Drawing.Icon)
+        Me.IconOptions.Image = Global.DigitalData.GUIs.Common.My.Resources.Resources.zoom_less
        Me.IconOptions.ShowIcon = False
        Me.Name = "frmDocumentResultList"
        Me.Ribbon = Me.RibbonControl
--- a/GUIs.Common/DocumentResultList/frmDocumentResultList.vb
+++ b/GUIs.Common/DocumentResultList/frmDocumentResultList.vb
@@ -15,6 +15,8 @@ Imports DigitalData.Modules.EDMI.API.Client
 Imports DevExpress.XtraGrid.Views.Base
 Imports DevExpress.XtraGrid.Views.BandedGrid
 Imports System.ComponentModel
+Imports DevExpress.XtraGrid.Views.Grid.ViewInfo
+Imports DevExpress.XtraEditors.ViewInfo

 Public Class frmDocumentResultList
    Implements IResultForm
@@ -220,15 +222,18 @@ Public Class frmDocumentResultList
                Case 0
                    Dim oResult As DocumentResult = _ResultLists.Item(0)
                    CreateDocumentGrid(GridView1, oResult)
+                    RestoreLayout(GridView1)
                    UpdateGridHeader(_ResultLists, index, oResult.Datatable.Rows.Count)
                Case 1
                    Dim oResult As DocumentResult = _ResultLists.Item(1)
                    CreateDocumentGrid(GridView2, oResult)
+                    RestoreLayout(GridView1)
                    UpdateGridHeader(_ResultLists, index, oResult.Datatable.Rows.Count)

                Case 2
                    Dim oResult As DocumentResult = _ResultLists.Item(2)
                    CreateDocumentGrid(GridView3, oResult)
+                    RestoreLayout(GridView1)
                    UpdateGridHeader(_ResultLists, index, oResult.Datatable.Rows.Count)

                Case Else
@@ -425,7 +430,26 @@ Public Class frmDocumentResultList
            _Logger.Error(ex)
        End Try
    End Sub
-
+    Private Sub GridView1_CustomDrawCell(sender As Object, e As RowCellCustomDrawEventArgs) Handles GridView1.CustomDrawCell
+        Dim view As GridView = TryCast(sender, GridView)
+        If e.Column.FieldName = "Name" Then
+            Dim cellInfo As GridCellInfo = TryCast(e.Cell, GridCellInfo)
+            Dim info As TextEditViewInfo = TryCast(cellInfo.ViewInfo, TextEditViewInfo)
+            If info IsNot Nothing Then
+                If OperationMode = IResultForm.Mode.NoAppServer Then
+                    '        oNewRow.Item(COLUMN_ICON) = _Helpers.GetIconByExtension(oFullpath)
+                    '        oNewRow.Item(COLUMN_FILEPATH) = oFullpath
+                    '        oNewRow.Item(COLUMN_FILENAME) = oFilename
+                Else
+                    'info.ContextImage = _Helpers.GetIconByExtension(oFilename)
+                    '        oNewRow.Item(COLUMN_ICON) = _Helpers.GetIconByExtension(oFilename)
+                    '        oNewRow.Item(COLUMN_FILEPATH) = String.Empty
+                    '        oNewRow.Item(COLUMN_FILENAME) = oFilename
+                End If
+                info.CalcViewInfo()
+            End If
+        End If
+    End Sub
    Private Function TryGetItem(DataRow As DataRow, ColumnName As String, Optional DefaultValue As String = "") As String
        Try
            Return DataRow.Item(ColumnName)
@@ -499,7 +523,10 @@ Public Class frmDocumentResultList
            Return Nothing
        End If
    End Function
-
+    Private Function GetDevexpressGrid_LayoutName(pGridView As GridView)
+        Dim Filename As String = $"DevExpressGridViewDocResult_{pGridView.Name}UserLayout.xml"
+        Return System.IO.Path.Combine(_Config.UserConfigPath.Replace("UserConfig.xml", ""), Filename)
+    End Function
    Private Function GetActiveGridControl() As GridControl
        If _ActiveGrid Is Nothing Then
            Return Nothing
@@ -508,10 +535,30 @@ Public Class frmDocumentResultList
        Return _ActiveGrid
    End Function

+    Private Sub GridViewSave_Layout(pGridView As GridView)
+        Try
+            Dim oXml As String = GetDevexpressGrid_LayoutName(pGridView)
+            pGridView.SaveLayoutToXml(oXml, OptionsLayoutBase.FullLayout)
+        Catch ex As Exception
+            _Logger.Error(ex)
+            _Logger.Info("Error while saving GridLayout: " & ex.Message)
+        End Try
+    End Sub
+    Private Sub RestoreLayout(pGridView As GridView)

+        Try
+            Dim oXml As String = GetDevexpressGrid_LayoutName(pGridView)
+            pGridView.RestoreLayoutFromXml(oXml, OptionsLayoutBase.FullLayout)
+        Catch ex As Exception
+            _Logger.Error(ex)
+            _Logger.Info("Error while restoring layout: " & ex.Message)
+        End Try
+    End Sub

    Private Sub GridControl_Enter(sender As GridControl, e As EventArgs) Handles GridControl1.Enter, GridControl2.Enter, GridControl3.Enter
        _ActiveGrid = sender
+        BarButtonItem5.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
+        BarButtonItemExportGrid1.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
        SetActiveGridBand()
    End Sub

@@ -665,4 +712,26 @@ Public Class frmDocumentResultList
        labelCriticalError.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
        labelWarning.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
    End Sub
+
+    Private Sub BarButtonItem5_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem5.ItemClick
+        If Not IsNothing(_ActiveGrid) Then
+            Try
+                Dim oFile = GetDevexpressGrid_LayoutName(_ActiveGrid.MainView)
+                If File.Exists(oFile) Then
+                    File.Delete(oFile)
+                    UpdateGridData()
+                End If
+            Catch ex As Exception
+
+            End Try
+        End If
+
+
+    End Sub
+
+    Private Sub frmDocumentResultList_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
+        GridViewSave_Layout(_ActiveGrid.MainView)
+    End Sub
+
+
 End Class
--- a/Project/Resources.Designer.vb
+++ b/Project/Resources.Designer.vb
@@ -22,7 +22,7 @@ Namespace My.Resources
    '''<summary>
    '''  Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw.
    '''</summary>
-    <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "15.0.0.0"),  _
+    <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "16.0.0.0"),  _
     Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
     Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(),  _
     Global.Microsoft.VisualBasic.HideModuleNameAttribute()>  _
@@ -209,5 +209,35 @@ Namespace My.Resources
                Return CType(obj,System.Drawing.Bitmap)
            End Get
        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage.
+        '''</summary>
+        Friend ReadOnly Property ZooFlow_Vergroessern() As DevExpress.Utils.Svg.SvgImage
+            Get
+                Dim obj As Object = ResourceManager.GetObject("ZooFlow-Vergroessern", resourceCulture)
+                Return CType(obj,DevExpress.Utils.Svg.SvgImage)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property zoom_less() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("zoom_less", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property zoom_more() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("zoom_more", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
    End Module
 End Namespace
--- a/Project/Resources.resx
+++ b/Project/Resources.resx
@@ -142,25 +142,34 @@
  <data name="doc" type="System.Resources.ResXFileRef, System.Windows.Forms">
    <value>..\Resources\doc.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</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="txt" type="System.Resources.ResXFileRef, System.Windows.Forms">
    <value>..\Resources\txt.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</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="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="_blank" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\_blank.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="dxf" type="System.Resources.ResXFileRef, System.Windows.Forms">
    <value>..\Resources\dxf.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</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 name="_blank" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\_blank.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</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 name="ZooFlow-Vergroessern" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\ZooFlow-Vergroessern.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.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>
+  <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>
 </root>
--- a/GUIs.Common/Resources/ZooFlow-Vergroessern.svg
+++ b/GUIs.Common/Resources/ZooFlow-Vergroessern.svg
@@ -0,0 +1 @@
+<svg id="Ebene_1" data-name="Ebene 1" xmlns="http://www.w3.org/2000/svg" viewBox="0 0 20 20"><defs><style>.cls-1,.cls-2,.cls-3{fill:none;}.cls-1,.cls-2{stroke:#706f6f;}.cls-1{stroke-width:2px;}.cls-2{stroke-width:2.44px;}.cls-3{stroke:#a52431;stroke-width:1.5px;}</style></defs><path class="cls-1" d="M11.4732,11.47a5.6507,5.6507,0,1,0-7.9913,0A5.65,5.65,0,0,0,11.4732,11.47Z"/><line class="cls-2" x1="11.8093" y1="11.768" x2="18.1725" y2="18.1755"/><line class="cls-3" x1="7.4778" y1="4.9958" x2="7.4778" y2="9.9535"/><line class="cls-3" x1="9.9568" y1="7.4748" x2="4.9991" y2="7.4748"/></svg>
--- a/GUIs.Common/Resources/zoom_less.png
+++ b/GUIs.Common/Resources/zoom_less.png
--- a/GUIs.Common/Resources/zoom_more.png
+++ b/GUIs.Common/Resources/zoom_more.png
				`@@ -0,0 +1 @@`
				<svg id="Ebene_1" data-name="Ebene 1" xmlns="http://www.w3.org/2000/svg" viewBox="0 0 20 20"><defs><style>.cls-1,.cls-2,.cls-3{fill:none;}.cls-1,.cls-2{stroke:#706f6f;}.cls-1{stroke-width:2px;}.cls-2{stroke-width:2.44px;}.cls-3{stroke:#a52431;stroke-width:1.5px;}</style></defs><path class="cls-1" d="M11.4732,11.47a5.6507,5.6507,0,1,0-7.9913,0A5.65,5.65,0,0,0,11.4732,11.47Z"/><line class="cls-2" x1="11.8093" y1="11.768" x2="18.1725" y2="18.1755"/><line class="cls-3" x1="7.4778" y1="4.9958" x2="7.4778" y2="9.9535"/><line class="cls-3" x1="9.9568" y1="7.4748" x2="4.9991" y2="7.4748"/></svg>