如何更改Windows Ribbon Framwork的 UIRibbon 使用的字体和字体大小？
功能区使用的字体与用户选择作为其 Windows 首选项的字体不匹配 - 这是我的应用程序使用的首选项。这意味着随着 Windows 中的字体变大，功能区会变小。
注意功能区如何在每个屏幕截图中变小：
Segoe UI 9pt（Windows 默认）
Segoe UI 12pt（我用的）
Segoe UI 16pt（客户用什么）
你可以看到，当我们达到 16pt 时，功能区上的文字很难阅读。
背景
用户可以配置 Windows 以使用他们喜欢的字体大小，例如：
- 8点
- 9点
- 12点
以及他们喜欢的字体，例如：
- MS 无衬线字体
- 微软无衬线字体
- 塔霍马
- 世高用户界面
- 口径
但默认情况下， Windows Ribbon Framework使用非用户偏好的字体。
编辑：将图片移到顶部以捕捉被闪亮的东西吸引的松鼠。
编辑2：添加了另一张彩色图片，以获得凹凸。
编辑3：编辑以获得凹凸
编辑4：添加另一张不同的图片以获得凹凸
功能区确实允许自定义功能区的颜色。
以下代码片段用于设置UI_PKEY_GlobalBackgroundColor功能区的。在这种情况下，我使用用户当前选择的 Aero 配色方案的颜色：
IUIFramework framework;
...
TColor glass = Dwm.GetColorizationColor();
VarCast(v, ColorToUIHSB(glass), UI_PKEY_GlobalBackgroundColor.pid);
IPropertyStore ps = framework as IPropertyStore;
ps.SetValue(UI_PKEY_GlobalBackgroundColor, PROPVARIANT(v));
ps.Commit;
现在功能区的颜色与 Windows 的配色方案相匹配：
但我找不到更改字体/大小的选项。
注意：虽然功能区可能会尊重用户的 DPI 设置，但这不是这个问题。
它适用于 Outlook 2010
注意 Outlook 2010 的功能区确实尊重用户的（菜单）字体首选项，这可能会有所帮助。您可以通过调用获取用户的菜单字体[SystemParametersInfo][6]：
SystemParametersInfo(SPI_GETNONCLIENTMETRICS, sizeof(NONCLIENTMETRICS), &ncm, 0));
ncm.lfMenuFont <---
2010 年 9 点展望
2010 年 12 点展望
2010 年 12 点展望
注意到功能区的大小随着字体大小而增加？（在这些调整大小的屏幕截图中，这意味着功能区不会在感知上变小。）
有两种可能：
- Outlook 2010 知道如何在 Windows 功能区框架中调整字体大小
- Outlook 2010 不使用 Windows 功能区框架
Windows 7 画图不起作用
还需要注意的是，Windows 7 中的 Windows Paint 不支持用户的字体首选项。这让我相信它（mspaint）确实使用了 Windows Ribbon Framework，并且 Windows Ribbon Framework 不支持设置字体大小。如果你真的试图提供帮助，并一直阅读到这里，你会意识到这是正确的答案：这是不可能的。因此，如果您想要一个免费的 300 代表，您可以将其添加为答案。
编辑： 交叉发布到微软
关键词： Windows Ribbon Framework，更改字体大小，UIRibbon，字体，功能区 ui，风景 ui，风景区功能区，流利的功能区，流利的 ui，更改字体窗口功能区，uiribbon.h
Microsoft 有许多功能区实现：
- Windows 功能区框架- 本机
- 用于 MFC 的 CMFCRibbonBar - MFC
- 功能区 (WPF) - WPF
- ribbon.codeplex.com - WinForms（不支持）
MS Paint 不支持菜单字体偏好
这是一个屏幕截图，显示了我配置的 Windows 7菜单字体设置为 12pt，msPaint 可见，Outlook 2010 可见以进行比较。
示例代码
type
TfrmRibbonTest = class(TForm, IUIApplication)
...
private
Fframework: IUIFramework;
{IUIApplication}
function OnViewChanged(viewId: SYSUINT; typeID: UI_VIEWTYPE; const view: IUnknown; verb: UI_VIEWVERB; uReasonCode: SYSINT): HResult; stdcall;
function OnCreateUICommand(commandId: SYSUINT; typeID: UI_COMMANDTYPE; out commandHandler: IUICommandHandler): HResult; stdcall;
function OnDestroyUICommand(commandId: SYSUINT; typeID: UI_COMMANDTYPE; const commandHandler: IUICommandHandler): HResult; stdcall;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
hr: HRESULT;
begin
Fframework := CreateComObject(CLASS_UIRibbonFramework) as IUIFramework;
hr := Fframework.Initialize(Self.Handle, Self); //we implement IUIApplication
OleCheck(hr);
hr := Fframework.LoadUI(hInstance, 'APPLICATION_RIBBON');
OleCheck(hr);
end;
function TfrmRibbonTest.OnCreateUICommand(commandId: SYSUINT; typeID: UI_COMMANDTYPE; out commandHandler: IUICommandHandler): HResult;
begin
Result := S_OK;
end;
function TfrmRibbonTest.OnDestroyUICommand(commandId: SYSUINT; typeID: UI_COMMANDTYPE;
const commandHandler: IUICommandHandler): HResult;
begin
Result := S_OK;
end;
function TfrmRibbonTest.OnViewChanged(viewId: SYSUINT; typeID: UI_VIEWTYPE; const view: IUnknown; verb: UI_VIEWVERB; uReasonCode: SYSINT): HResult;
begin
Result := S_OK;
end;
Windows 功能区框架 14pt != 14pt
这是配置为 14pt（在 96dpi 机器上）的Windows菜单字体的屏幕截图。Outlook 2010 是 14pt，Photoshop CS3 是 14pt。丝带……少了。
