Better Config, Clean Up, Add Demo Groups

app/DD_Clipboard_Searcher/frmResultDoc.vb

@@ -25,10 +25,17 @@ Public Class frmResultDoc
         MyBase.New
         ' Dieser Aufruf ist für den Designer erforderlich.
         InitializeComponent()
+
         ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
-        _frmDocView = frmDocView
-        _frmSQL = frmResultSQL
-        _frmProfileMatch = frmProfileMatch
+        _frmProfileMatch = Nothing
+    End Sub
+
+    Public Sub New(ProfileMatchForm As frmProfileMatch)
+        ' Dieser Aufruf ist für den Designer erforderlich.
+        InitializeComponent()
+
+        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+        _frmProfileMatch = ProfileMatchForm
     End Sub
 
     Private Class DocSearch
@@ -41,19 +48,23 @@ Public Class frmResultDoc
     Private Async Sub frmResultDoc_Load(sender As Object, e As EventArgs) Handles Me.Load
         ToolStripDropDownButtonFile.Visible = False
 
-        If ConfigManager.Config.ResultDocWindowX > 0 And ConfigManager.Config.ResultDocWindowY > 0 Then
-            Dim oLocation As New Point(ConfigManager.Config.ResultDocWindowX, ConfigManager.Config.ResultDocWindowY)
-            Location = oLocation
+        If Not ConfigManager.Config.ResultDocWindowLocation.IsEmpty Then
+            Location = ConfigManager.Config.ResultDocWindowLocation
         End If
 
-        Dim oSize As New Size(ConfigManager.Config.ResultDocWindowWidth, ConfigManager.Config.ResultDocWindowHeight)
-        Size = oSize
+        If Not ConfigManager.Config.ResultDocWindowSize.IsEmpty Then
+            Size = ConfigManager.Config.ResultDocWindowSize
+        End If
+
+        Dim oFrmResultSQL As New frmResultSQL()
+        _frmSQL = oFrmResultSQL
+        _frmSQL.Show()
 
         GridViewDocSearch1.ShowLoadingPanel()
 
         Dim oSearches = Await LoadSearchesAsync()
 
-        Await Task.Delay(4000) 'DEBUG
+        Await Task.Delay(1000) 'DEBUG
 
         For Each oSearch As DocSearch In oSearches
             RefreshTabDoc(oSearch.ProfileId, oSearch.DataTable, oSearch.TabIndex, oSearch.TabCaption)
@@ -465,10 +476,8 @@ Public Class frmResultDoc
 
     Private Sub frmResultDoc_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
         Try
-            ConfigManager.Config.ResultDocWindowHeight = Size.Height
-            ConfigManager.Config.ResultDocWindowWidth = Size.Width
-            ConfigManager.Config.ResultDocWindowX = Location.X
-            ConfigManager.Config.ResultDocWindowY = Location.Y
+            ConfigManager.Config.ResultDocWindowSize = Size
+            ConfigManager.Config.ResultDocWindowLocation = Location
             ConfigManager.Save()
         Catch ex As Exception
             Logger.Error(ex)