如何将Delphi中使用Vcl样式时TActionMainMenuBar的字体修改成独特长尾词风格？

本文共计368个文字，预计阅读时间需要2分钟。

可以通过以下方式简化并改写原文：

要修改TActionMainMenuBar或TMainMenu的字体，设置Screen.MenuFont.Name为'Calibri'。若使用了Vcl样式，且组件注册了StyleHook，则无法再使用此设置。我已设置位图样式设计器（之前称为Vcl样式设计器）。

注意：以上改写尽量保持了原文的意思，并尽量减少了字数。

通常可以像这样改变TActionMainMenuBar或TMainMenu的字体：

Screen.MenuFont.Name := 'Calibri';

使用Vcl样式时,如果为组件注册了StyleHook,则无法再使用它.
我进入了位图样式设计器(以前称为Vcl样式设计器)并更改了MenuItemTextNormal的字体.

问题是更改Font没有任何作用,我只能成功更改文本的颜色.

显然我在这里遗漏了一些东西,为什么我可以更改颜色而不是字体？

正如您所说,在样式设计器中更改MenuItemTextNormal元素(或任何其他)的字体无效,这是因为Vcl样式引擎只是忽略字体大小和名称,只使用vcl样式文件中定义的字体颜色.

作为解决方法,您必须定义并注册新的TActionBarStyleEx后代并覆盖TCustomMenuItem和TCustomMenuButton类的DrawText方法,使用Screen.MenuFont的值绘制菜单.

我刚刚在Vcl Styles Utils项目中添加了一个新单元(Vcl.PlatformVclStylesActnCtrls),它实现了一个新的Action Bar Style,它允许自定义TActionMainMenuBar组件的字体和大小.

要使用它,只需将Vcl.PlatformVclStylesActnCtrls单元添加到项目中,将Screen.MenuFont字体的值更改为

Screen.MenuFont.Name := 'Impact'; Screen.MenuFont.Size := 12;

然后像这样设置TActionManager的样式

ActionManager1.Style:=PlatformVclStylesStyle;

结果将是