Class TNewHint (unit Danhint1)

Inherits from

THintWindow

Constructors


constructor Create(AOwner:TComponent);

Public declarations


Functions

procedure ActivateHint(Rect: TRect; const AHint: string);

Tricky, why here can't use FDanHint.

destructor Destroy;

Font.

procedure CreateParams(var Params: TCreateParams);


procedure Paint;

Protected declarations

ExStyle:=ExStyle or WS_EX_TRANSPARENT;} {Add the above makes the beneath window overlap hint


procedure CheckDownLeft(Spot:TPoint);


procedure CheckDownRight(Spot:TPoint);


procedure CheckUpLeft(Spot:TPoint);

SetBkMode makes DrawText's text be transparent

procedure CheckUpRight(Spot:TPoint);

back tp original

function FindCursorControl:TControl;


function FindDanHint:TDanHint;


procedure SelectProperHintDirection(ARect:TRect);

ControlAtPos

Properties

property HintDirection : THintDirection


Events

Variables

FDanHint : TDanHint;

Private declarations

FHintDirection : THintDirection;



Constructors


constructor Create(AOwner:TComponent);

Public declarations


Functions


procedure ActivateHint(Rect: TRect; const AHint: string);

Tricky, why here can't use FDanHint.OnSe...?


destructor Destroy;

Font.Name:='MS Sans Serif'; Font.Size:=10;} {if (FDanHint<>nil) then Font.Assign(FDanHint.HintFont);


procedure CreateParams(var Params: TCreateParams);


procedure Paint;

Protected declarations

ExStyle:=ExStyle or WS_EX_TRANSPARENT;} {Add the above makes the beneath window overlap hint


procedure CheckDownLeft(Spot:TPoint);


procedure CheckDownRight(Spot:TPoint);


procedure CheckUpLeft(Spot:TPoint);

SetBkMode makes DrawText's text be transparent


procedure CheckUpRight(Spot:TPoint);

back tp original


function FindCursorControl:TControl;


function FindDanHint:TDanHint;


procedure SelectProperHintDirection(ARect:TRect);

ControlAtPos


Properties


property HintDirection : THintDirection


Events


Variables


FDanHint : TDanHint;

Private declarations


FHintDirection : THintDirection;