From d29154bb7f2ad4c7f4a231b369d8774bb4aed39d Mon Sep 17 00:00:00 2001
From: Jonathan Jenne <j.jenne@digitaldata.works>
Date: Wed, 21 Sep 2022 16:01:37 +0200
Subject: [PATCH] Add autoresizing of split containers

---
 GUIs.Monitor/My Project/AssemblyInfo.vb |  4 ++--
 GUIs.Monitor/frmMonitor.vb              | 17 +++++++++++++++--
 2 files changed, 17 insertions(+), 4 deletions(-)

diff --git a/GUIs.Monitor/My Project/AssemblyInfo.vb b/GUIs.Monitor/My Project/AssemblyInfo.vb
index afaa01c..3b11d1c 100644
--- a/GUIs.Monitor/My Project/AssemblyInfo.vb	
+++ b/GUIs.Monitor/My Project/AssemblyInfo.vb	
@@ -11,7 +11,7 @@ Imports System.Runtime.InteropServices
 <Assembly: AssemblyCompany("Digital Data")>
 <Assembly: AssemblyProduct("Monitor")>
 <Assembly: AssemblyCopyright("Copyright © 2022")>
-<Assembly: AssemblyTrademark("1.2.0.0")>
+<Assembly: AssemblyTrademark("1.2.1.0")>
 <Assembly: AssemblyCulture("")>
 
 ' Setting ComVisible to false makes the types in this assembly not visible 
@@ -32,5 +32,5 @@ Imports System.Runtime.InteropServices
 ' You can specify all the values or you can default the Build and Revision Numbers 
 ' by using the '*' as shown below:
 ' [assembly: AssemblyVersion("1.0.*")]
-<Assembly: AssemblyVersion("1.2.0.0")>
+<Assembly: AssemblyVersion("1.2.1.0")>
 <Assembly: AssemblyFileVersion("1.0.0.0")>
diff --git a/GUIs.Monitor/frmMonitor.vb b/GUIs.Monitor/frmMonitor.vb
index 0d7b661..7c1855b 100644
--- a/GUIs.Monitor/frmMonitor.vb
+++ b/GUIs.Monitor/frmMonitor.vb
@@ -65,6 +65,10 @@ Public Class frmMonitor
     Private FormHelper As FormHelper
     Private Patterns As Patterns2
     Private Workspace As Common.DocumentResultList.Workspace(Of Config)
+
+    Private SplitContainerBuilderHTML As SplitContainerBuilder
+    Private SplitContainerBuilderSQL As SplitContainerBuilder
+
     Private Validator As Validator
     Private GridLoader As GridLoader
 
@@ -81,6 +85,12 @@ Public Class frmMonitor
             ControlHelper = New Common.ControlHelper(LogConfig)
             Workspace = New DocumentResultList.Workspace(Of Config)(LogConfig, ConfigManager, WorkspaceManager1)
 
+            SplitContainerBuilderHTML = New SplitContainerBuilder(LogConfig, Me, SplitContainerFileHTML)
+            SplitContainerBuilderHTML.InitAutoResize()
+
+            SplitContainerBuilderSQL = New SplitContainerBuilder(LogConfig, Me, SplitContainerSQL)
+            SplitContainerBuilderSQL.InitAutoResize()
+
             If ConfigManager.Config.ConnectionString = String.Empty Then
                 Dim oSQLConfig As New frmSQLConfig(LogConfig)
                 If oSQLConfig.ShowDialog() = DialogResult.OK Then
@@ -397,7 +407,7 @@ Public Class frmMonitor
                 Try
                     Dim oExtracted = ExtractTitle(oSQLCommand.Value)
                     Dim oCommand = oExtracted.Item1
-                    Dim oTitle = oExtracted.Item2
+                    Dim oTitle = NotNull(oExtracted.Item2, oSQLCommand.Key)
 
                     Dim oTable As DataTable = Database.GetDatatable(oCommand)
 
@@ -521,11 +531,14 @@ Public Class frmMonitor
     End Sub
 
     Private Sub FillResultGrid(GridControl As GridControl, Table As DataTable, Title As String)
+
+
         GridControl.DataSource = Table
+        GridControl.DefaultView.PopulateColumns()
 
         Dim oTabPage = DirectCast(GridControl.Parent, XtraTabPage)
         oTabPage.PageVisible = True
-        oTabPage.Text = NotNull(Title, oTabPage.Text)
+        oTabPage.Text = $"{NotNull(Title, oTabPage.Text)} ({Table.Rows.Count})"
 
         XtraTabControlSQL.SelectedTabPage = oTabPage
     End Sub