Chart-Logik: Export-Funktionen implementiert

GUIs.Monitor/Helper/GridLoader.vb

@@ -23,6 +23,8 @@ Public Class GridLoader
     Public ReadOnly Property SvgImageCollection As SvgImageCollection
     Public ReadOnly Property GridBuilder As GridBuilder
 
+    Public Event ChartControlClicked As EventHandler
+
     Private ReadOnly StateIcons As New Dictionary(Of String, NodeImage) From {
         {STATE_SUCCESS, NodeImage.Success},
         {STATE_FAILURE, NodeImage.Failure}
@@ -131,6 +133,11 @@ Public Class GridLoader
             .Dock = DockStyle.Fill
         }
 
+        AddHandler oChartControlTopLeft.Click, AddressOf ChartControl_Click
+        AddHandler oChartControlTopRight.Click, AddressOf ChartControl_Click
+        AddHandler oChartControlBottomLeft.Click, AddressOf ChartControl_Click
+        AddHandler oChartControlBottomRight.Click, AddressOf ChartControl_Click
+
         oSplitContainerTop.Panel1.AddControl(oChartControlTopLeft)
         oSplitContainerTop.Panel2.AddControl(oChartControlTopRight)
         oSplitContainerBottom.Panel1.AddControl(oChartControlBottomLeft)
@@ -139,6 +146,10 @@ Public Class GridLoader
         Return oChartViewResultContainer
     End Function
 
+    Private Sub ChartControl_Click(sender As Object, e As EventArgs)
+        RaiseEvent ChartControlClicked(sender, Nothing)
+    End Sub
+
     Public Sub InitTreeListColumns(pTreeList As TreeList, pMaxLength As Integer)
         Dim oColumn1 = pTreeList.Columns.Item("COLUMN1")
         Dim oColumn2 = pTreeList.Columns.Item("COLUMN2")