本文整理自网络,侵删。
说明:在 iOS 里有一个人性化的辅助设定,可以将字体放大,但这个设定对 Delphi 是不起作用的,还好 Delphi 提供了这个 iOS API 可以取得。
开发环境:Delphi 10 Seattle
运行系统:iOS 7.0 以上
参考资料:Apple 官网
源码:
function iOSFontSize: Single;
var f: UIFontDescriptor;
begin
f := TUIFontDescriptor.OCClass.preferredFontDescriptorWithTextStyle(UIFontTextStyleBody);
Result := f.pointSize;
end;
相关阅读 >>
更多相关阅读请进入《Delphi》频道 >>