delphi - 在 QuickReport 上计算真实的 TQRMemo 高度

Question

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

Answer 1

好，我知道了。TextHeight不能从 QuickReport 调用，而是从Printer.Canvas. 然后除以打印机的 Y-Resolution，然后除以 254，再除以 96。结果将是四舍五入，这是文本高度的实际值TQRMemo。在从 QuickReport 打印之前无法访问所有值。基于相同属性（例如在按组件（按TQuickRep.TextHeight方法）打印期间）返回非真实值是非常“聪明的”。