33#include < WindowsConstants.au3>
44#include < WinAPISysWin.au3>
55
6+ Global $isDarkMode = _WinAPI_ShouldAppsUseDarkMode()
7+
68#Region ; APIThemeConstantsEx.au3
79; ~ #include "APIThemeConstantsEx.au3"
810; _WinAPI_GetIsImmersiveColorUsingHighContrast($IMMERSIVE_HC_CACHE_MODE)
@@ -1015,7 +1017,11 @@ Func _GUICtrlSetDarkTheme($vCtrl, $bEnableDarkTheme = True)
10151017 GUICtrlSetColor (_WinAPI_GetDlgCtrlID($vCtrl ), $iGUI_Ctrl_Color )
10161018 GUICtrlSetBkColor (_WinAPI_GetDlgCtrlID($vCtrl ), $iGUI_Ctrl_BkColor )
10171019 Else
1018- $sThemeName = ' DarkMode_Explorer'
1020+ If $isDarkMode = True Then
1021+ $sThemeName = ' DarkMode_Explorer'
1022+ Else
1023+ $sThemeName = ' Explorer'
1024+ EndIf
10191025 EndIf
10201026
10211027
@@ -1027,11 +1033,14 @@ Func _GUICtrlSetDarkTheme($vCtrl, $bEnableDarkTheme = True)
10271033 GUICtrlSetColor (_WinAPI_GetDlgCtrlID($vCtrl ), $iGUI_Ctrl_Color )
10281034 GUICtrlSetBkColor (_WinAPI_GetDlgCtrlID($vCtrl ), $iGUI_Ctrl_BkColor )
10291035 Case ' SysHeader32'
1030- $sThemeName = ' DarkMode_ItemsView '
1036+ $sThemeName = ' ItemsView '
10311037 $sThemeList = ' Header'
1032-
10331038 Case ' ListBox' , ' SysTreeView32' , ' SysListView32' , ' Edit' , ' msctls_trackbar32'
1034- $sThemeName = ' DarkMode_Explorer'
1039+ If $isDarkMode = True Then
1040+ $sThemeName = ' DarkMode_Explorer'
1041+ Else
1042+ $sThemeName = ' Explorer'
1043+ EndIf
10351044; ~ $sThemeList = 0 ; failed
10361045 GUICtrlSetColor (_WinAPI_GetDlgCtrlID($vCtrl ), $iGUI_Ctrl_Color )
10371046 GUICtrlSetBkColor (_WinAPI_GetDlgCtrlID($vCtrl ), $iGUI_Ctrl_BkColor )
0 commit comments