Chart-Integration

GUIs.Monitor/Helper/GridLoader.vb

@@ -1,4 +1,6 @@
 Imports DevExpress.Utils
+Imports DevExpress.Utils.Extensions
+Imports DevExpress.XtraCharts
 Imports DevExpress.XtraEditors
 Imports DevExpress.XtraEditors.Controls
 Imports DevExpress.XtraEditors.Repository
@@ -81,6 +83,62 @@ Public Class GridLoader
         Return oGrid
     End Function
 
+    Public Function InitChartViewResultContainer() As SplitContainerControl
+        ' Vorbereiten der SplitContainer-Struktur inkl. der ChartControls
+        Dim oChartViewResultContainer As SplitContainerControl
+        Dim oSplitContainer1 As SplitContainerControl
+        Dim oSplitContainer2 As SplitContainerControl
+
+        oChartViewResultContainer = New SplitContainerControl With {
+            .Name = "ChartViewResultContainer",
+            .Visible = False,
+            .Dock = DockStyle.Fill,
+            .Horizontal = False,
+            .IsSplitterFixed = True
+        }
+
+        oSplitContainer1 = New SplitContainerControl With {
+            .Name = "SplitContainer1",
+            .Dock = DockStyle.Fill,
+            .Horizontal = True,
+            .IsSplitterFixed = True
+        }
+
+        oSplitContainer2 = New SplitContainerControl With {
+            .Name = "SplitContainer2",
+            .Dock = DockStyle.Fill,
+            .Horizontal = True,
+            .IsSplitterFixed = True
+        }
+
+        oChartViewResultContainer.Panel1.AddControl(oSplitContainer1)
+        oChartViewResultContainer.Panel2.AddControl(oSplitContainer2)
+
+        Dim oChartControl11 As ChartControl = New ChartControl With {
+            .Name = "ChartControl11",
+            .Dock = DockStyle.Fill
+        }
+        Dim oChartControl12 As ChartControl = New ChartControl With {
+            .Name = "ChartControl12",
+            .Dock = DockStyle.Fill
+        }
+        Dim oChartControl21 As ChartControl = New ChartControl With {
+            .Name = "ChartControl21",
+            .Dock = DockStyle.Fill
+        }
+        Dim oChartControl22 As ChartControl = New ChartControl With {
+            .Name = "ChartControl22",
+            .Dock = DockStyle.Fill
+        }
+
+        oSplitContainer1.Panel1.AddControl(oChartControl11)
+        oSplitContainer1.Panel2.AddControl(oChartControl12)
+        oSplitContainer2.Panel1.AddControl(oChartControl21)
+        oSplitContainer2.Panel2.AddControl(oChartControl22)
+
+        Return oChartViewResultContainer
+    End Function
+
     Public Sub InitTreeListColumns(pTreeList As TreeList, pMaxLength As Integer)
         Dim oColumn1 = pTreeList.Columns.Item("COLUMN1")
         Dim oColumn2 = pTreeList.Columns.Item("COLUMN2")