DD Palette & DarkMode

GUIs.Monitor/Helper/GridLoader.vb

@@ -8,6 +8,7 @@ Imports DevExpress.XtraGrid
 Imports DevExpress.XtraGrid.Views.Grid
 Imports DevExpress.XtraTreeList
 Imports DigitalData.GUIs.Common
+Imports DigitalData.GUIs.Monitor.Constants
 Imports DigitalData.Modules.Base
 Imports DigitalData.Modules.Logging
 
@@ -133,6 +134,12 @@ Public Class GridLoader
             .Dock = DockStyle.Fill
         }
 
+        ' Registrieren der Haus-eigenen Palette
+        oChartControlTopLeft.PaletteRepository.RegisterPalette(GetDDDefaulPalette())
+        oChartControlTopRight.PaletteRepository.RegisterPalette(GetDDDefaulPalette())
+        oChartControlBottomLeft.PaletteRepository.RegisterPalette(GetDDDefaulPalette())
+        oChartControlBottomRight.PaletteRepository.RegisterPalette(GetDDDefaulPalette())
+
         AddHandler oChartControlTopLeft.Click, AddressOf ChartControl_Click
         AddHandler oChartControlTopRight.Click, AddressOf ChartControl_Click
         AddHandler oChartControlBottomLeft.Click, AddressOf ChartControl_Click
@@ -247,4 +254,16 @@ Public Class GridLoader
         Return oStateEdit
     End Function
 
+
+    Public Function GetDDDefaulPalette() As Palette
+        ' Digital Data Default Palette für Dark Mode
+        Dim palette As Palette = New Palette("DDDefault Palette")
+        palette.Add(ColorTranslator.FromHtml(DDDefaultColors.PALETTE_COLOR_1))
+        palette.Add(ColorTranslator.FromHtml(DDDefaultColors.PALETTE_COLOR_2))
+        palette.Add(ColorTranslator.FromHtml(DDDefaultColors.PALETTE_COLOR_3))
+        palette.Add(ColorTranslator.FromHtml(DDDefaultColors.PALETTE_COLOR_4))
+        palette.Add(ColorTranslator.FromHtml(DDDefaultColors.PALETTE_COLOR_5))
+        Return palette
+    End Function
+
 End Class