MS FlowSearch und Ansatz DocumentResultlist

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