Class TNewHint (unit Danhint1) |
Inherits from
THintWindow
constructor Create(AOwner:TComponent);
- Public declarations
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
property HintDirection : THintDirection
FDanHint : TDanHint;
Private declarations
FHintDirection : THintDirection;
constructor Create(AOwner:TComponent);
Public declarations
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
property HintDirection : THintDirection
FDanHint : TDanHint;
Private declarations
FHintDirection : THintDirection;