Windows Ribbon Framework：如何更改字体和大小？

Question

如何更改 Windows Ribbon Framwork 的 UIRibbon？

功能区使用的字体与用户选择作为其 Windows 首选项的字体不匹配 - 这是我的应用程序使用的首选项。这意味着随着 Windows 中的字体变大，功能区会变小。

请注意每个屏幕截图中的功能区如何变小：

Segoe UI 9pt（Windows 默认）

Segoe UI 12pt（我使用的） )

Segoe UI 16pt（客户的用途）

您可以看到，当我们达到 16pt 时，功能区上的文本很难阅读。

背景

用户可以将 Windows 配置为使用他们喜欢的字体大小，例如：

• 8pt
• 9pt
• 12pt

和他们喜欢的字体，例如：

• MS Sans Serif
• Microsoft Sans Serif
• Tahoma
• Segoe UI
• Calibri

但默认情况下，Windows 功能区框架使用不用户偏好的字体。

编辑：将图片移至顶部以捕捉被闪亮物体吸引的松鼠。
编辑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 <---

9pt Outlook 2010

12 磅 Outlook 2010

12 磅 Outlook 2010

注意到功能区随着字体大小而增大了吗？ （在这些调整大小的屏幕截图中，这意味着功能区不会在视觉上变小。）

有两种可能性：

• Outlook 2010 知道如何在 Windows 功能区框架中调整字体大小
• Outlook 2010 不使用 Windows 功能区框架

Windows 7 画图不起作用

值得注意的是，Windows 7 中的 Windows Paint 确实不尊重用户的字体首选项。这让我相信它（mspaint）确实使用了 Windows Ribbon Framework，并且 Windows Ribbon Framework 不支持设置字体大小。如果您确实尝试过提供帮助，并一直阅读到这里，您就会意识到这是正确的答案：这是不可能的。因此，如果您想要免费的 300 次代表，您可以将其添加为答案。

编辑： 交叉发布到 Microsoft

关键字： Windows Ribbon Framework、更改字体大小、UIRibbon、字体、功能区 ui、风景 ui、风景功能区、流畅功能区、流畅 ui、更改字体窗口功能区、uiribbon.h

Microsoft 有许多功能区实现：

• Windows 功能区框架 - 原生
• MFC 的 CMFCRibbonBar - MFC
• 功能区 (WPF) - WPF
• ribbon.codeplex.com - WinForms（不受支持）

---

MS Paint 不支持菜单字体首选项

以下屏幕截图显示了我配置的 Windows 7 菜单字体

---

示例代码

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 Ribbon Framework 14pt != 14pt

这是带有 Windows Menu 字体的屏幕截图配置为 14pt（在 96dpi 机器上）。 Outlook 2010 是 14pt，Photoshop CS3 是 14pt。功能区...更少。

另请参阅

• https://i.sstatic.net/VseEN.png
• http://i42.tinypic.com/15x0pj5.jpg" rel="nofollow noreferrer">http:// /i42.tinypic.com/15x0pj5.jpg

Answer 1

我不太确定..您在 Delphi 中使用 Windows Ribbon Framework 并得到了这种奇怪的行为？

我刚刚开始使用框架，但功能区尊重我的喜好。

TUIApp = class(TInterfacedObject, IUIApplication)
...
gApp: TUIApp;
uiFrame: IUIFramework;
...
  CoCreateInstance(CLSID_UIRibbonFramework, nil, CLSCTX_INPROC_SERVER, IUIFramework, uiFrame);

  if Succeeded(uiFrame.Initialize(Handle, gApp)) then
  begin
     if not Succeeded(uiFrame.LoadUI(GetModuleHandle(nil), PChar('SIMPLERIBBON_RIBBON')))then
        sleep(5);
  end;

这就是我在测试项目中所做的全部工作。

9分：

14pt：

也许您更改了错误的选项？我已经设置了“菜单”元素的字体大小。

如果您还有其他问题，请询问...

---

我刚刚检查了 Win7 画图。它确实尊重用户的偏好。因此我猜你做错了什么或者确实改变了错误的选项。

---

按照要求截图：

看起来我们也做了同样的事情。这很奇怪......

Answer 2

根据 Windows 7 Paint 的行为，这似乎是不可能的。 :)

Answer 3

如果你真的尝试过
有帮助，并一直阅读到
在这里，你会意识到这是
正确答案：不可能。所以
如果您想要免费 300 次代表，您可以添加
作为答案。

由于我无法将其作为答案发布（乔治首先进入那里:)），并且由于您似乎迫切需要某种解决方案，因此我将发布仅其他有用的答案或者我可以给出解决您问题的建议：使用不同的功能区控件。您没有说明为什么使用此实现而不是 Delphi 自己的实现，甚至是其他 Microsoft 实现之一。

两个选项是：

• 内置 Delphi TRibbon 控件。我没有在任何公开发布的应用程序中使用过它，但我在自己的小/测试程序中使用过它，并且它在某些地方有点问题。 （例如，我在标题栏上的快捷方式栏上看到了奇怪的绘图问题。）这个 可能在 Delphi XE 中有所改进。它可能遇到类似的错误。然而，它是随 Delphi 一起提供的，如果您有 Delphi、本机代码、VCL，并且作为 VCL 组件附带源代码，那么它是“免费”的，因此您可以在必要时修复问题。

• TMS 功能区控件。我没有使用过它，但我使用过另一个 TMS 控件。这种控制很好，他们的支持可以快速修复错误。 （我在一天内就确认了一个错误，因此“立即”计算时区，并在几天内发布了新版本。）

我相信其他组件供应商可能会制作功能区组件，而且我确实记得读过有人制作了SpTBXLib 修改包含功能区控件，但我还没有听说过它们。我的建议是使用 TMS 功能区。