在 QuickReport 上计算真实的 TQRMemo 高度

Question

我在QuickReport 上有几个不同字体的备忘录。现在我想知道所有人的最低点（用于在下面设置一些形状）。如何？如果我按行数 (aMemo.ParentReport.TextHeight(aMemo.Font, 'W') * aMemo.Lines.Count) 为每个和多个计算 TextHeight，结果不正确 - QuickReport 打印行的高度很奇怪某些字体的形状和位置太高或太低。

Answer 1

好的，我明白了。 TextHeight 无法从 QuickReport 中调用，但可以从 Printer.Canvas 中调用。然后除以打印机的 Y 分辨率，然后除以 254 再乘以 96。结果将是圆形的，这是 TQRMemo 中文本高度的实际值。在从 QuickReport 打印之前，所有值都不可访问。它非常 "smart" 到 return 不是基于相同属性的实际值，例如在组件打印期间（通过 TQuickRep.TextHeight 方法）。