work on result lists for clipboard watcher

GUIs.Common/DocumentResultList/DocumentResultConfig.vb

@@ -1,4 +1,8 @@
-Public Class DocumentResultConfig
+Imports System.Drawing
+
+Public Class DocumentResultConfig
+    Public Property WindowLocation As Point
+    Public Property WindowSize As Size
     Public Property SplitContainer1Distance As Integer = 500
     Public Property SplitContainer1Horizontal As Boolean = True
     Public Property SplitContainer2Distance As Integer = 250

GUIs.Common/DocumentResultList/frmDocumentResultList.Designer.vb

@@ -249,7 +249,6 @@ Partial Class frmDocumentResultList
         Me.GridView1.GridControl = Me.GridControl1
         Me.GridView1.Name = "GridView1"
         Me.GridView1.OptionsView.ShowAutoFilterRow = True
-        Me.GridView1.OptionsView.ShowGroupPanel = False
         '
         'GridBand1
         '
@@ -298,7 +297,6 @@ Partial Class frmDocumentResultList
         Me.GridView2.GridControl = Me.GridControl2
         Me.GridView2.Name = "GridView2"
         Me.GridView2.OptionsView.ShowAutoFilterRow = True
-        Me.GridView2.OptionsView.ShowGroupPanel = False
         '
         'GridBand2
         '
@@ -330,7 +328,6 @@ Partial Class frmDocumentResultList
         Me.GridView3.GridControl = Me.GridControl3
         Me.GridView3.Name = "GridView3"
         Me.GridView3.OptionsView.ShowAutoFilterRow = True
-        Me.GridView3.OptionsView.ShowGroupPanel = False
         '
         'GridBand3
         '

GUIs.Common/DocumentResultList/frmDocumentResultList.vb

@@ -12,7 +12,7 @@ Imports DigitalData.Modules.ZooFlow
 Imports DigitalData.Modules.Language
 Imports DevExpress.XtraGrid.Views.Base
 Imports DevExpress.XtraGrid.Views.BandedGrid
-Imports DigitalData.GUIs.Common
+Imports System.ComponentModel
 
 Public Class frmDocumentResultList
     Implements IResultForm
@@ -42,7 +42,7 @@ Public Class frmDocumentResultList
         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()
@@ -62,6 +62,15 @@ Public Class frmDocumentResultList
             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
+
             ' Initialize Viewer with GDPicture.NET License
             DocumentViewer1.Init(_LogConfig, _Environment.Settings.GdPictureKey)
 
@@ -105,8 +114,13 @@ Public Class frmDocumentResultList
                 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)
@@ -297,7 +311,7 @@ Public Class frmDocumentResultList
         End If
     End Sub
 
-    Private Sub BarToggleSwitchItem2_CheckedChanged(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles SwitchDetailContainerHorizontal.CheckedChanged
+    Private Sub SwitchDetailContainerHorizontal2_CheckedChanged(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles SwitchDetailContainerHorizontal.CheckedChanged
         SplitContainerControl2.Horizontal = SwitchDetailContainerHorizontal.Checked
 
         If _Config IsNot Nothing And _IsLoading = False Then
@@ -321,6 +335,9 @@ Public Class frmDocumentResultList
                 }
                 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
 
@@ -467,4 +484,14 @@ Public Class frmDocumentResultList
         ShouldReturnToMatchForm = True
         Close()
     End Sub
+
+    Private Sub frmDocumentResultList_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