delphi – 如何获取vsf文件的样式名称(VCL样式文件)？

发布时间：2020-12-15 04:18:25 所属栏目：大数据来源：网络整理

导读：我有一个用delphi-xe2编写的应用程序,现在我正在添加VCL样式支持,所以我想构建一个菜单来选择要加载和应用的vcl样式文件,这部分工作正常,菜单是在运行时构建的在具有样式文件的文件夹的内容中.但现在我想显示vcl样式的名称而不是文件名,就像这个图像一样我

我有一个用delphi-xe2编写的应用程序,现在我正在添加VCL样式支持,所以我想构建一个菜单来选择要加载和应用的vcl样式文件,这部分工作正常,菜单是在运行时构建的在具有样式文件的文件夹的内容中.但现在我想显示vcl样式的名称而不是文件名,就像这个图像一样

我如何获得vcl样式文件的样式名称？

解决方法

您可以使用 TStyleManager.IsValidStyle函数,传递返回此内容的 TStyleInfo记录以及与vcl样式相关的其他信息.

检查此示例应用

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils,Vcl.Styles,Vcl.Themes;

var
 Style : TStyleInfo;
begin
  try
    if TStyleManager.IsValidStyle('C:UsersPublicDocumentsRAD Studio9.0StylesRubyGraphite.vsf',Style) then
    begin
       Writeln(Format('Name           %s',[Style.Name]));
       Writeln(Format('Author         %s',[Style.Author]));
       Writeln(Format('Author EMail   %s',[Style.AuthorEMail]));
       Writeln(Format('Author URL     %s',[Style.AuthorURL]));
       Writeln(Format('Version        %s',[Style.Version]));
    end;
  except
    on E: Exception do
      Writeln(E.ClassName,': ',E.Message);
  end;
  readln;
end.

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!