work on result lists for clipboard watcher

GUIs.Common/DataResultList/frmDataResultList.vb

@@ -10,13 +10,14 @@ Imports DigitalData.Modules.ZooFlow
 Imports DigitalData.Modules.Language
 Imports DevExpress.XtraPrinting
 Imports DigitalData.GUIs.Common
+Imports System.ComponentModel
 
 Public Class frmDataResultList
     Implements IResultForm
 
     Private _LogConfig As LogConfig
     Private _Logger As Logger
-    Private _Config As Object
+    Private _Config As ConfigManager(Of DataResultConfig)
     Private _Environment As Environment
     Private _Params As DataResultParams
     Private _ResultLists As List(Of DataResult)
@@ -33,11 +34,11 @@ Public Class frmDataResultList
         InitializeComponent()
 
         ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
-        Dim oConfigPath As String = Path.Combine(Application.UserAppDataPath, "DocumentResultList", Params.WindowGuid)
+        Dim oConfigPath As String = Path.Combine(Application.UserAppDataPath, "ResultList", Params.WindowGuid)
 
         _LogConfig = LogConfig
         _Logger = LogConfig.GetLogger()
-        _Config = New ConfigManager(Of DocumentResultConfig)(LogConfig, oConfigPath)
+        _Config = New ConfigManager(Of DataResultConfig)(LogConfig, oConfigPath)
         _Environment = Environment
         _Params = Params
         _ResultLists = Params.Results
@@ -53,6 +54,15 @@ Public Class frmDataResultList
             SplitContainerControl2.SplitterPosition = _Config.Config.SplitContainer2Distance
             SwitchDetailContainerHorizontal.Checked = _Config.Config.SplitContainer2Horizontal
 
+            If Utils.IsVisibleOnAnyScreen(_Config.Config.WindowLocation) Then
+                If Utils.LocationIsVisible(_Config.Config.WindowLocation) Then
+                    Location = _Config.Config.WindowLocation
+                End If
+                If Utils.SizeIsVisible(_Config.Config.WindowSize) Then
+                    Size = _Config.Config.WindowSize
+                End If
+            End If
+
             AddHandler GridView1.FocusedRowChanged, AddressOf GridView_FocusedRowChanged
             AddHandler GridView2.FocusedRowChanged, AddressOf GridView_FocusedRowChanged
             AddHandler GridView3.FocusedRowChanged, AddressOf GridView_FocusedRowChanged
@@ -94,8 +104,13 @@ Public Class frmDataResultList
                 Case 1
                     SplitContainerControl1.SetPanelCollapsed(True)
                     SplitContainerControl2.SetPanelCollapsed(True)
+
+                    SwitchMainContainerHorizontal.Enabled = False
+                    SwitchDetailContainerHorizontal.Enabled = False
                 Case 2
                     SplitContainerControl2.SetPanelCollapsed(True)
+
+                    SwitchDetailContainerHorizontal.Enabled = False
             End Select
         Catch ex As Exception
             _Logger.Error(ex)
@@ -213,6 +228,8 @@ Public Class frmDataResultList
                 }
                 oActiveGrid.ExportToXlsx(XtraSaveFileDialog.FileName, oOptions)
             End If
+        Else
+            MessageBox.Show("Bitte wählen Sie eine Tabelle aus, die Sie exportieren möchten", Text, MessageBoxButtons.OK)
         End If
     End Sub
 
@@ -220,4 +237,32 @@ Public Class frmDataResultList
         ShouldReturnToMatchForm = True
         Close()
     End Sub
+
+    Private Sub SwitchMainContainerHorizontal_CheckedChanged(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles SwitchMainContainerHorizontal.CheckedChanged
+        SplitContainerControl1.Horizontal = SwitchMainContainerHorizontal.Checked
+
+        If _Config IsNot Nothing And _IsLoading = False Then
+            _Config.Config.SplitContainer1Horizontal = SwitchMainContainerHorizontal.Checked
+            _Config.Save()
+        End If
+    End Sub
+
+    Private Sub SwitchDetailContainerHorizontal_CheckedChanged(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles SwitchDetailContainerHorizontal.CheckedChanged
+        SplitContainerControl2.Horizontal = SwitchDetailContainerHorizontal.Checked
+
+        If _Config IsNot Nothing And _IsLoading = False Then
+            _Config.Config.SplitContainer2Horizontal = SwitchDetailContainerHorizontal.Checked
+            _Config.Save()
+        End If
+    End Sub
+
+    Private Sub frmDataResultList_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
+        Try
+            _Config.Config.WindowLocation = Location
+            _Config.Config.WindowSize = Size
+            _Config.Save()
+        Catch ex As Exception
+            _Logger.Error(ex)
+        End Try
+    End Sub
 End Class