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;