Измерение и копирование текста в TRichEdit в Delphi: использование EM_FORMATRANGE

Delphi , Компоненты и Классы , TMemo и TRichEdit

Вопрос, поднятый в данном запросе, касается измерения размера текста в компоненте TRichEdit, который используется в среде разработки Delphi. Разработчики, работающие с RichEdit, сталкиваются с необходимостью получить ширину и высоту текста, чтобы, например, корректно отобразить его на холсте (Canvas) или при печати.

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

Пользователь ищет способ получить ширину и высоту текста в TRichEdit аналогично использованию методов TextWidth и TextHeight для TCanvas. Проблема заключается в том, что для использования сообщения EM_FORMATRANGE необходимо указать размер целевой области, который заранее неизвестен, так как размер содержимого в RichEdit также неизвестен.

Подход к решению

Для измерения текста в RichEdit без его отображения можно использовать сообщение EM_FORMATRANGE с параметром wParam, равным ненулевому значению. Это позволит измерить текст, не отображая его на экране или холсте. Пример кода, который демонстрирует этот подход:

var
  Range: TFormatRange;
  Rect: TRect;
  LogX, LogY, SaveMapMode: Integer;
begin
  Range.hdc := ACanvas.Handle;
  Range.hdcTarget := ACanvas.Handle;
  // Получение логических единиц измерения для текущего устройства
  LogX := GetDeviceCaps(Range.hdc, LOGPIXELSX);
  LogY := GetDeviceCaps(Range.hdc, LOGPIXELSY);
  // Установка произвольных значений для ширины и высоты, например, максимально возможных
  Range.rc.Left := 0;
  Range.rc.Right := RichEdit1.ClientWidth * 1440 div LogX; // Произвольная ширина
  Range.rc.Top := 0;
  Range.rc.Bottom := Screen.Height * 1440 div LogY; // Произвольно большая высота
  Range.rcPage := Range.rc;
  Range.chrg.cpMin := 0;
  Range.chrg.cpMax := -1;
  // Выполнение EM_FORMATRANGE для измерения текста
  RichEdit1.Perform(EM_FORMATRANGE, 1, Longint(@Range));
  // Получение фактической высоты текста
  ShowMessage(IntToStr(Range.rc.Bottom * LogY div 1440));
  // Освобождение кэша
  RichEdit1.Perform(EM_FORMATRANGE, 0, 0);
end;

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

В приведенном примере кода используется сообщение EM_FORMATRANGE для измерения текста, при этом параметр wParam установлен в ненулевое значение, что указывает на необходимость только измерения, без отображения текста. После выполнения EM_FORMATRANGE можно получить фактическую высоту текста, используя поля структуры TFormatRange.

Альтернативные подходы и дополнительные материалы

Для более глубокого понимания работы с RichEdit и измерения текста можно обратиться к следующим ресурсам:

• EM_FORMATRANGE Message на MSDN
• Статья о печати из RichEdit

Эти материалы помогут не только разобраться в текущей проблеме, но и дадут дополнительные знания по работе с RichEdit в Delphi.

Эта статья предназначена для разработчиков, использующих Delphi и сталкивающихся с необходимостью измерения и копирования текста из компонента TRichEdit. Приведенные примеры кода на Object Pascal (Delphi) помогут быстро решить эту задачу.

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

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

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

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

:: Главная :: TMemo и TRichEdit ::