Рассчитать реальную высоту TQRMemo на QuickReport

Question

У меня есть несколько записок с разными шрифтами на QuickReport.Теперь я хотел бы знать самую нижнюю точку для всех (для установки некоторой формы ниже).Как?Если я вычисляю TextHeight для каждого и нескольких строк (aMemo.ParentReport.TextHeight (aMemo.Font, 'W') * aMemo.Lines.Count), результаты будут некорректными - QuickReport печатает строки, например, со странной высотой и положением моегоформа для некоторых шрифтов слишком высокая или слишком низкая.

Answer 1

Хорошо, я понял.TextHeight нельзя звонить из QuickReport, но из Printer.Canvas.Затем разделите его на Y-разрешение для принтера, затем разделите на 254 и умножьте на 96. Результат будет округленным, и это реальное значение высоты текста в TQRMemo.Все значения недоступны до печати из QuickReport.Очень «умно» возвращать не реальные значения, основанные на тех же свойствах, что и при печати по компонентам (методом TQuickRep.TextHeight).