Текущий архив: 2002.10.31;
Скачать: CL | DM;
Вниз
А как вставить BMP в hint ? Найти похожие ветки
← →
pirat © (2002-10-21 15:16) [0]Помогите, кто знает как это сделать, плз. :)
← →
Игорь Шевченко © (2002-10-21 15:20) [1]THintWindow.Paint перекрыть
← →
MegaBass © (2002-10-21 15:46) [2]правильно нащет THintWindow
остальное HELP читай
← →
pirat © (2002-10-22 12:18) [3]я так понял что должен от него уначледовать свой класс, перекрыть виртуальные методы, и установить HintWindowClass равный объекту своего класса, правильно?
никаких Paint я там не нашел, чтож, самому вставлять?
← →
Skier © (2002-10-22 12:22) [4]>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;
← →
Игорь Шевченко © (2002-10-22 12:41) [5]pirat © (22.10.02 12:18)
Рассуждения правильные, так и надо делать.
Страницы: 1 вся ветка
Текущий архив: 2002.10.31;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.018 c
