Размер окна всплывающей подсказки

← →
Def (2004-08-04 22:03) [0]

Можно ли, зная текст, который будет выводится в подсказке, определить ее размеры (особенно хотелось бы высоту)?

← →
Def (2004-08-04 22:32) [1]

Сейчас использую

Function GetHintRect(HintWindow:hwnd;Text:string):TRect; begin Result := Types.Rect(0, 0, SendMessage(HintWnd, TTM_GETMAXTIPWIDTH, 0, 0), 0); DrawText(GetWindowDC(HintWindow), PChar(Text), -1, Result, DT_CALCRECT or DT_LEFT or DT_WORDBREAK or DT_NOPREFIX); Inc(Result.Right, 6); Inc(Result.Bottom, 2); end;

Но для многострочных подсказок размер считается неправильно - чем больше строк, тем неправильнее.

← →
Timedrops © (2004-08-04 22:50) [2]

Для получения размера текста надо вызвать API GetTextMetrics - она возвращает инфо о шрифте (TTextMetric).
И о его высоте, начертании, и межстрочном интервале кстати тоже.

← →
Ricks © (2004-08-05 00:10) [3]

Твой вариант будет кушать очень много памяти. Вот так правильнее:
Function GetHintRect(HintWindow:hwnd;Text:string):TRect; var DC : HDC; begin Result := Types.Rect(0, 0, SendMessage(HintWnd, TTM_GETMAXTIPWIDTH, 0, 0), 0); DC:=GetWindowDC(HintWindow); try DrawText(DC, PChar(Text), -1, Result, DT_CALCRECT or DT_LEFT or DT_WORDBREAK or DT_NOPREFIX); Inc(Result.Right, 6); Inc(Result.Bottom, 2); finally ReleaseDC(HintWindow, DC); end; end;

>[3] Ricks
Мой код был взят из VCL с небольшой правкой. Так вот, он работает не вполне верно. Утечка памяти - это конечно плохо, но я о другом спрашиваю. Как избавиться от прибавления по паре пикселей на каждую строчку подсказки?

Прошу прощения за разные ники - воеменами забываю пароль.

Размер окна всплывающей подсказки Найти похожие ветки