Farbauswahl, Zweiter Titel

GUIs.Monitor/Helper/SearchLoader.vb

@@ -107,7 +107,10 @@ Public Class SearchLoader
                 .ChartType = GetChartType(oRow.ItemEx("CHART_TYPE", String.Empty)),
                 .Argument = oRow.ItemEx("ARGUMENT", String.Empty),
                 .Value = oRow.ItemEx("VALUE", String.Empty),
-                .LabelType = GetLabelType(oRow.ItemEx("LABEL_TYPE", String.Empty))
+                .LabelType = GetLabelType(oRow.ItemEx("LABEL_TYPE", String.Empty)),
+                .SerieTitle = oRow.ItemEx("SERIE_TITLE", String.Empty),
+                .DesignType = GetDesignType(oRow.ItemEx("DESIGN_TYPE", String.Empty)),
+                .DesignBaseColor = GetDesignBaseColor(oRow.ItemEx("DESIGN_TYPE", String.Empty))
             })
         Next
 
@@ -181,6 +184,37 @@ Public Class SearchLoader
         End Select
     End Function
 
+    Private Function GetDesignType(pTypeString As String) As DesignTypeEnum
+
+        Dim items() As String = pTypeString.Split("|"c)
+
+        Select Case items(0).ToUpper
+            Case "ASPECT"
+                Return DesignTypeEnum.Aspect
+            Case "MIXED"
+                Return DesignTypeEnum.Mixed
+            Case "OFFICE2013"
+                Return DesignTypeEnum.Office2013
+            Case "SOLSTICE"
+                Return DesignTypeEnum.Solstice
+            Case Else
+                Return DesignTypeEnum.DefaultColors
+        End Select
+    End Function
+
+    Private Function GetDesignBaseColor(pTypeString As String) As Integer
+        Dim items() As String = pTypeString.Split("|"c)
+        Dim retValue As Integer = 0
+
+        If items.Length > 1 Then
+            If Integer.TryParse(items(1), retValue) = False Then
+                retValue = 0
+            End If
+        End If
+
+        Return retValue
+    End Function
+
     Private Function GetChartPosType(pPosTypeId As Integer) As ChartPosEnum
         Select Case pPosTypeId
             Case 1