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日

• 首次發布選擇器和演示應用程序