| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
А как вставить BMP в hint ? [D5, Win95/98]
pirat © (2002-10-21 15:16:00)Помогите, кто знает как это сделать, плз. :)
Игорь Шевченко (2002-10-22 12:41:00) [1]pirat © (22.10.02 12:18)
Рассуждения правильные, так и надо делать.
Skier (2002-10-22 12:22:00) [2]>pirat
> никаких Paint я там не нашел, чтож, самому вставлять?
THintWindow = class(TCustomControl)
private
FActivating: Boolean;
procedure WMNCHitTest(var Message: TWMNCHitTest); message WM_NCHITTEST;
procedure WMNCPaint(var Message: TMessage); message WM_NCPAINT;
procedure CMTextChanged(var Message: TMessage); message CM_TEXTCHANGED;
protected
procedure CreateParams(var Params: TCreateParams); override;
procedure Paint; override;
public
constructor Create(AOwner: TComponent); override;
procedure ActivateHint(Rect: TRect; const AHint: string); virtual;
procedure ActivateHintData(Rect: TRect; const AHint: string; AData: Pointer); virtual;
function CalcHintRect(MaxWidth: Integer; const AHint: string;
AData: Pointer): TRect; virtual;
function IsHintMsg(var Msg: TMsg): Boolean; virtual;
procedure ReleaseHandle;
property BiDiMode;
property Caption;
property Color;
property Canvas;
property Font;
end;
pirat (2002-10-22 12:18:00) [3]я так понял что должен от него уначледовать свой класс, перекрыть виртуальные методы, и установить HintWindowClass равный объекту своего класса, правильно?
никаких Paint я там не нашел, чтож, самому вставлять?
MegaBass (2002-10-21 15:46:00) [4]правильно нащет THintWindow
остальное HELP читай
Игорь Шевченко (2002-10-21 15:20:00) [5]THintWindow.Paint перекрыть
| |
