[函数] Firemonkey Windows 重新计算 Font Baseline

发布时间：2020-12-15 04:38:44 所属栏目：大数据来源：网络整理

导读：计算字型 Baseline 是一个不常用的函数，但如果想要显示不同大小文字下方对齐，就得用它来计算字型的 Baseline 才行，如果计算不准，显示的文字就会高高低低不整齐。在 Firemonkey 的 Windows 平台下（其它平台没有问题），取得字型文字的 Baseline 总有些

　　计算字型 Baseline 是一个不常用的函数，但如果想要显示不同大小文字下方对齐，就得用它来计算字型的 Baseline 才行，如果计算不准，显示的文字就会高高低低不整齐。

　　在 Firemonkey 的 Windows 平台下（其它平台没有问题），取得字型文字的 Baseline 总有些不对劲（因为并不是所有的字型都有问题，约 5% 的字型取得的 Baseline 位置会不对）。

　　其实官方提供的计算函数TFontGlyphManager.Current.GetBaseline 没什么问题，主要是与 Canvas.TextHeight 搭配运用所产的问题，简单的说就是：。

测试工程下载：

重新计算 Baseline 函数（无需修改官方代码，需要计算时请自行调用下列函数）：

// 计算正确的 Font Baseline for Windows by Aone (2016/11/09)
// 函数改自: FMX.Helpers.Win.pas 內的 TWinFontGlyphManager.LoadResource; 函数
// 参数 Font,Scale 与原来的 GetBaseline 相同，第3个参数 TextHeight1 请代入由 Canvas.TextHeight 取得的文字高度
function GetBaseline(const Font: TFont; const Scale: Single; const TextHeight1: Single): Single;
var Height: Integer;
Metrics: TTextMetric;
CurrentSettings: TFontSettings;
FFont: HFONT;
DC: HDC;
begin
Result := 0;

 CurrentSettings.Family :</span>=<span style="color: #000000"&gt; Font.Family;
 CurrentSettings.Size   :</span>=<span style="color: #000000"&gt; Font.Size;
 CurrentSettings.Style  :</span>=<span style="color: #000000"&gt; Font.StyleExt;
 CurrentSettings.Scale  :</span>=<span style="color: #000000"&gt; Scale;

 Height :</span>= -Round(CurrentSettings.Size *<span style="color: #000000"&gt; CurrentSettings.Scale);
 FFont :</span>= CreateFont(Height,<span style="color: #800080"&gt;0</span>,<span style="color: #800080"&gt;0</span><span style="color: #000000"&gt;,FontWeightToWinapi(CurrentSettings.Style.Weight),Cardinal(</span><span style="color: #0000ff"&gt;not</span><span style="color: #000000"&gt; CurrentSettings.Style.Slant.IsRegular),</span><span style="color: #800080"&gt;0</span>,DEFAULT_CHARSET,OUT_DEFAULT_PRECIS,CLIP_DEFAULT_PRECIS,DEFAULT_QUALITY,DEFAULT_PITCH </span><span style="color: #0000ff"&gt;or</span><span style="color: #000000"&gt; FF_DONTCARE,PChar(CurrentSettings.Family));

 </span><span style="color: #0000ff"&gt;if</span> FFont = <span style="color: #800080"&gt;0</span> <span style="color: #0000ff"&gt;then</span><span style="color: #000000"&gt;
    Exit;

 DC :</span>= CreateCompatibleDC(<span style="color: #800080"&gt;0</span><span style="color: #000000"&gt;);
 SelectObject(DC,FFont);
 GetTextMetrics(DC,Metrics);
 DeleteDC(DC);

 Result :</span>= TextHeight1 * (Metrics.tmAscent /<span style="color: #000000"&gt; Metrics.tmHeight);

end;

修正前：

修正后：

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!