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) ![/Demo/Images/DemoPreviewD11_Dark.jpg](/Demo/Images/DemoPreviewD11_Dark.jpg) -### Preview ( Delphi 11.0 and Windows 11 Light Style) +### Preview ( Delphi 11.0 and Windows 11 Modern Light Style) ![/Demo/Images/DemoPreview_D11_Light.jpg](/Demo/Images/DemoPreview_D11_Light.jpg) ### 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);