Class TNewHint (unit Danhint) |
Inherits from
THintWindow
constructor Create(AOwner:TComponent);
procedure ActivateHint(Rect: TRect; const AHint: string);
destructor Destroy;
Application.
function BetweenToken(var S: String; Sep: Char):String;
S.
procedure CreateParams(var Params: TCreateParams);
function FindToken(var S: String; Sep: Char): String;
Tricky, why here can't use FDanHint.
procedure Paint;
Add the above makes the beneath window overlap hint
function TokenCount(S: String; Sep: Char):Integer;
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 FindDanHint:TDanHint;
procedure SelectProperHintDirection(ARect:TRect);
property HintDirection : THintDirection
FDanHint : TDanHint;
FHintDirection : THintDirection;
constructor Create(AOwner:TComponent);
procedure ActivateHint(Rect: TRect; const AHint: string);
destructor Destroy;
Application.HintColor:=clBackground;
function BetweenToken(var S: String; Sep: Char):String;
S. rechts nach token Result.links vor
procedure CreateParams(var Params: TCreateParams);
function FindToken(var S: String; Sep: Char): String;
Tricky, why here can't use FDanHint.OnSe...?
procedure Paint;
Add the above makes the beneath window overlap hint
function TokenCount(S: String; Sep: Char):Integer;
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 FindDanHint:TDanHint;
procedure SelectProperHintDirection(ARect:TRect);
property HintDirection : THintDirection
FDanHint : TDanHint;
FHintDirection : THintDirection;