![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Размер окна всплывающей подсказки [D6, WinXP]
Def © (2004-08-04 22:03:00)Можно ли, зная текст, который будет выводится в подсказке, определить ее размеры (особенно хотелось бы высоту)?
Ajax (2004-08-05 23:00:00) [1]Прошу прощения за разные ники - воеменами забываю пароль.
Ajax (2004-08-05 22:59:00) [2]>[3] Ricks
Мой код был взят из VCL с небольшой правкой. Так вот, он работает не вполне верно. Утечка памяти - это конечно плохо, но я о другом спрашиваю. Как избавиться от прибавления по паре пикселей на каждую строчку подсказки?
Ricks (2004-08-05 00:10:00) [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;
Timedrops (2004-08-04 22:50:00) [4]Для получения размера текста надо вызвать API GetTextMetrics - она возвращает инфо о шрифте (TTextMetric).
И о его высоте, начертании, и межстрочном интервале кстати тоже.
Def (2004-08-04 22:32:00) [5]Сейчас использую
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;
Но для многострочных подсказок размер считается неправильно - чем больше строк, тем неправильнее.