Bereinigungen

GUIs.Monitor/Forms/frmMonitor.vb

@@ -45,7 +45,7 @@ Public Class frmMonitor
 
     Private SQLResultGrids As List(Of GridControl)
     Private SQLResultTabs As List(Of XtraTabPage)
-    Private SQLResultGridIndex As Integer = 0
+    'Private SQLResultGridIndex As Integer = 0
     Private ActiveSQLResultGrid As GridControl
 
     Private FileResultViewers As List(Of DocumentViewer)
@@ -219,6 +219,7 @@ Public Class frmMonitor
 
             If oSearch.SQLCommand.Length > 0 Then
                 oSQL = Patterns.ReplaceControlValues(oSearch.SQLCommand, oControls)
+                Logger.Debug($"SQL after replacing placeholder: [{0}]", oSQL)
                 oTable = Await Database.GetDatatableAsync(oSQL)
             End If
 
@@ -432,6 +433,7 @@ Public Class frmMonitor
         End Select
 
         Dim oSQL As String = Patterns.ReplaceControlValues(pChartParameters.SQLCommand, pControls)
+        Logger.Debug($"SQL after replacing placeholder: [{0}]", oSQL)
         Dim oTable As DataTable = Await Database.GetDatatableAsync(oSQL)
 
         Dim xAxisTitle As String = pChartParameters.Argument
@@ -453,8 +455,9 @@ Public Class frmMonitor
         ' Wenn bereits ein Titel vorhanden ist, wird kein neuer ergänzt
         ' relevant bei mehrere Charts in einem ChartControl
         If pChartView.Titles.Count = 0 Then
-            Dim oTitle As ChartTitle = New ChartTitle()
-            oTitle.Text = pTitle
+            Dim oTitle As ChartTitle = New ChartTitle With {
+                .Text = pTitle
+            }
             pChartView.Titles.Add(oTitle)
         End If
     End Sub
@@ -1207,9 +1210,9 @@ Public Class frmMonitor
             Dim splitContainer1 As SplitContainerControl = CType(ChartViewResultContainer.Panel1.Controls(0), SplitContainerControl)
             Dim splitContainer2 As SplitContainerControl = CType(ChartViewResultContainer.Panel2.Controls(0), SplitContainerControl)
 
-            ChartViewResultContainer.SplitterPosition = ChartViewResultContainer.Height / 2
-            splitContainer1.SplitterPosition = splitContainer1.Width / 2
-            splitContainer2.SplitterPosition = splitContainer2.Width / 2
+            ChartViewResultContainer.SplitterPosition = CInt(ChartViewResultContainer.Height / 2)
+            splitContainer1.SplitterPosition = CInt(splitContainer1.Width / 2)
+            splitContainer2.SplitterPosition = CInt(splitContainer2.Width / 2)
         End If
     End Sub