delphi XE4 bit地图 style designer 怎么加载.vsf

delphi XE4 bitmap style designer 如何加载.vsf
我通过bitmap style designer 制作皮肤style1.vsf,网上说放在D:\Program Files\Embarcadero\RAD Studio\11.0\Redist\styles\vcl下。静态加载。在project-options-appearance下面，怎么会出现style1.vsf，只有原先自带的.vsf。请大家帮忙，怎么才能加载运用自己做好的皮肤。谢谢您们。 bitmap delphi VCL 自定义皮肤 bitmap?style
[解决办法]
//注意引用：vcl.themes, vcl.styles, IOutils
procedure TForm1.FormCreate(Sender: TObject);
var
  stylename: string;
begin
  TStyleManager.LoadFromFile('F:\My\Style1.vsf');
  for stylename in  TStyleManager.StyleNames do
    listbox1.Items.Add(stylename);
end;
procedure TForm1.ListBox1Click(Sender: TObject);
begin
  TStyleManager.SetStyle(Listbox1.Items[Listbox1.ItemIndex]);
end;

这是“万一”老师的，只能在vcl下测试用，在FMX下，没找到，希望给你点启发，TStyleManager.StyleNames应该可以根据Name来取索引,这种TArray<>类型的我还没研究怎么用，如果取到索引或Name就可以直接SetStyle调用了。