【Delphi】开发IOS 程序，TLabel 中英文字对齐（水平），一行代码解决显示对齐问题！

于 2023-11-22 21:26:18 发布
阅读量470 收藏
点赞数 4
分类专栏： IOS Delphi 文章标签： ios 对齐 Delphi iOS 对齐
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/sensor_WU/article/details/134562336
版权
Delphi 同时被 2 个专栏收录
148 篇文章 72 订阅
订阅专栏
IOS
10 篇文章 0 订阅
订阅专栏

目录

一、问题现象：

二、解决方案（一行代码解决ios对齐问题）：

三、解决后效果：

四、后记：

一、问题现象：

        在用 Delphi 开发ios程序时，使用TLabel控件显示，会出现中英文无法水平对齐，英文字符会靠上大概少半行，看起来很不协调。

        如下图所示：

        出现这样的问题，从 ios 9 开始就一直存在。目前测试的11.3仍然存在这个问题！所以特写出此解决方案，以方便需要的朋友！

二、解决方案（一行代码解决ios对齐问题）：

        由于 Delphi 的版本比较多，不同的版本解决方案基本一致，但都是需要修该对应版本的FMX.FontGlyphs.iOS.pas文件。如果默认安装，一般该文件位于C:\Program Files (x86)\Embarcadero\Studio\22.0\source\fmx目录下，注意22.0表示版本，不同的版本这个数字不一样。

  1. 找到 FMX.FontGlyphs.iOS.pas 这个文件；
  2. 将该文件拷贝到你的工程文件目录下（也就是你正在开发的工程文件）；
  3. 修改拷贝后的 FMX.FontGlyphs.iOS.pas 文件；

        本文使用的是D11.3版本，修改 FMX.FontGlyphs.iOS.pas 这个文件中的这个过程 GetDefaultBaseline 。就是修改205行，将 Chars := 'a'; 修改为 Chars := '中';

重点：

        在工程文件中引用修改后的 FMX.FontGlyphs.iOS.pas 文件。

  {$IFDEF  IOS}
      FMX.FontGlyphs.iOS,    //IOS 对齐
  {$ENDIF}

修改前文件：

{*******************************************************}
{                                                       }
{             Delphi FireMonkey Platform                }
{ Copyright(c) 2012-2023 Embarcadero Technologies, Inc. }
{              All rights reserved                      }
{                                                       }
{*******************************************************}

unit FMX.FontGlyphs.iOS;

interface

{$SCOPEDENUMS ON}

uses
  System.Math, System.Types, System.Classes, System.SysUtils, System.UITypes, System.UIConsts, System.Generics.Collections,
  System.Generics.Defaults, Macapi.ObjectiveC, Macapi.CoreFoundation, iOSapi.CocoaTypes, iOSapi.CoreGraphics,
  iOSapi.Foundation, iOSapi.CoreText, iOSapi.UIKit, FMX.Types, FMX.Surfaces, FMX.FontGlyphs;

type
  TIOSFontGlyphManager = class(TFontGlyphManager)
  const
    BoundsLimit = $FFFF;
  private
    FColorSpace: CGColorSpaceRef;
    FFontRef: CTFontRef;
    FColoredEmojiFontRef: CTFontRef;
    FDefaultBaseline: Single;
    FDefaultVerticalAdvance: Single;
    procedure GetDefaultBaseline;
    function GetFontDescriptor: CTFontDescriptorRef;
    function CGColorCreate(const AColor: TAlphaColor): CGColorRef;
    function CTFrameCreate(const APath: CGMutablePathRef; const ACharacter: string): CTFrameRef;
  protected
    procedure LoadResource; override;
    procedure FreeResource; override;
    function DoGetGlyph(const ACharacter: UCS4String; const Settings: TFontGlyphSettings;
      const UseColorfulPalette: Boolean): TFontGlyph; override;
    function DoGetBaseline: Single; override;
    function IsColorfulCharacter(const ACharacter: UCS4String): Boolean; override;
  public
    constructor Create;
    destructor Destroy; override;
  end;

implementation

uses
  System.Character, System.Math.Vectors, Macapi.Helpers, FMX.Graphics, FMX.Consts, FMX.Utils;

//........ 此处省略了代码

procedure TIOSFontGlyphManager.GetDefaultBaseline;
var
  Chars: string;
  Str: CFStringRef;
  Frame: CTFrameRef;
  Attr: CFMutableAttributedStringRef;
  Path: CGMutablePathRef;
  Bounds: CGRect;
  FrameSetter: CTFramesetterRef;
  // Metrics
  Line: CTLineRef;
  Lines: CFArrayRef;
  Runs: CFArrayRef;
  Run: CTRunRef;
  Ascent, Descent, Leading: CGFloat;
  BaseLinePos: CGPoint;
begin
  Path := CGPathCreateMutable();
  Bounds := CGRectMake(0, 0, BoundsLimit, BoundsLimit);
  CGPathAddRect(Path, nil, Bounds);
  Chars := 'a';
  Str := CFStringCreateWithCharacters(kCFAllocatorDefault, PChar(Chars), 1);

  Attr := CFAttributedStringCreateMutable(kCFAllocatorDefault, 0);
  CFAttributedStringReplaceString(Attr, CFRangeMake(0, 0), Str);

  CFAttributedStringBeginEditing(Attr);
  try
    // Font
    if FFontRef <> nil then
      CFAttributedStringSetAttribute(Attr, CFRangeMake(0, 1), kCTFontAttributeName, FFontRef);
  finally
    CFAttributedStringEndEditing(Attr);
  end;

  FrameSetter := CTFramesetterCreateWithAttributedString(CFAttributedStringRef(Attr));
  CFRelease(Attr);

  Frame := CTFramesetterCreateFrame(FrameSetter, CFRangeMake(0, 0), Path, nil);
  CFRelease(FrameSetter);
  CFRelease(Str);

  // Metrics
  Lines := CTFrameGetLines(Frame);
  Line := CTLineRef(CFArrayGetValueAtIndex(Lines, 0));
  Runs := CTLineGetGlyphRuns(Line);
  Run := CFArrayGetValueAtIndex(Runs, 0);
  CTRunGetTypographicBounds(Run, CFRangeMake(0, 1), @Ascent,  @Descent, @Leading);

  CTFrameGetLineOrigins(Frame, CFRangeMake(0, 0), @BaseLinePos);
  FDefaultBaseline := BoundsLimit - BaseLinePos.y;

  FDefaultVerticalAdvance := FDefaultBaseline + Descent;

  CFRelease(Frame);
  CFRelease(Path);
end;

//........ 此处省略了代码

修改后文件：

{*******************************************************}
{                                                       }
{             Delphi FireMonkey Platform                }
{ Copyright(c) 2012-2023 Embarcadero Technologies, Inc. }
{              All rights reserved                      }
{                                                       }
{*******************************************************}

unit FMX.FontGlyphs.iOS;

interface

{$SCOPEDENUMS ON}

uses
  System.Math, System.Types, System.Classes, System.SysUtils, System.UITypes, System.UIConsts, System.Generics.Collections,
  System.Generics.Defaults, Macapi.ObjectiveC, Macapi.CoreFoundation, iOSapi.CocoaTypes, iOSapi.CoreGraphics,
  iOSapi.Foundation, iOSapi.CoreText, iOSapi.UIKit, FMX.Types, FMX.Surfaces, FMX.FontGlyphs;

type
  TIOSFontGlyphManager = class(TFontGlyphManager)
  const
    BoundsLimit = $FFFF;
  private
    FColorSpace: CGColorSpaceRef;
    FFontRef: CTFontRef;
    FColoredEmojiFontRef: CTFontRef;
    FDefaultBaseline: Single;
    FDefaultVerticalAdvance: Single;
    procedure GetDefaultBaseline;
    function GetFontDescriptor: CTFontDescriptorRef;
    function CGColorCreate(const AColor: TAlphaColor): CGColorRef;
    function CTFrameCreate(const APath: CGMutablePathRef; const ACharacter: string): CTFrameRef;
  protected
    procedure LoadResource; override;
    procedure FreeResource; override;
    function DoGetGlyph(const ACharacter: UCS4String; const Settings: TFontGlyphSettings;
      const UseColorfulPalette: Boolean): TFontGlyph; override;
    function DoGetBaseline: Single; override;
    function IsColorfulCharacter(const ACharacter: UCS4String): Boolean; override;
  public
    constructor Create;
    destructor Destroy; override;
  end;

implementation

uses
  System.Character, System.Math.Vectors, Macapi.Helpers, FMX.Graphics, FMX.Consts, FMX.Utils;

//........ 此处省略了代码

procedure TIOSFontGlyphManager.GetDefaultBaseline;
var
  Chars: string;
  Str: CFStringRef;
  Frame: CTFrameRef;
  Attr: CFMutableAttributedStringRef;
  Path: CGMutablePathRef;
  Bounds: CGRect;
  FrameSetter: CTFramesetterRef;
  // Metrics
  Line: CTLineRef;
  Lines: CFArrayRef;
  Runs: CFArrayRef;
  Run: CTRunRef;
  Ascent, Descent, Leading: CGFloat;
  BaseLinePos: CGPoint;
begin
  Path := CGPathCreateMutable();
  Bounds := CGRectMake(0, 0, BoundsLimit, BoundsLimit);
  CGPathAddRect(Path, nil, Bounds);
  Chars := '中';
  //Chars := 'a';
  Str := CFStringCreateWithCharacters(kCFAllocatorDefault, PChar(Chars), 1);

  Attr := CFAttributedStringCreateMutable(kCFAllocatorDefault, 0);
  CFAttributedStringReplaceString(Attr, CFRangeMake(0, 0), Str);

  CFAttributedStringBeginEditing(Attr);
  try
    // Font
    if FFontRef <> nil then
      CFAttributedStringSetAttribute(Attr, CFRangeMake(0, 1), kCTFontAttributeName, FFontRef);
  finally
    CFAttributedStringEndEditing(Attr);
  end;

  FrameSetter := CTFramesetterCreateWithAttributedString(CFAttributedStringRef(Attr));
  CFRelease(Attr);

  Frame := CTFramesetterCreateFrame(FrameSetter, CFRangeMake(0, 0), Path, nil);
  CFRelease(FrameSetter);
  CFRelease(Str);

  // Metrics
  Lines := CTFrameGetLines(Frame);
  Line := CTLineRef(CFArrayGetValueAtIndex(Lines, 0));
  Runs := CTLineGetGlyphRuns(Line);
  Run := CFArrayGetValueAtIndex(Runs, 0);
  CTRunGetTypographicBounds(Run, CFRangeMake(0, 1), @Ascent,  @Descent, @Leading);

  CTFrameGetLineOrigins(Frame, CFRangeMake(0, 0), @BaseLinePos);
  FDefaultBaseline := BoundsLimit - BaseLinePos.y;

  FDefaultVerticalAdvance := FDefaultBaseline + Descent;

  CFRelease(Frame);
  CFRelease(Path);
end;

//........ 此处省略了代码

三、解决后效果：

        已经全部水平对齐，完美解决！

四、后记：

        记得当时在使用D10.1 berlin的时候，就存在这个问题。中间一直在没有用Delphi开发过ios程序，当时以为高版本的Delphi 可能会解决这个问题，没想到D11.3仍然存在这个问题，不知道是否是在什么地方配置下就可以解决（如果确实有知道的请留言告知）。幸好当时解决有记录，今天遇到问题还可以继续使用。这要感谢妈妈教我的：闲时收拾，忙时用！

海纳老吴
关注
  • 4
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 打赏
    打赏
  • 0
    评论
专栏目录
Delphi Xe2应用皮肤后Label字体颜色无法改变问题
09-11
解决Delphi Xe2应用皮肤后Label字体颜色无法改变问题，增加DisableTheme属性可以设置是否禁用皮肤功能
Delphi 开发跨平台 Android / iOS 程序的多语言
pcplayer的博客
04-16 2727
使用 Delphi 的 FireMonkey 框架，开发跨平台的程序，可以做到一个源码，编译成 Windows, Mac OS, Android, iOS，甚至是 Linux 上面运行的程序。 简单说，就是可以开发 Android 和 iOS 的 APP，同时代码不修改也可以运行在 Windows 上和 Mac OS 上面。 如果你发布的 APP 需要给各国用户使用，需要考虑多语言的支持。我之前有博客文章写过如何实现多语言支持： 假期有时间写代码：FireMonkey 之多语言（TLang） 问题简
ios开发 访问mysql_Delphi for iOS开发指南(15):在iOS应用程序中使用SQLite
weixin_39804620的博客
03-06 84
在开始这篇教程之前，你应该阅读并执行下面教程：iOS开发指南(9)：在iOS应用程序中使用ListBox组件来显示TableView这篇教程描述了在iOS Device上，通过dbExpress框架，来使用SQLite作为一个本地数据存储的基本步骤。使用DBExpress来连接数据库dbExpress是一个十分快速的数据库访问框架，由Delphi编写。RAD Studio为很多主要的数据库提供驱动...
10分钟10行代码开发APP(delphi 应用案例)
热门推荐
tanqth的专栏
09-14 2万+
仅用不到三分钟时间，没写一行代码完成数据服务器程序开发；余下5分钟完成应用端程序配置与界面、再用2分钟完成10行代码，总共10分钟10行代码完成包括用户登录、数据读取、数据显示、检索等功能，并可生成Android、iOS、Mac、Win32、Win64多个运行平台下的应用程序（APP）。
Delphi for iOS开发指南(3):创建一个FireMonkey iOS应用程序
wei_wu49036233的专栏
09-03 5982
这篇教程讲述了如何创建一个针对iOS目标平台的“Hello World”FireMonkey 应用程序。     开始前   在使用RAD Studio开发iOS应用程序之前，你需要完成一些重要的配置步骤。这篇教程假设你已经完成了所有必须的配置步骤： 更多细节，请查看： “Delphi for iOS开发指南(1)：在Mac上配置你的开发环境” “Delphi for iOS
Delphi for iOS开发指南(9):在iOS应用程序中使用ListBox组件来显示TableView
wei_wu49036233的专栏
09-03 3872
在FireMonkey iOS应用程序中使用ListBox组件来显示TableView   在iOS平台上，FireMonkey使用FMX.ListBox.TListBox组件来显示一个iOS Style的TableView，像这种ListBox： 这篇教程描述了在你的FireMonkey iOS应用程序中为TableView建立项目列表的基本步骤。     在ListBo
Delphi XE开发HTTPSERVER服务+源码+测试可用
03-20
//服务程序运行了几个月，基本正常，偶尔会出现异步操作异常（因所有连接都是共享同一个ado连接的原因） //以下部分关键代码供参考; TMainForm = class(TForm) IdHTTPServer: TIdHTTPServer; StartServerBtn: ...
CnPack Delphi 代码引擎 v1.0 源代码.rar
07-09
在Delphi项目开发中，有许多类似的窗体需要设计，比如数据字典等操作数据库的窗体。重复的复制、修改类似的代码并不是一件轻松的事情。既耗时间，效率也不高。因此，作者SkyJacker设计了一工具（CnPack Delphi 代码...
Delphi网吧计时收费系统开源代码.rar
07-10
Delphi网吧计时收费系统开源代码，主要功能包括开支、统计两个模块。支持用户换机、自动合计、计费，本套系统已在网吧和游戏厅等场所使用过，水平高的可拿去二次开发。No: Integer; //机器号 　Used: boolean; //已...
Delphi 自动动升级源代码及说明文件(含图片)
05-07
此程序共使用了3个标签（TLabel）显示一些基本信息，1个列表视图（TListView）用来显示需要升级的文件列表，3个按钮（TButton）用来检测、下载和关闭程序，2个进度条（TProgressBar）显示下载进度，1个状态栏...
如何配置windows 10系统下的本地HTTPs开发环境
sensor_WU 博客
04-23 8318
如何配置windows 10系统下的本地HTTPs开发环境 参考：https://zeropointdevelopment.com/how-to-get-https-working-in-windows-10-localhost-dev-environment/ 自己创建证书颁发机构（CA），为自己的本地开发环境颁发证书，并使HTTPS在Windows 10中工作。 我从事很多电子商务和会员...
【delphi】 JSON 操作详解（TJSONObject）
sensor_WU 博客
06-22 6755
Delphi官方提供的对于JSON操作的单元是：system.JSON，delphi将JSON元素都定义为对象，注意是对象，既然是对象就需要创建，需要释放。具体如下： Delphi JSON 常用对象 编号 对象 说明 1 TJSONValue 所有JSON类的祖先，包括以下锁有对象 2 TJSONObject 一个JSON对象，对应一段JSON字符串 3 TJSONPair 代表一个Key-Value的JSON对，包括josnString和j
HTML转EXE工具（HTML App Build）最新版
sensor_WU 博客
02-18 6335
介绍一款可以将HTML网页（包含css，js）转换成EXE的工具，非常方便，只需简单的拖动文件夹或者index.html都程序窗口就可以自动生成EXE程序。所有的HTM以及css或者js文件都不会出现在本地磁盘中，实现了完美加密。
【Delphi】Delphi11.1 版本 Android SDK 更新步骤
sensor_WU 博客
04-07 6319
最近，在Delphi官网下载的Delphi 11.1最新版本，安装后发现Android SDK的版本是25.2.5。编译Android程序32位没有问题，但是编译64位的时候出现错误，提示说：C:\Users\Mac\AppData\Roaming\Embarcadero\BDS\22.0\AndroidSDK26.1.1_64bit.sdk文件不存在。事实上该目录下确实没有这个文件（安装位置不同，提示文件的位置也会不同），只有AndroidSDK25.2.5_64bit.sdk文件。那么我们能否把And.
2022 Delphi 11开发苹果IOS证书等详细配置流程（最新）
sensor_WU 博客
04-24 6108
假设条件：已经有苹果开发者账号（如果没有，请先注册好苹果开发者账号） 开发环境： 名称 版本 开发机（虚拟PC）操作系统 windows 10（Version 21H2 64位） MAC系统（intel Core i7 16GB 2TB） macOS Big Sur 11.6.5 Delphi 版本（Alexandria） 11 Version 28.0.44500.8973 XCode 版本 13.2.1（13C00） 目录 一、准备MAC电脑 .
正则表达式：查找某字符串开始和某字符串结束的字符串
sensor_WU 博客
10-29 5636
正则表达式：查找某字符串开始和某字符串结束的字符串 a.*?b 查找以a开始，并且以b结束的字符串 例如： 字符串为：上海12345abcd.opi,.<>北京 patten ：上海.*?北京 结果：上海12345abcd.opi,.<>北京 如果不需要包含a,b (?<=a).*?(?=b) 例如： 字符串为：上海12345abcd.opi,.<>北京 patten ：（?<=上海).*?(?=北京) 结果：12345abcd.opi,.<> 以
微信公众平台、微信公众平台.小程序、微信.开放平台三者关系及unionid
sensor_WU 博客
01-15 4880
以下内容，仅限于根据自己开发以及阅读微信文档总结，错误之处敬请指出，共同进步！ 一、微信公众平台、微信公众平台.小程序、微信.开放平台登录地址 项目 微信公众平台 微信公众平台.小程序 微信。开放平台 登录地址 https://mp.weixin.qq.com https://mp.weixin.qq.com https://open.weixin.qq.com 登录账号 se...
Delphi 的Websocket Server 控件实现（四、WebSocket Demo程序使用说明）（含源码）
sensor_WU 博客
05-07 4824
Delphi 的Websocket Server 控件实现（四、WebSocket Demo程序使用说明）（含源码）
Delphi 的Websocket Server 控件实现（二、Delphi WebSocket 控件实现）（含源码）
sensor_WU 博客
05-03 4171
目录 二、Delphi WebSocket 控件实现 1、第一步 2、网络数据读写 3、握手处理 4、消息解码 5、控件中使用的关键技术点 1、初始化客户端信息 2、ping实现方法 3、服务器端给客户端发送数据 关于控件的源码下载见《Delphi 的Websocket Server 控件实现（四、WebSocket Demo程序使用说明）》 二、Delphi WebSo...
用Delphi中的comport开发一个rs485程序
最新发布
03-31
以下是一个使用Delphi编写的简单的RS485程序示例： unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class...

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

海纳老吴

你的鼓励将是我创作的最大动力

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付：¥1
获取中
扫码支付

您的余额不足，请更换扫码支付或充值

打赏作者

实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值