Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.04.01;
Скачать: [xml.tar.bz2];

Вниз

Как отуродовать окошко Hint a   Найти похожие ветки 

 
Mikhail   (2002-03-20 18:37) [0]

Уважаемые мастера, если не затруднит, просвятите
как изменить внешний вид окна hint"a?


 
Pat   (2002-03-20 18:55) [1]

SetWindowRgn()


 
Mikhail   (2002-03-20 19:13) [2]

Да нет же не то. Возможно не корректно спросил.
1. Возможно ли впаять в это окно картинку?
2. Изменить хотя бы шрифт hint"a?


 
drpass   (2002-03-20 19:26) [3]

См. исходники TApplication в модуле Forms. Все можно, если захотеть


 
Mikhail   (2002-03-20 19:35) [4]

Спасибо. Посторонний оптимизм не всегда заразителен...
Впрочем, к исходникам отсылать - не велика помощь. Тем не
менее спасибо, drpass, что напомнили об их существовании.
Возможно кто-нибудь посоветует что-либо поконкретнее.
Заранее благодарен.


 
Пиноккио   (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;


 
Набережных С.   (2002-03-20 23:00) [6]

В обработчике Application.OnShowHint :
HintInfo.HintWindowClass: THintWindowClass - можно передать свой класс - потомок THintWindow.


 
Mikhail   (2002-03-21 19:56) [7]

А вот как раз с THintWindowClass и не проходит.
Вообще путаница какая-то с ним. Разберусь...
Тем неменее, всем большое спасибо.



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.04.01;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.005 c
7-333
Filat
2001-12-29 12:42
2002.04.01
Оххх, РЕЕСТР! Оххх, ФАЙЛЫ


1-100
Maybe
2002-03-20 15:58
2002.04.01
экземпляры различных классов в одной коллекции


14-281
Genious
2002-02-16 17:47
2002.04.01
Деление на ноль в Pascal е


1-247
AlexanderS
2002-03-20 23:31
2002.04.01
Как получить значение переменной окружения TEMP?


3-69
Huliganka
2002-03-06 21:27
2002.04.01
Delphi & MS SQL server





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский