Common: ObjectPropertyDialog improvements, DocumentResultList Improvements

GUIs.Common/DocumentResultList/Layout.vb

@@ -1,17 +1,19 @@
-Imports DevExpress.Utils
+Imports System.Windows.Forms
+Imports DevExpress.Utils
 Imports DevExpress.XtraBars.Docking
 Imports DevExpress.XtraGrid.Views.BandedGrid
 Imports DevExpress.XtraGrid.Views.Grid
 Imports DigitalData.Modules.Base
 Imports DigitalData.Modules.Config
 Imports DigitalData.Modules.Logging
+Imports DigitalData.Modules.Language
 
 Namespace DocumentResultList
     Public Class Layout
         Inherits BaseClass
 
-        Private Config As ConfigManager(Of Config)
-        Private GridViews As List(Of GridView)
+        Private ReadOnly Config As ConfigManager(Of Config)
+        Private ReadOnly GridViews As List(Of GridView)
 
         Public Sub New(pLogConfig As LogConfig, pConfig As ConfigManager(Of DocumentResultList.Config), pGridViews As List(Of GridView))
             MyBase.New(pLogConfig)
@@ -76,6 +78,23 @@ Namespace DocumentResultList
             Dim oDirectory As String = IO.Path.GetDirectoryName(Config.UserConfigPath)
             Return IO.Path.Combine(oDirectory, Filename)
         End Function
+
+        Public Sub LoadWindowLocationAndSize(ByRef pForm As Form)
+            If Utils.IsVisibleOnAnyScreen(Config.Config.WindowLocation) Then
+                If Utils.LocationIsVisible(Config.Config.WindowLocation) Then
+                    pForm.Location = Config.Config.WindowLocation
+                End If
+                If Utils.SizeIsVisible(Config.Config.WindowSize) Then
+                    pForm.Size = Config.Config.WindowSize
+                End If
+            End If
+        End Sub
+
+        Public Sub SaveWindowLocationAndSize(ByRef pForm As Form)
+            Config.Config.WindowLocation = pForm.Location
+            Config.Config.WindowSize = pForm.Size
+            Config.Save()
+        End Sub
 #End Region
 
         Public Sub SetGroupPanelVisible(pVisible As Boolean)