如何在运行时计算 TCategoryButtons 的高度？

Question

在 Windows 10 中的 Delphi 10.4.2 VCL 应用程序中，我如何计算 TCategoryButtons 对象在运行时的高度，即其所有按钮高度及其类别项的总和，因为此高度可能会有所不同取决于它的字体大小？

在运行时测量像素高度，我注意到所有按钮都具有相同的高度，并且按钮具有与类别项不同的高度。

另外，请注意按钮在 Object Inspector 中没有发布的 Height 属性。

但是难道不应该用一些低级的方法来计算它所有的按钮高度和它的Category项的总和吗？

Answer 1

这是一个完全用 Pascal 实现的控件，在 Vcl.CategoryButtons.pas 中。

因此，您可以确切地看到它是如何实现的。例如，在TCategoryButtons.Paint 中，您可以看到其完整的绘图代码。同样，您可以调查在MouseMove（或MouseDown 或MouseUp）中完成的命中测试。

因此，如果不出意外，您可以使用此代码创建自己的修改版TCategoryButtons。您的版本可以在确定后（例如，肯定在绘画之后）保存总高度。

但是，快速浏览后，TButtonCategory.Bounds 似乎很有趣。如果幸运的话，这会返回一个类别的屏幕矩形。最后一个类别的rect的Bottom应该是整个控件的（有效使用的）高度。

这似乎对我有用：

这里我画了一个与控件高度相同的红色条。

procedure TForm5.FormPaint(Sender: TObject);
begin
  var y := CategoryButtons1.Categories[
    CategoryButtons1.Categories.Count - 1
  ].Bounds.Bottom;
  Canvas.Brush.Color := clRed;
  Canvas.FillRect(Rect(0, 0, ClientWidth, y))
end;