AppCustom/Monitor
8
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Bereinigungen

Browse Source
This commit is contained in:
PitzM
2023-04-05 11:03:17 +02:00
parent 72a831619f
commit 10dd22fe46
2 changed files with 29 additions and 26 deletions
Download Patch File Download Diff File Expand all files Collapse all files

40
GUIs.Monitor/Helper/GridLoader.vb
View File

@@ -86,8 +86,8 @@ Public Class GridLoader
Public Function InitChartViewResultContainer() As SplitContainerControl
' Vorbereiten der SplitContainer-Struktur inkl. der ChartControls
Dim oChartViewResultContainer As SplitContainerControl
Dim oSplitContainer1 As SplitContainerControl
Dim oSplitContainer2 As SplitContainerControl
Dim oSplitContainerTop As SplitContainerControl
Dim oSplitContainerBottom As SplitContainerControl
oChartViewResultContainer = New SplitContainerControl With {
.Name = "ChartViewResultContainer",
@@ -97,44 +97,44 @@ Public Class GridLoader
.IsSplitterFixed = True
}
oSplitContainer1 = New SplitContainerControl With {
.Name = "SplitContainer1",
oSplitContainerTop = New SplitContainerControl With {
.Name = "SplitContainerTop",
.Dock = DockStyle.Fill,
.Horizontal = True,
.IsSplitterFixed = True
}
oSplitContainer2 = New SplitContainerControl With {
.Name = "SplitContainer2",
oSplitContainerBottom = New SplitContainerControl With {
.Name = "SplitContainerBottom",
.Dock = DockStyle.Fill,
.Horizontal = True,
.IsSplitterFixed = True
}
oChartViewResultContainer.Panel1.AddControl(oSplitContainer1)
oChartViewResultContainer.Panel2.AddControl(oSplitContainer2)
oChartViewResultContainer.Panel1.AddControl(oSplitContainerTop)
oChartViewResultContainer.Panel2.AddControl(oSplitContainerBottom)
Dim oChartControl11 As ChartControl = New ChartControl With {
.Name = "ChartControl11",
Dim oChartControlTopLeft As ChartControl = New ChartControl With {
.Name = "ChartControlTopLeft",
.Dock = DockStyle.Fill
}
Dim oChartControl12 As ChartControl = New ChartControl With {
.Name = "ChartControl12",
Dim oChartControlTopRight As ChartControl = New ChartControl With {
.Name = "ChartControlTopRight",
.Dock = DockStyle.Fill
}
Dim oChartControl21 As ChartControl = New ChartControl With {
.Name = "ChartControl21",
Dim oChartControlBottomLeft As ChartControl = New ChartControl With {
.Name = "ChartControlBottomLeft",
.Dock = DockStyle.Fill
}
Dim oChartControl22 As ChartControl = New ChartControl With {
.Name = "ChartControl22",
Dim oChartControlBottomRight As ChartControl = New ChartControl With {
.Name = "ChartControlBottomRight",
.Dock = DockStyle.Fill
}
oSplitContainer1.Panel1.AddControl(oChartControl11)
oSplitContainer1.Panel2.AddControl(oChartControl12)
oSplitContainer2.Panel1.AddControl(oChartControl21)
oSplitContainer2.Panel2.AddControl(oChartControl22)
oSplitContainerTop.Panel1.AddControl(oChartControlTopLeft)
oSplitContainerTop.Panel2.AddControl(oChartControlTopRight)
oSplitContainerBottom.Panel1.AddControl(oChartControlBottomLeft)
oSplitContainerBottom.Panel2.AddControl(oChartControlBottomRight)
Return oChartViewResultContainer
End Function