From 04db51f84511280f09b22c765a0f8e1606e6c63b Mon Sep 17 00:00:00 2001
From: Jonathan Jenne <j.jenne@digitaldata.works>
Date: Wed, 19 May 2021 13:18:03 +0200
Subject: [PATCH] Common: Use GridBuilder in DocumentResultList

---
 .../frmDocumentResultList.vb                  | 34 +++++++++++--------
 1 file changed, 20 insertions(+), 14 deletions(-)

diff --git a/GUIs.Common/DocumentResultList/frmDocumentResultList.vb b/GUIs.Common/DocumentResultList/frmDocumentResultList.vb
index c3598a5e..d1b5756e 100644
--- a/GUIs.Common/DocumentResultList/frmDocumentResultList.vb
+++ b/GUIs.Common/DocumentResultList/frmDocumentResultList.vb
@@ -40,6 +40,7 @@ Public Class frmDocumentResultList
     Private _ResultLists As List(Of DocumentResult)
     Private _Helpers As DocumentResultList
     Private _Filesystem As DigitalData.Modules.Filesystem.File
+    Private _GridBuilder As GridBuilder
 
     ' Runtime variables
     Private _IsLoading As Boolean = True
@@ -74,6 +75,7 @@ Public Class frmDocumentResultList
         _Config = New ConfigManager(Of DocumentResultConfig)(LogConfig, oConfigPath, oConfigPath)
         _Helpers = New DocumentResultList(LogConfig)
         _Filesystem = New Modules.Filesystem.File(_LogConfig)
+        _GridBuilder = New GridBuilder(New List(Of GridView) From {GridView1, GridView2, GridView3})
 
         _Environment = Environment
         _Params = Params
@@ -126,6 +128,10 @@ Public Class frmDocumentResultList
                 SwitchDetailContainerHorizontal.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
             End If
 
+            _GridBuilder.
+                WithDefaults().
+                WithReadOnlyOptions()
+
             AddHandler GridView1.FocusedRowChanged, AddressOf GridView_FocusedRowChanged
             AddHandler GridView2.FocusedRowChanged, AddressOf GridView_FocusedRowChanged
             AddHandler GridView3.FocusedRowChanged, AddressOf GridView_FocusedRowChanged
@@ -928,24 +934,24 @@ Public Class frmDocumentResultList
             _DragBoxFromMouseDown = Rectangle.Empty
         End Sub
 
-        Private Sub GridView1_MouseMove(sender As GridView, e As MouseEventArgs) Handles GridView1.MouseMove
-            If e.Button AndAlso e.Button = MouseButtons.Left Then
-                If _DragBoxFromMouseDown <> Rectangle.Empty And Not _DragBoxFromMouseDown.Contains(e.X, e.Y) Then
+    Private Sub GridView1_MouseMove(sender As GridView, e As MouseEventArgs) Handles GridView1.MouseMove
+        If e.Button AndAlso e.Button = MouseButtons.Left Then
+            If _DragBoxFromMouseDown <> Rectangle.Empty And Not _DragBoxFromMouseDown.Contains(e.X, e.Y) Then
 
-                    Dim oHitInfo = sender.CalcHitInfo(e.Location)
+                Dim oHitInfo = sender.CalcHitInfo(e.Location)
 
-                    If oHitInfo.InRow Then
-                        If _CurrentDocument IsNot Nothing AndAlso _CurrentDocument.AccessRight >= Rights.AccessRight.VIEW_EXPORT Then
-                            _ScreenOffset = SystemInformation.WorkingArea.Location
+                If oHitInfo.InRow Then
+                    If _CurrentDocument IsNot Nothing AndAlso _CurrentDocument.AccessRight >= Rights.AccessRight.VIEW_EXPORT Then
+                        _ScreenOffset = SystemInformation.WorkingArea.Location
 
-                            Dim oFullPath As String = _CurrentDocument.FullPath
-                            Dim oFiles As String() = {oFullPath}
-                            Dim oData As New DataObject(DataFormats.FileDrop, oFiles)
+                        Dim oFullPath As String = _CurrentDocument.FullPath
+                        Dim oFiles As String() = {oFullPath}
+                        Dim oData As New DataObject(DataFormats.FileDrop, oFiles)
 
-                            sender.GridControl.DoDragDrop(oData, DragDropEffects.All)
-                        End If
+                        sender.GridControl.DoDragDrop(oData, DragDropEffects.All)
                     End If
                 End If
             End If
-        End Sub
-    End Class
\ No newline at end of file
+        End If
+    End Sub
+End Class
\ No newline at end of file