Delphi-XE4 FireMonkey样式和iOS

Question

好吧，这真让我发疯。 这是我的代码：

我下载了高级样式并将iOS样式放置在C:\\Users\\Public\\Documents\\RAD Studio\\11.0\\Styles\\iOS

begin
  TStyleManager.SetStyleFromFile('iOSJet.style');
  TStyleManager.SetStyleFromFileHiRes('iOSJet2x.style');
  Application.Initialize;
  Application.CreateForm(TFormMain, FormMain);
  Application.Run;
end

如果已将这两个文件添加到“部署”中

• iOSJet.style
• iOSJet2x.style

但是我的应用仍然使用默认的ios6样式打开。 当我逐步执行代码时，会发生以下情况：

  Result := False;
  S := LoadFromFile(FileName);
  if Assigned(S) then
  begin
    // Does NOT enter here?
    Result := True;
    SetStyle(S);
  end;

令人困惑的是，我使用的是Embarcadero正式显示的代码：

• http://docwiki.embarcadero.com/Libraries/XE4/en/FMX.Styles.TStyleManager.SetStyleFromFile
• http://blog.marcocantu.com/blog/couple_tips_xe4_fmx_styles.html

有人有工作的风格吗？ 如果是这样，究竟如何？

Answer 1

这似乎有效

procedure msSetupStyles;
var
  vAppDataDirPathRoot: string;
  vAppDataDirPathExec: string;
  vStylePath: string;
  vAppTitle: string;
  AppService: IFMXApplicationService;
begin
  vAppTitle := Application.Title;
  if vAppTitle = '' then
    begin
      if TPlatformServices.Current.SupportsPlatformService(IFMXApplicationService, IInterface(AppService)) then
        begin
          vAppTitle := AppService.GetTitle;
        end
      ;
    end
  ;
  vAppDataDirPathRoot := TPath.GetHomePath + PathDelim;
  vAppDataDirPathExec := vAppDataDirPathRoot + vAppTitle + '.app' + PathDelim; 
  //--
  vStylePath := vAppDataDirPathExec + 'iOSJet.style';
  if FileExists(vStylePath) then
    begin
      TStyleManager.SetStyleFromFile(vStylePath);
      vStylePath := vAppDataDirPathExec + 'iOSJet2x.style';
      if FileExists(vStylePath) then
        begin
          TStyleManager.SetStyleFromFileHiRes(vStylePath);
        end
      ;
    end
  ;
end;