Common/DocumentResultList: Refresh results after saving changes

GUIs.Common/ObjectPropertyDialog/ctrlObjectPropertyDialog.vb

@@ -1,14 +1,14 @@
 Imports System.Windows.Forms
 Imports DevExpress.XtraEditors.Repository
+Imports DevExpress.XtraSplashScreen
+Imports DevExpress.XtraEditors
+Imports DevExpress.XtraLayout
 Imports DigitalData.GUIs.Common.Base
 Imports DigitalData.Modules.EDMI.API
 Imports DigitalData.Modules.Logging
 Imports DigitalData.Modules.Language
 Imports DigitalData.Modules.ZooFlow
-Imports DevExpress.XtraSplashScreen
-Imports DevExpress.XtraEditors
 Imports DigitalData.Modules.Base.IDB
-Imports DevExpress.XtraLayout
 
 Public Class ctrlObjectPropertyDialog
     Implements IBaseForm
@@ -21,7 +21,7 @@ Public Class ctrlObjectPropertyDialog
     Private Property Environment As Environment
     Private Property ObjectId As Long
     Private Property HostForm As Form
-    Private Property FormHelper As FormHelper
+    Private Property Helper As FormHelper
 
     Private ReadOnly Changes As New Dictionary(Of String, Object)
 
@@ -43,6 +43,7 @@ Public Class ctrlObjectPropertyDialog
         Logger = pLogConfig.GetLogger()
         HostForm = pHostForm
         ControlManager = New AttributeControls(pLogConfig, pEnv, pClient)
+        Helper = New FormHelper(pLogConfig, pHostForm)
 
         GridBuilder = New GridBuilder(ViewObjectHistory, ViewValueHistory)
         GridBuilder.
@@ -56,7 +57,7 @@ Public Class ctrlObjectPropertyDialog
         Environment = pEnv
     End Sub
 
-    Public Async Function SaveChanges() As Task
+    Public Async Function SaveChanges() As Task(Of Boolean)
         Try
             For Each oChange As KeyValuePair(Of String, Object) In Changes
                 Logger.Info("Updating Attribute [{0}] with value [{1}]", oChange.Key, oChange.Value.ToString)
@@ -66,10 +67,13 @@ Public Class ctrlObjectPropertyDialog
                 })
             Next
 
-            FormHelper.ShowInfoMessage($"{Changes.Count} Änderungen gespeichert!", "SaveChanges")
+            Helper.ShowInfoMessage($"{Changes.Count} Änderungen gespeichert!", "SaveChanges")
             Changes.Clear()
+
+            Return True
         Catch ex As Exception
-            FormHelper.ShowErrorMessage(ex, "SaveChanges")
+            Helper.ShowErrorMessage(ex, "SaveChanges")
+            Return False
         End Try
     End Function