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

来源:http://www.cnblogs.com/onechen/p/4357804.html

 

相关阅读 >>

Delphi xe3里判断网络是否连接成功

Delphi 匹配中文的正则表达式

Delphi hide

Delphi 判断文件名是否合法,判断文件名路径是否合法

Delphi xe 安卓开发黑屏的另一种解决办法

Delphi研究之驱动开发篇(五)--使用后备列表

Delphi unidac 连接mdb access 数据库

Delphi篇之写托盘图标

Delphi用mapfileandchecksum 函数检测 exe 或 dll 是否被修改

Delphi new 为指针分配内存空间

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...