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
• 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;