VCLThemeSelector

vclthemeselector

VCL应用程序以及HighDPI演示

相关链接：https：//www.embarcadero.com/- https：//learndelphi.org/

使用VclThemeselector，您可以轻松地为Delphi VCL应用添加现代而优雅的主题选择器。表格显示您应用程序中包含的所有VCL样式，然后将其排列在定义的行和列中。您可以指定包含或不包括“ Windows”未式选项的选项。

预览（从Delphi 10.4到Delphi 12-使用PerconconlolStyles）

预览（在delphi 10.3之前 - 无percontrolstyle）

使用Demo文件夹中存在的VclTheMeselectorLauncher演示进行测试，并像在此示例中一样易于使用它：

 var
  LStyleName: string;
  LExcludeWindows: boolean;
  LMaxRows, LMaxCols: Integer;
begin  
  LStyleName := TStyleManager.ActiveStyle. Name ;
  LExcludeWindows := False;
  LMaxRows := 3 ;
  LMaxCols := 4 ;
  if ShowVCLThemeSelector(LStyleName, LExcludeWindows, LMaxRows, LMaxCols) then
    TStyleManager.SetStyle(LStyleName);
end ;    

许可证：CBVCLSTYLEPREVIEW基于vclstylepreview（vcl.styles.ext），来自：github.com/rruz/rruz/vcl-styles-utils，并提供全高DPI支持，并在Apache 2.0许可下发布。

高DPI Delphi应用程序完整示例

还包括在此存储库中，您可以找到一个使用VCLThemSelector更改主题的HighDPI -VCL主题应用程序的完整示例。您可以从：demo bin modernappdemo.exe中运行演示。

预览（Delphi 12和Windows 11 Modern Dark Style）

预览（Delphi 12和Windows 11 Modern Light Style）

从10.1到10.3的演示（带有svgiconsimagelist）

与Delphi 12的演示（具有Perconconlolstyle和Iconfontsimagelist）

警告：要编辑和编译演示您必须首先下载：IconFontSimageList免费组件在这里...和Svgiconimagelist免费组件在这里...

您还可以使用样式的COMPONENTS，从而在演示中实现样式COMPONENTS COMPILER指令。您必须首先在此处下载StyledComponents ...

使用带有圆形按钮的样式围栏的预览

执照

该演示的灵感来自TSPlitView演示（原始软件是版权（C）2015 Embarcadero Technologies，Inc。），并在Apache 2.0许可下发布。

兼容性

vclthemeselector和vclthemeselectorLauncher兼容Delphi XE5至12，与高DPI支持有所不同。

ModernAppDemo与Delphi Delphi 12、11、10.4、10.3、10.2和10.1兼容（注意：10.1 png png流的图片格式biolife.xml不兼容：使用旧的biolife.xml文件）。

发行说明

2024年11月20日

• 对Delphi 12.2的支持添加了支持
• 修复了DemoApp中的字体加载fron注册表

2024年4月26日

• 增加了对Delphi 12.1的支持
• 添加了造型components集成
• 在演示中添加了造型components interposer

2023年10月20日

• 增加了对Delphi 12的支持
• 用Delphi 12（Beta）构建的示例

2023年3月4日

• 用Delphi 11.3建造
• 支持更多VCL样式

2022年9月15日

• 用Delphi 11.2建造

2022年4月10日

• 用Delphi 11.1建造
• 调整图标大小时固定菜单尺寸

2022年2月16日

• 添加了意大利翻译
• 设置了以分配所需/可读属性以编辑控件
• 存储字体时添加PixelSperinch
• 在接口中添加了registerthemeattributes以添加个人样式

2021年10月19日

• 用“ Windows11 Modern Light”和“ Windows11 Modern Dark”替换了“ Windows11 Light”和“ Windows11 Dark”样式
• 更新的演示，使用Get-it可用的新Windows 11样式

2021年10月16日

• 在现代演示中添加了新的Windows11浅色和深色主题（Delphi 11）
• 向发射器添加了新的Windows11浅色和深色主题（Delphi 11）

2021年8月23日

• 对Delphi 11的支持增加了

2021年1月24日

• 将预览更改为单独的光线和黑暗主题
• 添加了有关主题信息的支持：tthemeattribute = class stylename：string;主题类型：tthemetype; EditRequiredColor：Tcolor; EditReadonLyColor：TCOLOR；结尾;

2020年8月30日

• 更改了演示以使用新的IconSfontsvirtualimagelist和svgiconvirtualimagelist组件
• 更新外部项目vclstyleutils

2020年6月19日

• 修复了D10.4的“ Windows”样式的应用程序的VClThemeselector
• 用IconFontSimagelist 2.0重新编译演示（带有GDI+支持）

2020年6月11日

• 添加了svgiconimagelist
• 演示：从字体到SVG的Swith图标

2020年6月9日

• 更新Delphi 10.4的演示
• 为D10.4添加了自定义表单“每控制样式”

2020年5月17日

• 更改了演示中使用的“材料设计桌面”字体

2020年4月27日

• 添加了vclthemeselectorLauncher

2020年4月25日

• 首次发布选择器和演示应用程序