|
@@ -1255,9 +1255,13 @@ begin
|
|
if SupportsDarkMode then
|
|
if SupportsDarkMode then
|
|
begin
|
|
begin
|
|
// This enables dark mode - List view itself supports dark mode somewhat even in the our 'Explorer' theme.
|
|
// This enables dark mode - List view itself supports dark mode somewhat even in the our 'Explorer' theme.
|
|
- // The 'ItemsView' has better dark mode selection color, but on the other hand it does not have dark scrollbars.
|
|
|
|
|
|
+ // The 'ItemsView' has better (Explorer-like) dark mode selection color, but on the other hand it does not have dark scrollbars.
|
|
// win32-darkmode has ugly fix for that (FixDarkScrollBar), which we do not want to employ.
|
|
// win32-darkmode has ugly fix for that (FixDarkScrollBar), which we do not want to employ.
|
|
|
|
+ // The 'DarkMode_Explorer' uses the standard selection color (bright blue).
|
|
|
|
+
|
|
|
|
+ // Enables dark headers:
|
|
SetWindowTheme(FHeaderHandle, 'ItemsView', nil);
|
|
SetWindowTheme(FHeaderHandle, 'ItemsView', nil);
|
|
|
|
+
|
|
if DarkMode then UpdateDarkMode;
|
|
if DarkMode then UpdateDarkMode;
|
|
end;
|
|
end;
|
|
|
|
|