Originally written by Ian Barker
There is a blog post describing this code and the reasoning behind it here: https://www.codedotshow.com/blog/coderage-2019-vcl-the-dark-side/
Free software - use for any purpose including commercial use.
function DarkModeIsEnabled: boolean;
Checks the Windows registry to see if Windows Dark Mode is enabled
procedure SetAppropriateThemeMode(const DarkModeThemeName, LightModeThemeName: string);
Automatically sets a Dark Mode theme if Windows is running in Dark Mode To use:
- Got to project properties
- Select appearance and choose two or more themes. Note down the names!
- In your FormCreate (or wherever) put the following line:
SetAppropriateThemeMode(**name_of_the_dark_theme**, **name_of_the_non_dark_theme**);
For example:
SetAppropriateThemeMode('Carbon', 'Windows10');
procedure SetSpecificThemeMode(const AsDarkMode: Boolean; const DarkModeThemeName, LightModeThemeName: string);
Sets either a Dark Mode or non Dark mode theme based in the "AsDarkMode" boolean
For example:
SetSpecificThemeMode(False, 'TheDarkModeThemeName', 'TheLightModeThemeName');
Would change the application theme to the theme with the name 'TheLightModeThemeName' if it exists.
End of document