| Class TNewHint (unit Danhint1) |
THintWindow
| Constructors |
constructor Create(AOwner:TComponent);| Functions |
procedure ActivateHint(Rect: TRect; const AHint: string);
destructor Destroy;
procedure CreateParams(var Params: TCreateParams);
procedure Paint;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);
procedure CheckUpRight(Spot:TPoint);
function FindCursorControl:TControl;
function FindDanHint:TDanHint;
procedure SelectProperHintDirection(ARect:TRect);| Properties |
property HintDirection : THintDirection| Events |
| Variables |
FDanHint : TDanHint;
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;