diff --git a/Demo/Images/DarkLightThemes.jpg b/Demo/Images/DarkLightThemes.jpg
index 157c202..390b451 100644
Binary files a/Demo/Images/DarkLightThemes.jpg and b/Demo/Images/DarkLightThemes.jpg differ
diff --git a/Demo/Projects/D11_0/ModernAppDemo.dproj b/Demo/Projects/D11_0/ModernAppDemo.dproj
index c68281a..6a8a6a5 100644
--- a/Demo/Projects/D11_0/ModernAppDemo.dproj
+++ b/Demo/Projects/D11_0/ModernAppDemo.dproj
@@ -45,6 +45,12 @@
Base
true
+
+ true
+ Cfg_2
+ true
+ true
+
true
Cfg_2
@@ -52,7 +58,7 @@
true
- "Aqua Light Slate|VCLSTYLE|$(BDSCOMMONDIR)\Styles\AquaLightSlate.vsf";Copper|VCLSTYLE|$(BDSCOMMONDIR)\Styles\Copper.vsf;CopperDark|VCLSTYLE|$(BDSCOMMONDIR)\Styles\CopperDark.vsf;Glow|VCLSTYLE|$(BDSCOMMONDIR)\Styles\Glow.vsf;"Iceberg Classico|VCLSTYLE|$(BDSCOMMONDIR)\Styles\IcebergClassico.vsf";Sky|VCLSTYLE|$(BDSCOMMONDIR)\Styles\Sky.vsf;"Slate Classico|VCLSTYLE|$(BDSCOMMONDIR)\Styles\SlateClassico.vsf";"Tablet Dark|VCLSTYLE|$(BDSCOMMONDIR)\Styles\TabletDark.vsf";Windows10|VCLSTYLE|$(BDSCOMMONDIR)\Styles\Windows10.vsf;"Windows10 Blue|VCLSTYLE|$(BDSCOMMONDIR)\Styles\Windows10Blue.vsf";"Windows10 Dark|VCLSTYLE|$(BDSCOMMONDIR)\Styles\Windows10Dark.vsf";"Windows10 Green|VCLSTYLE|$(BDSCOMMONDIR)\Styles\Windows10Green.vsf";"Windows10 Purple|VCLSTYLE|$(BDSCOMMONDIR)\Styles\Windows10Purple.vsf";"Windows10 SlateGray|VCLSTYLE|$(BDSCOMMONDIR)\Styles\Windows10SlateGray.vsf";"Windows11 Dark|VCLSTYLE|$(BDSCOMMONDIR)\Styles\Windows11_Dark.vsf";"Windows11 Light|VCLSTYLE|$(BDSCOMMONDIR)\Styles\Windows11_Light.vsf"
+ "Aqua Light Slate|VCLSTYLE|$(BDSCOMMONDIR)\Styles\AquaLightSlate.vsf";Copper|VCLSTYLE|$(BDSCOMMONDIR)\Styles\Copper.vsf;CopperDark|VCLSTYLE|$(BDSCOMMONDIR)\Styles\CopperDark.vsf;Glow|VCLSTYLE|$(BDSCOMMONDIR)\Styles\Glow.vsf;"Iceberg Classico|VCLSTYLE|$(BDSCOMMONDIR)\Styles\IcebergClassico.vsf";Sky|VCLSTYLE|$(BDSCOMMONDIR)\Styles\Sky.vsf;"Slate Classico|VCLSTYLE|$(BDSCOMMONDIR)\Styles\SlateClassico.vsf";"Tablet Dark|VCLSTYLE|$(BDSCOMMONDIR)\Styles\TabletDark.vsf";Windows10|VCLSTYLE|$(BDSCOMMONDIR)\Styles\Windows10.vsf;"Windows10 Blue|VCLSTYLE|$(BDSCOMMONDIR)\Styles\Windows10Blue.vsf";"Windows10 Dark|VCLSTYLE|$(BDSCOMMONDIR)\Styles\Windows10Dark.vsf";"Windows10 Green|VCLSTYLE|$(BDSCOMMONDIR)\Styles\Windows10Green.vsf";"Windows10 SlateGray|VCLSTYLE|$(BDSCOMMONDIR)\Styles\Windows10SlateGray.vsf";"Windows11 Modern Dark|VCLSTYLE|$(BDSCOMMONDIR)\Styles\Windows11_Modern_Dark.vsf";"Windows11 Modern Light|VCLSTYLE|$(BDSCOMMONDIR)\Styles\Windows11_Modern_Light.vsf"
System;Xml;Data;Datasnap;Web;Soap;Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell;$(DCC_Namespace)
ModernAppDemo
.\$(Platform)\$(Config)
@@ -102,6 +108,9 @@
0
0
+
+ Debug
+
true
PerMonitorV2
diff --git a/Demo/Projects/D11_0/ModernAppDemo.res b/Demo/Projects/D11_0/ModernAppDemo.res
index cbfb928..2c0a697 100644
Binary files a/Demo/Projects/D11_0/ModernAppDemo.res and b/Demo/Projects/D11_0/ModernAppDemo.res differ
diff --git a/Demo/Projects/D11_0/VCLThemeSelectorLauncher.dproj b/Demo/Projects/D11_0/VCLThemeSelectorLauncher.dproj
index e9e318b..0d85d76 100644
--- a/Demo/Projects/D11_0/VCLThemeSelectorLauncher.dproj
+++ b/Demo/Projects/D11_0/VCLThemeSelectorLauncher.dproj
@@ -45,6 +45,12 @@
Base
true
+
+ true
+ Cfg_2
+ true
+ true
+
true
Cfg_2
@@ -52,7 +58,7 @@
true
- "Aqua Light Slate|VCLSTYLE|$(BDSCOMMONDIR)\Styles\AquaLightSlate.vsf";Copper|VCLSTYLE|$(BDSCOMMONDIR)\Styles\Copper.vsf;CopperDark|VCLSTYLE|$(BDSCOMMONDIR)\Styles\CopperDark.vsf;Glow|VCLSTYLE|$(BDSCOMMONDIR)\Styles\Glow.vsf;"Iceberg Classico|VCLSTYLE|$(BDSCOMMONDIR)\Styles\IcebergClassico.vsf";Sky|VCLSTYLE|$(BDSCOMMONDIR)\Styles\Sky.vsf;"Slate Classico|VCLSTYLE|$(BDSCOMMONDIR)\Styles\SlateClassico.vsf";"Tablet Dark|VCLSTYLE|$(BDSCOMMONDIR)\Styles\TabletDark.vsf";Windows10|VCLSTYLE|$(BDSCOMMONDIR)\Styles\Windows10.vsf;"Windows10 Blue|VCLSTYLE|$(BDSCOMMONDIR)\Styles\Windows10Blue.vsf";"Windows10 Dark|VCLSTYLE|$(BDSCOMMONDIR)\Styles\Windows10Dark.vsf";"Windows10 Green|VCLSTYLE|$(BDSCOMMONDIR)\Styles\Windows10Green.vsf";"Windows10 Purple|VCLSTYLE|$(BDSCOMMONDIR)\Styles\Windows10Purple.vsf";"Windows10 SlateGray|VCLSTYLE|$(BDSCOMMONDIR)\Styles\Windows10SlateGray.vsf";"Windows11 Dark|VCLSTYLE|$(BDSCOMMONDIR)\Styles\Windows11_Dark.vsf";"Windows11 Light|VCLSTYLE|$(BDSCOMMONDIR)\Styles\Windows11_Light.vsf"
+ "Aqua Light Slate|VCLSTYLE|$(BDSCOMMONDIR)\Styles\AquaLightSlate.vsf";Copper|VCLSTYLE|$(BDSCOMMONDIR)\Styles\Copper.vsf;CopperDark|VCLSTYLE|$(BDSCOMMONDIR)\Styles\CopperDark.vsf;Glow|VCLSTYLE|$(BDSCOMMONDIR)\Styles\Glow.vsf;"Iceberg Classico|VCLSTYLE|$(BDSCOMMONDIR)\Styles\IcebergClassico.vsf";Sky|VCLSTYLE|$(BDSCOMMONDIR)\Styles\Sky.vsf;"Slate Classico|VCLSTYLE|$(BDSCOMMONDIR)\Styles\SlateClassico.vsf";"Tablet Dark|VCLSTYLE|$(BDSCOMMONDIR)\Styles\TabletDark.vsf";Windows10|VCLSTYLE|$(BDSCOMMONDIR)\Styles\Windows10.vsf;"Windows10 Blue|VCLSTYLE|$(BDSCOMMONDIR)\Styles\Windows10Blue.vsf";"Windows10 Dark|VCLSTYLE|$(BDSCOMMONDIR)\Styles\Windows10Dark.vsf";"Windows10 Green|VCLSTYLE|$(BDSCOMMONDIR)\Styles\Windows10Green.vsf";"Windows10 SlateGray|VCLSTYLE|$(BDSCOMMONDIR)\Styles\Windows10SlateGray.vsf";"Windows11 Modern Dark|VCLSTYLE|$(BDSCOMMONDIR)\Styles\Windows11_Modern_Dark.vsf";"Windows11 Modern Light|VCLSTYLE|$(BDSCOMMONDIR)\Styles\Windows11_Modern_Light.vsf"
System;Xml;Data;Datasnap;Web;Soap;Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell;$(DCC_Namespace)
VCLThemeSelectorLauncher
.\$(Platform)\$(Config)
@@ -64,8 +70,6 @@
2
- 1033
- true
$(BDS)\bin\default_app.manifest
Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)
true
@@ -76,6 +80,7 @@
Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;$(DCC_Namespace)
Debug
$(BDS)\bin\default_app.manifest
+ ..\Ethea_vela_multires.ico
DEBUG;$(DCC_Define)
@@ -87,7 +92,6 @@
Debug
- 1033
true
false
@@ -101,6 +105,10 @@
0
0
+
+ true
+ Debug
+
true
PerMonitorV2
@@ -140,6 +148,13 @@
Microsoft Office 2000 Sample Automation Server Wrapper Components
Microsoft Office XP Sample Automation Server Wrapper Components
File c:\bds\studio\22.0\bin\HelpCtxD11.bpl not found
+ (untitled)
+ (untitled)
+ (untitled)
+ (untitled)
+ (untitled)
+ (untitled)
+ (untitled)
VCLThemeSelectorLauncher.dpr
@@ -158,25 +173,25 @@
true
-
+
VCLThemeSelectorLauncher.exe
true
-
+
VCLThemeSelectorLauncher.exe
true
-
+
VCLThemeSelectorLauncher.exe
true
-
+
VCLThemeSelectorLauncher.exe
true
diff --git a/Demo/Projects/D11_0/VCLThemeSelectorLauncher.res b/Demo/Projects/D11_0/VCLThemeSelectorLauncher.res
index cbfb928..2c0a697 100644
Binary files a/Demo/Projects/D11_0/VCLThemeSelectorLauncher.res and b/Demo/Projects/D11_0/VCLThemeSelectorLauncher.res differ
diff --git a/Demo/Source/uSplitView.dfm b/Demo/Source/uSplitView.dfm
index 1258696..57e6007 100644
--- a/Demo/Source/uSplitView.dfm
+++ b/Demo/Source/uSplitView.dfm
@@ -1,7 +1,7 @@
object FormMain: TFormMain
Left = 0
Top = 0
- Caption = 'TSplitView'
+ Caption = 'Modern App Demo'
ClientHeight = 669
ClientWidth = 1034
Color = clBtnFace
diff --git a/Demo/Source/uSplitView.pas b/Demo/Source/uSplitView.pas
index 91e0341..c3c1e82 100644
--- a/Demo/Source/uSplitView.pas
+++ b/Demo/Source/uSplitView.pas
@@ -656,7 +656,11 @@ procedure TFormMain.SetActiveStyleName(const Value: string);
begin
if Value <> '' then
begin
- TStyleManager.SetStyle(Value);
+ try
+ TStyleManager.SetStyle(Value);
+ except
+ WriteAppStyleToReg(COMPANY_NAME, ExtractFileName(Application.ExeName), 'Windows');
+ end;
WriteAppStyleToReg(COMPANY_NAME, ExtractFileName(Application.ExeName), Value);
FActiveStyleName := Value;
if FActiveStyleName = 'Windows' then
diff --git a/README.md b/README.md
index 222dd9f..6e98a55 100644
--- a/README.md
+++ b/README.md
@@ -38,10 +38,10 @@ License: the CBVCLStylePreview is based on VCLStylePreview (Vcl.Styles.Ext) from
Also included in this repository you can find a full example of an HighDPI - VCL Themed enabled application that uses the VCLThemeSelector to change the Theme. You can run the demo from: Demo\Bin\ModernAppDemo.exe.
-### Preview ( Delphi 11.0 and Windows 11 Dark Style)
+### Preview ( Delphi 11.0 and Windows 11 Modern Dark Style)

-### Preview ( Delphi 11.0 and Windows 11 Light Style)
+### Preview ( Delphi 11.0 and Windows 11 Modern Light Style)

### Demo from 10.1 to 10.3 (with SVGIconsImageList)
@@ -62,6 +62,10 @@ License: this Demo is inspired by TSplitView demo (original software is Copyrigh
## Release Notes ##
+19 Oct 2021
+- Replaced "Windows11 Light" and "Windows11 Dark" Styles with "Windows11 Modern Light" and "Windows11 Modern Dark"
+- Updated demos to use new Windows 11 Styles available from Get-It
+
16 Oct 2021
- Added New Windows11 Light and Dark Themes to Modern Demo (Delphi 11)
- Added New Windows11 Light and Dark Themes to Launcher (Delphi 11)
diff --git a/Source/FVCLThemeSelector.pas b/Source/FVCLThemeSelector.pas
index f4c6ef3..7ff1145 100644
--- a/Source/FVCLThemeSelector.pas
+++ b/Source/FVCLThemeSelector.pas
@@ -40,7 +40,7 @@ interface
, Vcl.Controls;
const
- VCLThemeSelectorVersion = '1.3.0';
+ VCLThemeSelectorVersion = '1.3.1';
DEFAULT_MAXROWS = 3;
DEFAULT_MAXCOLUMNS = 4;
@@ -257,8 +257,8 @@ procedure InitDefaultThemesAttributes;
RegisterThemeAttributes('Windows10 Clear Day',ttLight, clWebLightYellow , clWebLightgrey);
RegisterThemeAttributes('Windows10 Malibu' ,ttLight, clWebLightYellow , clWebLightgrey);
RegisterThemeAttributes('Flat UI Light' ,ttLight, clWebLightYellow , clWebLightgrey);
- RegisterThemeAttributes('Windows11 Light' ,ttLight, clWebLightYellow , clWebAliceBlue);
- RegisterThemeAttributes('Windows11 Dark' ,ttDark, clWebDarkBlue , clWebDarkGray );
+ RegisterThemeAttributes('Windows11 Modern Light',ttLight, clWebLightYellow , clWebAliceBlue);
+ RegisterThemeAttributes('Windows11 Modern Dark' ,ttDark, clWebDarkBlue , clWebDarkGray );
//Non High DPI Themes
RegisterThemeAttributes('Amakrits' ,ttDark , clWebDarkSlategray, clDkGray );
RegisterThemeAttributes('Amethyst Kamri' ,ttLight, clWebLightYellow , clWebLightgrey);