XE7 iOS 取得系统字型名称
系统字型名称在每个平台的取得方式不尽相同,以下示范如何在 iOS 取得系统内所有字型的名称:
uses // 加入下面二个 uses 文件 iOSapi.UIKit, iOSapi.Foundation,
开一个新工程,放一个按钮 TButton 及 TMemo,在按钮事件内加入下面代码:
procedure TForm1.Button1Click(Sender: TObject); var i: Integer; FontNames: NSArray; begin FontNames := TUIFont.OCClass.familyNames; for i:=0 to FontNames.count - 1 do Memo1.Lines.Add(i.ToString + #9 + UTF8ToString(TNSString.Wrap(FontNames.objectAtIndex(i)).UTF8String)); end;
运行结果:
郑重声明:本站内容如果来自互联网及其他传播媒体,其版权均属原媒体及文章作者所有。转载目的在于传递更多信息及用于网络分享,并不代表本站赞同其观点和对其真实性负责,也不构成任何其他建议。