有没有一个快速有效的方法来应用一个要在项目中使用的全局字体?

这意味着我想设置一个特定的字体名称,我的项目中的所有控件将使用,如TButton,TEdit,TLabel等。

通常,为Form而设置Font而不是特定的控件会将该窗体上的所有控件都更改为指定的Font。

但是,如果您在特定控件上手动更改字体,则会出现一个小问题,然后通过表单设置字体将不再更新以前已手动更改的控件。

想法1

我正在考虑使用For循环并遍历我的Forms上的每个组件,并以这种方式设置Font,例如:

procedure TForm1.FormCreate(Sender: TObject);
var
  i: Integer;
begin
  with TForm(Self) do
  begin
    for i := 0 to ComponentCount - 1 do
    begin
      if Components[i] is TButton then
      begin
        TButton(Components[i]).Font.Name  := 'MS Sans Serif';
        TButton(Components[i]).Font.Size  := 8;
        TButton(Components[i]).Font.Style := [fsBold];
      end;

      if Components[i] is TLabel then
      begin
        TLabel(Components[i]).Font.Name  := 'MS Sans Serif';
        TLabel(Components[i]).Font.Size  := 8;
        TLabel(Components[i]).Font.Style := [fsBold];
      end;
    end;
  end;
end;

但是这样做看起来很混乱,它也将是一个相当数量的代码,用于一个简单的任务。

想法2

我知道我可以在设计时手动更改每个控件的字体,但是通过这种方式可以花费时间,甚至可能会错过一个控件。

想法3

与Idea 2类似,另一种方法可能是以Form(DFM)形式查看Form,并以此方式查找和替换该字体。

基本上我要在我的应用程序中保持一致,并且在整个过程中使用一个字体是我正在寻找的。

我在这里遗漏了一些完全明显的东西,是我试图为这样的任务做过度的杀伤力?

解决方法

正如评论中所讨论的,这个关键是ParentFont属性。该属性在VCL层次结构中的各个点定义。如果将ParentFont设置为链中所有组件的True,那么您可以通过修改整个应用程序来更改整个应用程序的字体
Application.DefaultFont

默认情况下,大多数组件将ParentFont设置为True,因此您无关。奇怪的是TForm。一个全新的默认窗体将ParentFont设置为False。这有点令人失望,但我怀疑反映的事实是,VCL的原始设计师并没有预料到这一点,并且ParentFont在VCL的发展相对较晚。

无论在理想的世界中,应用程序中的所有表单都应该从您控制的普通基类派生出来。如果是这样,那么你可以简单地改变那里,将ParentFont设置为True,确保没有明确的字体设置应用于您的表单上的任何组件,而且您是黄金的。通过单个属性控制整个应用程序的字体。如果您的表单没有共同的基类,这里是添加它的理想时间。如果您不想这样做,那么您需要为每个表单设置ParentFont。

其他相关的属性是Screen.MessageFontScreen.MenuFont.这些提供了对消息框和菜单中使用的字体的全局控制。然而,Delphi的最新版本已经转移到Windows控件上的消息框和菜单的绘制,因此这些属性没有任何作用。

Delphi – 整个项目的字体一致性?的更多相关文章

  1. 使用Html5多媒体实现微信语音功能

    这篇文章主要介绍了使用Html5多媒体实现微信语音功能,需要的朋友可以参考下

  2. HTML5 canvas 瀑布流文字效果的示例代码

    这篇文章主要介绍了HTML5 canvas 瀑布流文字效果的示例代码的相关资料,小编觉得挺不错的,现在分享给大家,也给大家做个参考。一起跟随小编过来看看吧

  3. Html5自定义字体解决方法

    这篇文章主要介绍了Html5自定义字体解决方法,文中通过示例代码介绍的非常详细,对大家的学习或者工作具有一定的参考学习价值,需要的朋友们下面随着小编来一起学习学习吧

  4. 吃透移动端 Html5 响应式布局

    这篇文章主要介绍了吃透移动端 Html5 响应式布局,文中通过示例代码介绍的非常详细,对大家的学习或者工作具有一定的参考学习价值,需要的朋友们下面随着小编来一起学习学习吧

  5. ios – 如何在使用PhoneGap构建的iPhone应用程序中使用Google Web Font?

    我们希望在为iOS设备构建的PhoneGap应用程序中使用GoogleWebFonts,但我们希望在应用程序包中托管字体文件,而不是使用代码通过Web动态获取字体.如果设备处于脱机状态,除非将字体文件捆绑到应用程序中,否则字体将不可用.谷歌提供下载网络字体的能力,但我们如何引用HTML应用程序内的本地字体文件?解决方法我们将字体文件放在.ttf格式的某个地方的assets/www文件夹中.宣言:然后像这样使用它:

  6. ios – UITableView节头与64位iPad上的行重叠. 32位工作正常

    32位iPad:64位iPad:这是代码:解决方法找到了解决方案.不得不使用CGFloat而不是float作为heightForHeaderAtSection的返回类型:

  7. 如何计算iOS 7中的实际字体大小(不是边框)?

    编辑:链接的“重复”问题仅涉及计算文本矩形.我需要在标签缩放之后计算实际字体大小,而不是字符串大小.此方法现已弃用:如何在iOS7中计算UILabel的字体大小,以缩小文字大小以适应?

  8. ios – NSAttributedString – 获取字体属性

    我需要获取有关我的属性字符串的信息,但无法弄清楚如何.我得到这个字典:检查下划线是很容易的:但是如何获取有关字体的信息,如字体,字体等.感谢任何帮助解决方法你可以从以下字体获得:问题在于确定是否大胆.没有财产.唯一的选择是查看字体的fontName,看看是否包含“Bold”或其他类似术语.不是所有的粗体字体都有“Bold”的名字.同样的问题适用于确定字体是斜体或笔记.您必须查看fontName并查找“斜体”或“倾斜”等内容.

  9. ios – 自定义字体不显示在设备上,但在模拟器上

    本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容,请发送邮件至dio@foxmail.com举报,一经查实,本站将立刻删除。

  10. ios – 如何在UIlabel中显示上标%字符作为字符串?

    我知道%在unicode中不存在上标,但是有什么办法可以显示%作为上标而不是使用html标签?

随机推荐

  1. delphi – 主窗口按进程名称处理

    DelphiXe,Win7x64如何从进程名称(exe文件的完整路径)获取主窗口句柄,或至少一个类或窗口名称(如果该进程只有一个窗口).例:解决方法我同意Petesh的说法,你需要枚举顶级窗口并检查创建它的进程的模块文件名.为了帮助您开始枚举顶级窗口,这是一个delphi实现.首先,当你回调给你时,你需要一些与EnumWindows方法通信的方式.为此声明一条记录,该记录将保存您要查找的模块的文件

  2. 如何在Delphi中纯粹通过RTTI信息(即不使用任何实际对象实例)获取TObjectList的子项类型?

    我正在使用RTTI实现用于流式传输任意Delphi对象的通用代码,并且为了使其工作(更具体地说,为了使加载部分工作),我需要以某种方式获得TObjectList的子项类型<T>不使用任何实际对象实例的字段.要求不使用任何实际对象实例的明显原因是,在从流加载对象的情况下(仅基于要加载的对象的类类型的知识),我将不会有任何实例在加载完成之前完全可用–我宁愿只能访问相关类的纯RTTI数据.我希望能

  3. inno-setup – Inno Setup – 安装程序背景图片

    图像作为安装程序背景如何用inno5.5.9做到这一点?

  4. inno-setup – Inno Setup – 如何添加多个arc文件进行解压缩?

    使用InnoSetup解压缩弧文件.我希望有可能解压缩多个arc文件以从组件选择中安装文件(例如).但仍然显示所有提取的整体进度条.这可能吗?的回答的修改预备是相同的,参考其他答案.在ExtractArc中,为要提取的每个存档调用AddArchive.

  5. delphi – 如何在DataSet的帮助下在TAdvStringGrid中显示数据库中的BLOB图像

    解决方法CreateBlobStream正在创建一个TStream对象,而不是TMemoryStream.由于您不想将JPG写入数据库,因此应使用bmRead而不是bmReadWrite.我不习惯sqlite,但你必须确保使用合适的二进制日期类型.为了确保存储的图像真的是JPG,您应该编写JPG以进行测试,例如:

  6. inno-setup – 在Inno Setup的Code部分下载程序后运行程序

    如何运行我通过Internet下载的应用程序,在代码部分中使用,并等待该应用程序完成运行.我有,使用InnoTools下载程序,下载这两个文件,我想,在第二个完成下载后运行该下载,或jdk-8u111-windows-x64.exe,然后继续安装.解决方法使用其他下载插件,而不是ITD(请参阅下面的原因).例如,InnoDownloadPlugin.当您包含idp.iss时,它定义了一个全局IDP

  7. progress-bar – Inno Setup Run部分的简单进度页面

    我的安装程序非常简单,它基本上是:>欢迎页面>进展页面>最终页面欢迎页面和最终页面是标准页面.在Progress页面,我正在静默安装一堆其他程序.实际的脚本是在[Run]部分中安装每个程序.问题是酒吧达到100%然后停留在那里.我只能更改消息文本.我想要实现的是使用Pascal脚本显示进度,例如:这样我就可以显示更准确的进度条.这就是我所拥有的:问题是,当我构建安装程序时,它不显示欢迎页面.我做错了什么?

  8. delphi – 如何使“显示/隐藏桌面图标”设置生效?

    下面的代码调用SHGetSetSettings函数来隐藏桌面图标但它只是从视图菜单中取消选中“显示桌面图标”.我打电话给SHChangeNotify;更新桌面,但这不起作用?解决方法isa,要刷新桌面,您可以将F5键发送到progman窗口隐藏桌面图标的另一种方法是再次显示

  9. inno-setup – Inno Setup – 避免显示子安装程序的文件名

    我试图使用InnoSetup–Howtohidecertainfilenameswhileinstalling?(FilenameLabel)的想法Theonlysuresolutionistoavoidinstallingthefiles,youdonotwanttoshow,usingthe[Files]section.Installthemusingacodeinstead.UsetheEx

  10. inno-setup – Inno Setup磁力链接下载实施

    我目前正在使用InnoDownloadPlugin为我的安装程序下载文件,这个问题最大的问题是faila正确下载文件.因为连接不良等诸多原因.我想添加一种替代方法来下载文件,因此用户可以选择是否需要常规方式或torrent方式.我知道我可以使用aria2c.exe应用程序(https://aria2.github.io/),有人可以帮我实现它的inno设置代码吗?我需要的是使用torrent(ar

返回
顶部