TRibbon 不显示选项卡

Question

我在 64 位 Windows 计算机 (Win 7) 和 32 位 Windows 计算机 (XP) 上运行 Delphi 2010。

我正在尝试学习如何使用 TRibbon 控件。

我一直在遵循 Marco Cantu 2009 年手册中的示例并观看 YouTube 演示，但我的控制并不像书中或演示中所解释的那样工作。

我通过右键单击控件添加了两个选项卡。然而，当我将 TRibbon 放在主窗体上时，它看起来与我的屏幕截图中的一模一样。它不像书本或 YouTube 演示中的那么高。

我在运行 Windows Xp 和 Delphi 2010 的 Win 32 笔记本电脑上尝试了同样的操作，并得到了完全相同的结果，

这就是我的机器上的样子

这是演示中的样子

再次。当它把它放在表单上时，它的形状和高度并不像我在演示中看到的那样。即使我添加标签。我在安装 Delphi 2010 的过程中是否做错了什么？

Answer 1

我终于在启用了 Aero 的 Win7 64 上的 Delphi XE（更新 1）中重现了该问题。 .DFM 文件中的大小似乎设置错误，并且由于 Ribbon 不支持手动调整大小，因此您无法在 IDE 中直观地修复它（尽管它在运行时） 或在对象检查器 中。它偶尔会在运行时正确显示，但似乎也是零星的。

这是一个令人讨厌的错误，因为它使得设计 Ribbon 变得不可能。您可以添加RibbonGroup项，并分配ActionManager，并尝试完全使用Structure Pane进行设计，但这当然不切实际解决方案。

幸运的是，有一个非常简单的解决方法，尽管必须这样做很烦人。 :)

我两次设法让以下解决方法发挥作用，但重新开始几次都失败了，所以这是一种可能的解决方法（没有承诺 - 在 XE 中有效，在 XE2 Update 2 中始终失败）：

• 右键单击Ribbon并添加至少一个选项卡。
• 右键单击 IDE 中的表单，然后从上下文（弹出）菜单中选择以文本方式查看。
• 在.dfm文本中找到Ribbon控件，并将Height从IDE分配的26更改为200。 （下一步将对其进行调整，但没关系 - 200 解决了眼前的问题。）
• 再次右键单击，然后选择View as Form，然后 功能区应该正确显示。

（我在针对 XE2 Update 2 的 QC 中报告了该问题，因为该问题也存在 - QC #101642）

我追踪到 TCustomRibbon.GetCaptionHeight，特别是

FCaptionHeight := Max(GetSystemMetrics(SM_CYCAPTION), 26);

它似乎是 GetSystemMetrics 调用在某些 Win7 配置上返回小于 26 的值（尽管我还不知道为什么）。该方法中有几行注释行似乎会改变结果，但正如我所说，它们已被注释掉。

奇怪的是，在 TCustomRibbon.Create 中，Height 是通过调用 GetRibbonMetric(rmFullHeight) 来设置的，这会设置 >Result := cRibbonHeight + GetCaptionHeight;，并且 cRibbonHeight 是一个常量，定义为 cRibbonHeight = 117；。

最后我想我已经找到了这个。在 TRibbon 的声明中，有一个 published 属性声明：

published
   ...
  property Height default TCustomRibbon.cRibbonHeight;

因为这是默认值，所以任何其他值似乎都意味着对 GetRibbonMetric 的调用> 上面提到的情况不会发生（参见上面提到的 TCustomRibbon.Create），并且调用 GetSystemMetric 的奇怪结果会导致错误的值26 保存为“其他值”。奇怪；将在上午更新 QC。

附录：更新了 QC 报告并提供了更多详细信息。

附录：质量控制报告于 2012 年 5 月开放，但似乎没有自 XE5 Update 1 起已解决（2014 年 1 月检查）。