delphi - vsfファイル（VCLスタイルファイル）のスタイル名を取得するにはどうすればよいですか？

Question

私はdelphi-xe2で書かれたアプリケーションを持っています、今私はVCLスタイルのサポートを追加しています、それで私はロードして適用するvclスタイルファイルを選択するメニューを構築したいです、この部分はうまく機能しています、メニューはランタイムベースで構築されていますスタイルファイルを含むフォルダのコンテンツ内。しかし今、私はこの画像のようにファイル名の代わりにvclスタイルの名前を表示したいと思います

vclスタイルファイルのスタイルの名前を取得するにはどうすればよいですか？

Answer 1

TStyleManager.IsValidStyleこの関数を使用して、TStyleInfoこれとvclスタイルに関連する別の情報を返すレコードを渡すことができます。

このサンプルアプリを確認してください

{$APPTYPE CONSOLE}

{$R *.res}

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

var
 Style : TStyleInfo;
begin
  try
    if TStyleManager.IsValidStyle('C:\Users\Public\Documents\RAD Studio\9.0\Styles\RubyGraphite.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.