Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Размер окна всплывающей подсказки [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;


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


Наверх

Титульная страница Поиск, карта сайта Написать письмо