AppCustom/Monitor
8
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

DD Palette & DarkMode

Browse Source
This commit is contained in:
PitzM
2023-07-17 16:40:05 +02:00
parent 142c3b1d10
commit d1517335a8
9 changed files with 199 additions and 66 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
GUIs.Monitor/Helper/GridLoader.vb
View File

@@ -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

3
GUIs.Monitor/Helper/SearchLoader.vb
View File

@@ -1,7 +1,6 @@
Imports DigitalData.Modules.Base
Imports DigitalData.Modules.Database
Imports DigitalData.Modules.Logging
Imports DigitalData.Modules.Language
Imports DigitalData.GUIs.Monitor.Constants
Public Class SearchLoader
@@ -197,6 +196,8 @@ Public Class SearchLoader
Return DesignTypeEnum.Office2013
Case "SOLSTICE"
Return DesignTypeEnum.Solstice
Case "DDDEFAULT"
Return DesignTypeEnum.DDDefault
Case Else
Return DesignTypeEnum.DefaultColors
End Select