| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как отуродовать окошко Hint a [D3, D6]
Mikhail © (2002-03-20 18:37:00)Уважаемые мастера, если не затруднит, просвятите
как изменить внешний вид окна hint"a?
Mikhail (2002-03-21 19:56:00) [1]А вот как раз с THintWindowClass и не проходит.
Вообще путаница какая-то с ним. Разберусь...
Тем неменее, всем большое спасибо.
Набережных С. (2002-03-20 23:00:00) [2]В обработчике Application.OnShowHint :
HintInfo.HintWindowClass: THintWindowClass - можно передать свой класс - потомок THintWindow.
Пиноккио (2002-03-20 22:20:00) [3]1. http://www.sources.ru/delphi/gui/hintwindows_with_icons.shtml
2.По поводу шрифта я делал так
Application.OnShowHint := MyProc1
procedure MyProc1 (var HintStr: String;
var CanShow: Boolean; var HintInfo: THintInfo);
...
for I := 0 to Application.ComponentCount - 1 do
if Application.Components[I] is THintWindow then begin
with THintWindow(Application.Components[I]).Canvas do begin
Font.Name := TControl(HintInfo.HintControl).Font.Name;
Font.Size := 10;
Font.Color := TControl(HintInfo.HintControl).Font.Color;
Font.Style := Font.Style + [fsItalic];
HintInfo.HintColor := clGreen; //если хочешь менять этот параметер, то надо переопределять метод Pain THintWindow, там прописано жестко HintInfo.HintColor := clInfoBk;
end;
end;
Mikhail (2002-03-20 19:35:00) [4]Спасибо. Посторонний оптимизм не всегда заразителен...
Впрочем, к исходникам отсылать - не велика помощь. Тем не
менее спасибо, drpass, что напомнили об их существовании.
Возможно кто-нибудь посоветует что-либо поконкретнее.
Заранее благодарен.
drpass (2002-03-20 19:26:00) [5]См. исходники TApplication в модуле Forms. Все можно, если захотеть
Mikhail (2002-03-20 19:13:00) [6]Да нет же не то. Возможно не корректно спросил.
1. Возможно ли впаять в это окно картинку?
2. Изменить хотя бы шрифт hint"a?
Pat (2002-03-20 18:55:00) [7]SetWindowRgn()
| |
