Delphi: рассчитать высоту прямоугольника, необходимую для текста с переносом слов

Я думаю, это зависит от используемого вами бэкэнда GDI. С помощью TGDIBackend.TextoutW выполняется вызов функции Winapi DrawTextW, которая предлагает поддержку для вычисления выходного прямоугольника. Однако интерфейс к TGDIBackend.TextoutW передает прямоугольник по значению, а не как параметр var. Чтобы справиться с этим, вам нужно напрямую вызвать функцию Winapi DrawTextW.

Я всегда получаю 0, что я делаю неправильно? "DrawTextW(bTray.Handle, PChar(OriginalTitle), Length(OriginalTitle), r, DT_CALCRECT или DT_LEFT или DT_TOP или DT_WORDBREAK);"

Какова ценность bTray.Handle?

Я использовал дескриптор формы, мой плохой, мне пришлось использовать canvas.handle (DC). Но теперь, как мне перевести логические единицы в реальные пиксели?

Подожди. Разве вы не рисуете на поверхности GR32?

на TBitmap32, который я затем передаю на TBitmap, который затем загружается в TImage в форме

Звучит как один шаг слишком много. Вы, безусловно, можете рисовать прямо из объекта GR32 в свой элемент управления изображением. Или сделайте это в окне с краской или даже в OnPaint формы. Во всяком случае, я не уверен, что вы вообще подразумеваете под логическими координатами. Вы ничего не сказали о каком-либо отображении координатного пространства.

Из MSDN (DrawTextW) «Если функция завершается успешно, возвращаемое значение представляет собой высоту текста в логических единицах».

Это нормально, вы можете использовать его, если вы не применяли никаких преобразований к контексту устройства, например. режим карты MM_TEXT.

Спасибо, заработало. Отправьте ответ с помощью DrawTextW, чтобы принять его.