delphi – 我如何知道TFont名称是否真正受到支持？

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

导读：当我将TRichEdit控件的TFont Name属性设置为“Courier”时,字体将更改为Courier. Edit-Font-Name = "Courier"; 如果我想使用我不确定系统支持的字体(例如在较旧的操作系统上),该怎么办？据我所知,如果我将一个’未知’名称分配给TFont属性,实际字体不会改变

当我将TRichEdit控件的TFont Name属性设置为“Courier”时,字体将更改为Courier.

Edit->Font->Name  = "Courier";

如果我想使用我不确定系统支持的字体(例如在较旧的操作系统上),该怎么办？
据我所知,如果我将一个’未知’名称分配给TFont属性,实际字体不会改变,系统会处理它并坚持使用以前的字体,但我怎样才能以编程方式检查这个？

我想知道字体是否真的改变了(因为字体可用/已安装)？

或者我是否需要查询Screen->字体以查明名称是否在列表中？

仅供参考：使用Borland C Builder(2009),但我确信与Delphi相关.

解决方法

TScreen::Fonts表示TStrings列表,其中包含系统中安装的字体的名称(实际名称而不是文件名).

使用其IndexOf()方法测试您的字体是否存在：

if (Screen->Fonts->IndexOf("Courier") != -1)
{
    ShowMessage("Font installed");
}

（编辑：李大同）

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