Common: improve file watcher, fix refreshing data after update

GUIs.Common/frmDocumentResultList.vb

@@ -20,6 +20,7 @@ Imports DigitalData.Modules.Logging
 Imports DigitalData.Modules.ZooFlow
 Imports DigitalData.Modules.ZooFlow.Constants
 Imports DigitalData.Modules.Base.IDB.FileStore
+Imports DigitalData.Controls.MessageBoxEx
 
 Public Class frmDocumentResultList
     Implements IResultForm
@@ -46,7 +47,6 @@ Public Class frmDocumentResultList
     Private ReadOnly Logger As Logger
     Private ReadOnly Config As ConfigManager(Of DocumentResultList.Config)
     Private ReadOnly Environment As Environment
-    Private ReadOnly ResultLists As List(Of DocumentResultList.DocumentResult)
     Private ReadOnly Filesystem As Modules.Filesystem.File
     Private ReadOnly GridBuilder As GridBuilder
     Private ReadOnly FileEx As Modules.Windows.File
@@ -59,6 +59,8 @@ Public Class frmDocumentResultList
     Private Documentloader As DocumentResultList.Loader
 
     ' Runtime variables
+    Private Property _ResultLists As List(Of DocumentResultList.DocumentResult)
+
     Private _IsLoading As Boolean = True
     Private _ActiveGrid As GridControl = Nothing
     Private _ActiveGridBand As GridBand = Nothing
@@ -72,6 +74,11 @@ Public Class frmDocumentResultList
 
     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))
+
+    Public Delegate Sub SetDatasourceCallback(pDatatable As DataTable)
+
     Public Sub New(pLogConfig As LogConfig, pEnvironment As Environment, pParams As DocumentResultList.Params)
         ' Dieser Aufruf ist für den Designer erforderlich.
         InitializeComponent()
@@ -96,7 +103,7 @@ Public Class frmDocumentResultList
 
         Environment = pEnvironment
         Params = pParams
-        ResultLists = pParams.Results
+        _ResultLists = pParams.Results
 
         _Language = Utils.NotNull(Me.Environment.User.Language, State.UserState.LANG_EN_US)
     End Sub
@@ -127,6 +134,8 @@ Public Class frmDocumentResultList
 
             End If
 
+
+
             Documentloader = New DocumentResultList.Loader(LogConfig, OperationMode, _IDBClient, Environment.User)
 
             If Params.WindowTitle <> "" Then
@@ -316,26 +325,29 @@ Public Class frmDocumentResultList
             MsgBox($"Beim Speichern der Datei '{oFileInfo.Name}' Fehler ist ein Fehler aufgetreten!", MsgBoxStyle.Critical, Text)
         Else
             MsgBox($"Die Datei '{oFileInfo.Name}' wurde erfolgreich gespeichert!", MsgBoxStyle.Information, Text)
+            RaiseEvent NeedsRefresh(Me, Params.ProfileGuid)
         End If
     End Function
 
     Private Async Function Watcher_Ask(pFile As DocumentResultList.Watcher.OpenFile) As Task
         Dim oFileInfo = New FileInfo(pFile.FilePath)
-        Dim oMessage = $"Die Datei '{oFileInfo.Name}' wurde außerhalb des Systems verändert. Wollen Sie diese Änderung als neue Version in das System übernehmen? 'Nein' überschreibt die ursprüngliche Datei."
-        Dim oResult As DialogResult = MsgBox(oMessage, MsgBoxStyle.YesNoCancel Or MsgBoxStyle.Question, "Datei verändert")
+        Dim oMessage = $"Die Datei '{oFileInfo.Name}' wurde außerhalb des Systems verändert. Wollen Sie diese Änderung als neue Version in das System übernehmen oder überschreiben?"
 
-        Select Case oResult
-            Case DialogResult.Yes
-                Await Watcher_VersionFile(pFile)
+        Dim oMessageBox As New MsgBoxEx(oMessage, "Datei verändert", MessageBoxIcon.Question)
+        oMessageBox.SetButtons("Überschreiben", "Neue Version", "Abbrechen")
+        oMessageBox.ShowDialog()
 
-            Case DialogResult.No
+        Select Case oMessageBox.Result
+            Case MsgBoxEx.DialogBoxResult.Button1
                 Await Watcher_OverwriteFile(pFile)
 
+            Case MsgBoxEx.DialogBoxResult.Button2
+                Await Watcher_VersionFile(pFile)
+
             Case Else
                 ' Cancel, do nothing
 
         End Select
-
     End Function
 
 
@@ -366,7 +378,8 @@ Public Class frmDocumentResultList
             Return True
         Catch ex As Exception
             Logger.Error(ex)
-            MessageBox.Show("Error while loading results:" & vbNewLine & vbNewLine & ex.Message, Text)
+
+            MessageBox.Show("Error while loading results:" & vbNewLine & vbNewLine & ex.Message, Text, MessageBoxButtons.OK, MessageBoxIcon.Error)
             Return False
         Finally
             _IsLoading = False
@@ -382,37 +395,49 @@ Public Class frmDocumentResultList
             Throw New ApplicationException($"Datatable is missing Filepath Column [{COLUMN_FILEPATH}] for search {Result.Title}!")
         End If
 
-        GridControl1.DataSource = Result.Datatable
-        GridControl1.ForceInitialize()
+        ' This is needed to update the grid from another form like frmMatch
+        ' Another form means another thread, so we need a delegate here
+        If GridControl1.InvokeRequired Then
+            Dim oCallback As New SetDatasourceCallback(AddressOf SetGridDataSource)
+            Invoke(oCallback, Result.Datatable)
+
+        Else
+            SetGridDataSource(Result.Datatable)
+        End If
+    End Sub
+
+    Private Sub SetGridDataSource(pTable As DataTable)
+        GridControl1.DataSource = Nothing
+        GridControl1.DataSource = pTable
     End Sub
 
     Private Sub UpdateGridData()
         ' Load Grids
-        For oIndex = 0 To ResultLists.Count - 1
+        For oIndex = 0 To _ResultLists.Count - 1
             Select Case oIndex
                 Case 0
-                    Dim oResult As DocumentResultList.DocumentResult = ResultLists.Item(0)
+                    Dim oResult As DocumentResultList.DocumentResult = _ResultLists.Item(0)
 
                     LoadGridData(oResult)
                     CreateDocumentGrid(GridView1, oResult)
                     RestoreLayout(GridView1)
-                    UpdateGridHeader(ResultLists, oIndex, oResult.Datatable.Rows.Count)
+                    UpdateGridHeader(_ResultLists, oIndex, oResult.Datatable.Rows.Count)
 
                 Case 1
-                    Dim oResult As DocumentResultList.DocumentResult = ResultLists.Item(1)
+                    Dim oResult As DocumentResultList.DocumentResult = _ResultLists.Item(1)
 
                     LoadGridData(oResult)
                     CreateDocumentGrid(GridView2, oResult)
                     RestoreLayout(GridView2)
-                    UpdateGridHeader(ResultLists, oIndex, oResult.Datatable.Rows.Count)
+                    UpdateGridHeader(_ResultLists, oIndex, oResult.Datatable.Rows.Count)
 
                 Case 2
-                    Dim oResult As DocumentResultList.DocumentResult = ResultLists.Item(2)
+                    Dim oResult As DocumentResultList.DocumentResult = _ResultLists.Item(2)
 
                     LoadGridData(oResult)
                     CreateDocumentGrid(GridView3, oResult)
                     RestoreLayout(GridView3)
-                    UpdateGridHeader(ResultLists, oIndex, oResult.Datatable.Rows.Count)
+                    UpdateGridHeader(_ResultLists, oIndex, oResult.Datatable.Rows.Count)
 
                 Case Else
                     MessageBox.Show(Constants.MESSAGE_TOO_MANY_SEARCHES, Text, MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
@@ -421,7 +446,7 @@ Public Class frmDocumentResultList
         Next
 
         ' Hide Grids depending on Result count
-        Select Case ResultLists.Count
+        Select Case _ResultLists.Count
             Case 0
 
                 SplitContainerControl1.SetPanelCollapsed(True)
@@ -453,7 +478,7 @@ Public Class frmDocumentResultList
     Private Sub UpdateTotalResults()
         Dim oTotalResults = 0
 
-        For Each oList In ResultLists
+        For Each oList In _ResultLists
             oTotalResults += oList.Datatable.Rows.Count
         Next
 
@@ -640,17 +665,17 @@ Public Class frmDocumentResultList
 
     Private Sub GridView1_ColumnFilterChanged(sender As GridView, e As EventArgs) Handles GridView1.ColumnFilterChanged
         Dim oRowCount = sender.RowCount
-        UpdateGridHeader(ResultLists, 0, oRowCount)
+        UpdateGridHeader(_ResultLists, 0, oRowCount)
     End Sub
 
     Private Sub GridView2_ColumnFilterChanged(sender As GridView, e As EventArgs) Handles GridView2.ColumnFilterChanged
         Dim oRowCount = sender.RowCount
-        UpdateGridHeader(ResultLists, 1, oRowCount)
+        UpdateGridHeader(_ResultLists, 1, oRowCount)
     End Sub
 
     Private Sub GridView3_ColumnFilterChanged(sender As GridView, e As EventArgs) Handles GridView3.ColumnFilterChanged
         Dim oRowCount = sender.RowCount
-        UpdateGridHeader(ResultLists, 2, oRowCount)
+        UpdateGridHeader(_ResultLists, 2, oRowCount)
     End Sub
 
     Private Sub BarButtonItem4_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonBack.ItemClick
@@ -825,8 +850,8 @@ Public Class frmDocumentResultList
         oPropertyDialog.Show()
     End Sub
 
-    Private Sub MenuItemsOpenFileZooFlow_ItemClick(sender As Object, e As ItemClickEventArgs) Handles MenuItemsOpenFileZooFlow.ItemClick
-        'TODO: Save file to temp dir and then open
+    Private Async Sub MenuItemsOpenFileZooFlow_ItemClick(sender As Object, e As ItemClickEventArgs) Handles MenuItemsOpenFileZooFlow.ItemClick
+        Await Watcher.OpenDocument(_CurrentDocument)
     End Sub
 
 #End Region
@@ -924,14 +949,10 @@ Public Class frmDocumentResultList
         End Try
     End Sub
 
-    Private Sub RibbonControl_Click(sender As Object, e As EventArgs) Handles RibbonControl.Click
-
+    Private Sub ButtonRefresh_ItemClick(sender As Object, e As ItemClickEventArgs) Handles ButtonRefresh.ItemClick
+        RaiseEvent NeedsRefresh(Me, Params.ProfileGuid)
     End Sub
 
-
-
-
-
 #End Region
 
 End Class