TRichTextBox, определение размера текста

← →
Romkin © (2003-12-29 13:15) [0]

Импортировал я себе RichTextBox, системный, и нормально использую. Вот только одна проблема возникла, как определить полную высоту текста в нем? Мне хотелось бы масштабировать фрейм с этим боксом так, чтобы виден был сразу весь текст. Пока что делаю через определение количества линий и выборочно шрифта, но, думаю, это не подходит.
Что-нибудь можете посоветовать?

← →
MBo © (2003-12-30 19:44) [1]

RichTextBox принципиально отличается от обычного RichEdit?

← →
Romkin © (2004-01-05 13:13) [2]

Ничего понять не могу. Вроде непринципиально, но нашел EM_GETRECT, но почему-то PostMessage(TextBox.Handle, EM_GETRECT, 0, integer(@Rect)); ни к чему не приводит... Вроде правильно должно быть, Rect: TRect. и с HWND тоже не устанавливает.

← →
MBo © (2004-01-05 13:59) [3]

EM_GETRECT дает ограничивающий прямоугольник контрола, ДОСТУПНЫЙ для вывода текста.

Используй EM_FORMATRANGE (обрати внимание, оно работает в твипах)

← →
MBo © (2004-01-05 14:20) [4]

Кроме того, при обработке события OnResizeRequest стандартного контрола испольуется WM_Notify c EN_REQUESTRESIZE

← →
Romkin © (2004-01-05 15:17) [5]

Честно говоря, не могу представить, как это сделать. НАсколько я понял, возвращает последний символ, который поместиться? И что дальше? подбирать, пока все не поместится?

Все, сенькс, сообразил, как попроще :) Мне только высоту надо равнять, ширину - нафиг :)
Делаем минимальной высоту, опосля
ZeroMemory(@ScrollInfo, SizeOf(ScrollInfo)); ScrollInfo.cbSize := SizeOf(ScrollInfo); ScrollInfo.fMask := SIF_RANGE; GetScrollInfo(TextBox.Hwnd, SB_VERT, ScrollInfo); Result := ScrollInfo.nMax - ScrollInfo.nMin;
и выравниваем как надо :)
Ессно, вертикальная прокрутка должна быть у бокса

или так
procedure TForm1.WMNOTIFY(var M: TWMNOTIFY);
var R:TRect;
begin
if (M.NMHdr.hwndFrom=RE1.Handle) and (M.NMHdr.code=EN_REQUESTRESIZE) then
begin
R:=PReqSize(M.NMHdr).rc;
RE1.Height:=R.Bottom-R.Top;
end;
end;

TRichTextBox, определение размера текста Найти похожие ветки