Initial commit

Author: checkdigits

.gitattributes

@@ -0,0 +1,2 @@
+# Auto detect text files and perform LF normalization
+* text=auto

.gitignore

@@ -0,0 +1,69 @@
+# Uncomment these types if you want even more clean repository. But be careful.
+# It can make harm to an existing project source. Read explanations below.
+#
+# Resource files are binaries containing manifest, project icon and version info.
+# They can not be viewed as text or compared by diff-tools. Consider replacing them with .rc files.
+#*.res
+#
+# Type library file (binary). In old Delphi versions it should be stored.
+# Since Delphi 2009 it is produced from .ridl file and can safely be ignored.
+#*.tlb
+#
+# Diagram Portfolio file. Used by the diagram editor up to Delphi 7.
+# Uncomment this if you are not using diagrams or use newer Delphi version.
+#*.ddp
+#
+# Visual LiveBindings file. Added in Delphi XE2.
+# Uncomment this if you are not using LiveBindings Designer.
+#*.vlb
+#
+# Deployment Manager configuration file for your project. Added in Delphi XE2.
+# Uncomment this if it is not mobile development and you do not use remote debug feature.
+#*.deployproj
+#
+# C++ object files produced when C/C++ Output file generation is configured.
+# Uncomment this if you are not using external objects (zlib library for example).
+#*.obj
+#
+
+# Delphi compiler-generated binaries (safe to delete)
+*.exe
+*.dll
+*.bpl
+*.bpi
+*.dcp
+*.so
+*.apk
+*.drc
+*.map
+*.dres
+*.rsm
+*.tds
+*.dcu
+*.lib
+*.a
+*.o
+*.ocx
+
+# Delphi autogenerated files (duplicated info)
+*.cfg
+*.hpp
+*Resource.rc
+
+# Delphi local files (user-specific info)
+*.local
+*.identcache
+*.projdata
+*.tvsconfig
+*.dsk
+
+# Delphi history and backups
+__history/
+__recovery/
+*.~*
+
+# Castalia statistics file (since XE7 Castalia is distributed with Delphi)
+*.stat
+
+# Boss dependency manager vendor folder https://github.com/HashLoad/boss
+modules/

LICENSE

@@ -0,0 +1,2 @@
+# delphidarkmode
+ Detecting and acting on Windows' Dark Mode theme setting

README.md

@@ -0,0 +1,41 @@
+object Form1: TForm1
+  Left = 0
+  Top = 0
+  BorderIcons = [biSystemMenu]
+  BorderStyle = bsDialog
+  Caption = 'Dark mode test'
+  ClientHeight = 241
+  ClientWidth = 293
+  Color = clBtnFace
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -11
+  Font.Name = 'Tahoma'
+  Font.Style = []
+  OldCreateOrder = False
+  Position = poScreenCenter
+  PixelsPerInch = 96
+  TextHeight = 13
+  object Button1: TButton
+    Left = 49
+    Top = 24
+    Width = 177
+    Height = 25
+    Caption = 'Check for system mode'
+    TabOrder = 0
+    OnClick = Button1Click
+  end
+  object RadioGroup1: TRadioGroup
+    Left = 49
+    Top = 80
+    Width = 185
+    Height = 105
+    Caption = 'Set theme'
+    ItemIndex = 1
+    Items.Strings = (
+      'Dark'
+      'Light')
+    TabOrder = 1
+    OnClick = RadioGroup1Click
+  end
+end

Unit1.dfm

@@ -0,0 +1,40 @@
+unit Unit1;
+
+interface
+
+uses
+  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
+  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls;
+
+type
+  TForm1 = class(TForm)
+    Button1: TButton;
+    RadioGroup1: TRadioGroup;
+    procedure Button1Click(Sender: TObject);
+    procedure RadioGroup1Click(Sender: TObject);
+  end;
+
+var
+  Form1: TForm1;
+
+implementation
+uses WindowsDarkMode;
+
+{$R *.dfm}
+
+{ TForm1 }
+
+procedure TForm1.Button1Click(Sender: TObject);
+begin
+  if DarkModeIsEnabled then
+    ShowMessage('Dark mode is enabled.')
+  else
+    ShowMessage('Dark mode is NOT enabled.');
+end;
+
+procedure TForm1.RadioGroup1Click(Sender: TObject);
+begin
+  SetSpecificThemeMode(RadioGroup1.ItemIndex = 0, 'Carbon', 'Windows10');
+end;
+
+end.

Unit1.pas

@@ -0,0 +1,97 @@
+unit WindowsDarkMode;
+
+//
+// Originally written by Ian Barker
+//            https://github.com/checkdigits
+//            https://about.me/IanBarker
+//            [email protected]
+//
+// Free software - use for any purpose including commercial use.
+//
+
+interface
+
+  // Checks the Windows registry to see if Windows Dark Mode is enabled
+  function DarkModeIsEnabled: boolean;
+
+  // Automatically sets a Dark Mode theme is Windows is running in Dark Mode
+  // To use:
+  //   1. Got to project properties
+  //   2. Select appearance and choose two or more themes.  Note down the names!
+  //   3. In your FormCreate (or wherever) put the following line:
+  //      SetAppropriateThemeMode(**name_of_the_dark_theme**, **namme_of_the_non_dark_theme**);
+  //
+  //      For example:
+  //      SetAppropriateThemeMode('Carbon', 'Windows10');
+  //
+  procedure SetAppropriateThemeMode(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.
+  //
+  procedure SetSpecificThemeMode(const AsDarkMode: Boolean; const DarkModeThemeName, LightModeThemeName: string);
+
+
+implementation
+uses
+{$IFDEF MSWINDOWS}
+  Winapi.Windows,       // for the pre-defined registry key constants
+  System.Win.Registry,  // for the registry read access
+{$ENDIF}
+  VCL.themes;           // Used for access to TStyleManager
+
+procedure SetAppropriateThemeMode(const DarkModeThemeName, LightModeThemeName: string);
+begin
+  SetSpecificThemeMode(DarkModeIsEnabled, DarkModeThemeName, LightModeThemeName);
+end;
+
+procedure SetSpecificThemeMode(const AsDarkMode: Boolean; const DarkModeThemeName, LightModeThemeName: string);
+var
+  ChosenTheme: string;
+begin
+  if AsDarkMode then
+    ChosenTheme := DarkModeThemeName
+  else
+    ChosenTheme := LightModeThemeName;
+  TStyleManager.TrySetStyle(ChosenTheme, False);
+end;
+
+function DarkModeIsEnabled: boolean;
+{$IFDEF MSWINDOWS}
+const
+  TheKey   = 'Software\Microsoft\Windows\CurrentVersion\Themes\Personalize\';
+  TheValue = 'AppsUseLightTheme';
+var
+  Reg: TRegistry;
+{$ENDIF}
+begin
+
+  Result := False;  // There is no dark side - the Jedi are victorious!
+
+// This relies on a registry setting only available on MS Windows
+// If the developer has somehow managed to get to this point then tell
+// them not to do this!
+{$IFNDEF MSWINDOWS}
+{$MESSAGE WARN '"DarkModeIsEnabled" will only work on MS Windows targets'}
+{$ELSE}
+  Reg    := TRegistry.Create(KEY_READ);
+  try
+    Reg.RootKey := HKEY_CURRENT_USER;
+    if Reg.KeyExists(TheKey) then
+      if Reg.OpenKey(TheKey, False) then
+      try
+        if Reg.ValueExists(TheValue) then
+          Result := Reg.ReadInteger(TheValue) = 0;
+      finally
+        Reg.CloseKey;
+      end;
+  finally
+    Reg.Free;
+  end;
+{$ENDIF}
+end;
+
+end.

WindowsDarkMode.pas

@@ -0,0 +1,19 @@
+program vcltips1;
+
+uses
+  Vcl.Forms,
+  Unit1 in 'Unit1.pas' {Form1},
+  Vcl.Themes,
+  Vcl.Styles,
+  WindowsDarkMode in 'WindowsDarkMode.pas';
+
+{$R *.res}
+
+begin
+  Application.Initialize;
+  Application.MainFormOnTaskbar := True;
+  Application.Title := 'Dark mode test';
+  TStyleManager.TrySetStyle('Windows10');
+  Application.CreateForm(TForm1, Form1);
+  Application.Run;
+end.