Главная страница
    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
3-1
volodya_
2002-03-05 09:17
2002.04.01
Как в Qreport-е посчитать сумму значений по каждой странице?


1-163
Max
2002-03-22 08:32
2002.04.01
Delphi 5 + W2k


1-120
dr_neo
2002-03-21 17:45
2002.04.01
Взлом программ! ! !


3-49
boogier
2002-03-07 14:33
2002.04.01
Как избежать ошибки при выпонении запроса SQL


1-85
vladimir_12
2002-03-19 09:11
2002.04.01
Печать в текстовом режиме





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский