Farbauswahl, Zweiter Titel

GUIs.Monitor/Forms/frmMonitor.vb

@@ -24,6 +24,8 @@ Imports DevExpress.XtraEditors
 Imports System.Drawing.Imaging
 Imports System.IO
 Imports DevExpress.XtraBars
+Imports System.Net
+Imports System.Runtime.InteropServices.ComTypes
 
 
 Public Class frmMonitor
@@ -324,6 +326,7 @@ Public Class frmMonitor
                     End Select
 
                     SetChartTitle(ChartViewResults, oChartParameterSet.Title)
+                    SetChartDesign(ChartViewResults, oChartParameterSet.DesignType, oChartParameterSet.DesignBaseColor)
                     Dim oSerie As Series = Await GetChartSerie(oChartParameterSet, oControls)
                     ChartViewResults.Series.Add(oSerie)
                 Next
@@ -417,6 +420,24 @@ Public Class frmMonitor
         End Try
     End Function
 
+    Private Sub SetChartDesign(pChartView As ChartControl, pDesignType As DesignTypeEnum, pDesignBaseColor As Integer)
+
+        Select Case pDesignType
+            Case DesignTypeEnum.Aspect
+                pChartView.PaletteName = "Aspect"
+            Case DesignTypeEnum.Mixed
+                pChartView.PaletteName = "Mixed"
+            Case DesignTypeEnum.Office2013
+                pChartView.PaletteName = "Office 2013"
+            Case DesignTypeEnum.Solstice
+                pChartView.PaletteName = "Solstice"
+            Case Else
+                pChartView.PaletteName = "Office"
+        End Select
+
+        pChartView.PaletteBaseColorNumber = pDesignBaseColor
+    End Sub
+
     Private Sub ActivateMenuBarButtons(pSearchType As ReturnTypeEnum)
         Select Case pSearchType
             Case ReturnTypeEnum.ChartView
@@ -433,19 +454,27 @@ Public Class frmMonitor
     Private Async Function GetChartSerie(pChartParameters As ChartParameter, pControls As List(Of Control)) As Threading.Tasks.Task(Of Series)
         Dim oSerie As Series
 
+        Dim serieTitle As String
+
+        If String.IsNullOrEmpty(pChartParameters.SerieTitle) = False Then
+            serieTitle = pChartParameters.SerieTitle
+        Else
+            serieTitle = pChartParameters.Title
+        End If
+
         Select Case pChartParameters.ChartType
             Case ChartTypeEnum.Bar
-                oSerie = New Series(pChartParameters.Title, ViewType.Bar)
+                oSerie = New Series(serieTitle, ViewType.Bar)
             Case ChartTypeEnum.Line
-                oSerie = New Series(pChartParameters.Title, ViewType.Line)
+                oSerie = New Series(serieTitle, ViewType.Line)
             Case ChartTypeEnum.Area
-                oSerie = New Series(pChartParameters.Title, ViewType.Area)
+                oSerie = New Series(serieTitle, ViewType.Area)
             Case ChartTypeEnum.Pie
-                oSerie = New Series(pChartParameters.Title, ViewType.Pie) With {
+                oSerie = New Series(serieTitle, ViewType.Pie) With {
                     .LegendTextPattern = "{A}"
                 }
             Case ChartTypeEnum.StackedBar
-                oSerie = New Series(pChartParameters.Title, ViewType.StackedBar)
+                oSerie = New Series(serieTitle, ViewType.StackedBar)
             Case Else
                 Return Nothing
         End Select