DD Palette & DarkMode

GUIs.Monitor/Forms/frmMonitor.vb

@@ -1,5 +1,13 @@
-Imports System.Text.RegularExpressions
+Imports System.Drawing.Imaging
+Imports System.IO
+Imports System.Runtime.CompilerServices
+Imports System.Text.RegularExpressions
+Imports DevExpress.LookAndFeel
+Imports DevExpress.Office.PInvoke
 Imports DevExpress.Utils
+Imports DevExpress.XtraBars
+Imports DevExpress.XtraCharts
+Imports DevExpress.XtraEditors
 Imports DevExpress.XtraEditors.Controls
 Imports DevExpress.XtraEditors.Repository
 Imports DevExpress.XtraGrid
@@ -10,7 +18,6 @@ Imports DevExpress.XtraTab
 Imports DevExpress.XtraTreeList
 Imports DevExpress.XtraTreeList.Columns
 Imports DevExpress.XtraTreeList.Nodes
-Imports DevExpress.XtraCharts
 Imports DigitalData.Controls.DocumentViewer
 Imports DigitalData.GUIs.Common
 Imports DigitalData.GUIs.Monitor.Constants
@@ -20,12 +27,6 @@ Imports DigitalData.Modules.Language
 Imports DigitalData.Modules.Language.Utils
 Imports DigitalData.Modules.Logging
 Imports DigitalData.Modules.Patterns
-Imports DevExpress.XtraEditors
-Imports System.Drawing.Imaging
-Imports System.IO
-Imports DevExpress.XtraBars
-Imports System.Net
-Imports System.Runtime.InteropServices.ComTypes
 
 
 Public Class frmMonitor
@@ -91,6 +92,8 @@ Public Class frmMonitor
 
     Private SelectedChart As ChartControl
 
+    Private SkinMode As SkinModeEnum
+
     Private Sub frmStart_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         Try
             LogConfig = New LogConfig(LogConfig.PathType.AppData, Nothing, Nothing, "Digital Data", "Monitor")
@@ -131,6 +134,13 @@ Public Class frmMonitor
             Validator = New Validator(LogConfig, LayoutControl1, AdornerUIManager2, ControlHelper)
             GridLoader = New GridLoader(LogConfig, SvgImageCollection1)
 
+            If ConfigManager.Config.DarkMode = False Then
+                SkinMode = SkinModeEnum.LightMode
+            Else
+                SkinMode = SkinModeEnum.DarkMode
+            End If
+            SetDarkMode()
+
             AddHandler GridLoader.ChartControlClicked, AddressOf ChartControl_Click
 
             InitGrid()
@@ -431,6 +441,8 @@ Public Class frmMonitor
                 pChartView.PaletteName = "Office 2013"
             Case DesignTypeEnum.Solstice
                 pChartView.PaletteName = "Solstice"
+            Case DesignTypeEnum.DDDefault
+                pChartView.PaletteName = "DDDefault Palette"
             Case Else
                 pChartView.PaletteName = "Office"
         End Select
@@ -1479,5 +1491,39 @@ Public Class frmMonitor
         ' Return the image.  
         Return image
     End Function
+
+    Private Sub BarButtonItem4_ItemClick_1(sender As Object, e As ItemClickEventArgs) Handles BarButtonItem4.ItemClick
+        SwitchDarkMode()
+    End Sub
+
+    Private Sub frmMonitor_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
+        If SkinMode = SkinModeEnum.LightMode Then
+            ConfigManager.Config.DarkMode = False
+        Else
+            ConfigManager.Config.DarkMode = True
+        End If
+        ConfigManager.Save()
+
+    End Sub
+
+    Private Sub SwitchDarkMode()
+        If SkinMode = SkinModeEnum.LightMode Then
+            WindowsFormsSettings.DefaultLookAndFeel.SetSkinStyle(SkinSvgPalette.DefaultSkin.BlueDark)
+            SkinMode = SkinModeEnum.DarkMode
+        Else
+            WindowsFormsSettings.DefaultLookAndFeel.SetSkinStyle(SkinSvgPalette.DefaultSkin.Default)
+            SkinMode = SkinModeEnum.LightMode
+        End If
+    End Sub
+
+    Private Sub SetDarkMode()
+        If SkinMode = SkinModeEnum.LightMode Then
+            WindowsFormsSettings.DefaultLookAndFeel.SetSkinStyle(SkinSvgPalette.DefaultSkin.Default)
+        Else
+            WindowsFormsSettings.DefaultLookAndFeel.SetSkinStyle(SkinSvgPalette.DefaultSkin.BlueDark)
+        End If
+    End Sub
+
+
 End Class