Понимание и Оптимизация Отображения RTF Текста в Off-Screen TRichEdit для Delphi XE

Delphi , ОС и Железо , Монитор и Экран

Вопрос разработчика связан с необходимостью реализации инструментария для отображения RTF текста в подложном TRichEdit в среде Delphi XE. Проблема заключается в том, что, несмотря на корректное вычисление размеров текста, его фактическое отображение происходит с искажениями, приводящими к обрезанию текста по ширине и уменьшению высоты до 52 пикселей.

Описание проблемы

Разработчик использует off-screen TRichEdit для рендеринга текста в формате RTF в инструментарии подсказок инструмента (tool tip) в Delphi XE. Необходимо решить две задачи:

1. Измерить размер текста.
2. Отобразить текст.

Для выполнения этих задач был написан метод CallFormatRange, который использует параметр Range для измерения размера текста и последующей его отрисовки. Также разработчик реализовал функцию CalcRichTextRect для измерения размеров текста без его отрисовки и процедуру DrawRichText для отрисовки текста.

Проблема заключается в том, что при вычислении размеров текста получается, что он должен занимать область размером 438x212 пикселей, но фактически текст отображается с обрезанием по ширине и высотой только 52 пикселя. При этом в коде включена обертка текста (word wrap), которая, по мнению разработчика, не должна была быть необходима.

Подтвержденный ответ

Проблема связана с неверными единицами измерения в коде. Например, выражение RichText.Width * Screen.Pixelsperinch приводит к тому, что результат выражается в квадратных пикселях на дюйм, а ожидаемые единицы измерения для прямоугольников, используемых в EM_FORMATRANGE, должны быть в twips. Для преобразования пикселей в twips необходимо использовать следующее выражение:

const
  TwipsPerInch = 1440;
RichText.Width / Screen.PixelsPerInch * TwipsPerInch

Также разработчику не требуется использование off-screen rich-edit контрола. Вместо этого можно использовать контрол rich-edit без окна (windowless), который можно инструктировать на прямую отрисовку в подсказку инструмента. Существует код на Delphi, который упрощает реализацию основных функций.

Обратите внимание, что функция рендеринга RTF в предоставленном коде не подходит под нужды разработчика, так как предполагается, что размеры целевой области уже известны, тогда как нужно их обнаружить перед отрисовкой. Для измерения размера текста RTF следует использовать функцию TxGetNaturalSize.

Обертка текста (word wrap) является важной функцией. Без неё контрол будет предполагать, что у него есть неограниченная ширина для отрисовки, и он будет начинать новую строку только тогда, когда RTF текст это потребует.

Альтернативный путь решения

Разработчик может рассмотреть возможность использования уже готового windowless rich-edit контрола, который позволяет напрямую рисовать RTF текст на поверхность подсказки. Существует публично доступный код, который может быть использован в качестве основы для реализации нужной функциональности.

Пример кода для отрисовки RTF текста

procedure DrawRTF(Canvas: TCanvas; const RTF: string; const Rect: TRect;
  const Transparent, WordWrap: Boolean);
begin
  // Реализация отрисовки RTF текста с учетом передаваемых параметров
end;

Заключение

Используя рекомендации из подтвержденного ответа, разработчик может оптимизировать процесс отрисовки RTF текста в TRichEdit, обеспечивая корректное отображение текста в соответствии с его фактическими размерами. Обращая внимание на правильные единицы измерения и использование windowless контрола, можно избежать описанных проблем с отображением текста.

Создано по материалам из источника по ссылке.

Разработчик столкнулся с проблемой отображения RTF текста в подложном TRichEdit в среде Delphi XE, где несмотря на корректные вычисления размеров, текст отображается с искажениями, и это связано с неверными единицами измерения в коде.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Монитор и Экран ::