如何获得 Delphi 中指定字体的默认宽度？

Question

我正在写 DXF exporter/importer。 DXF MTEX​​T 实体格式支持文本块的宽度因子（它比默认字体宽度宽多少倍）。 Windows LogFont 记录包含 lfWidth 字段（如果您 select logfont 创建 hFont，平均字体宽度是多少像素）。如何获取所用字体的默认宽度来来回计算比例因子？是否有任何 WinAPI 调用？

Answer 1

好的。我找到了。 getTextMetrics 填充一条 TEXTMETRIC 记录。它有一个 tmAveCharWidth。搜索到的值。