Форум: "Основная";
Текущий архив: 2002.04.01;
Скачать: [xml.tar.bz2];
ВнизКак отуродовать окошко Hint a Найти похожие ветки
← →
Пиноккио (2002-03-20 22:20) [5]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;
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.04.01;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.005 c