| Class TNewHint (unit Danhint) |
THintWindow
| Constructors |
constructor Create(AOwner:TComponent);| Functions |
procedure ActivateHint(Rect: TRect; const AHint: string);
destructor Destroy;
function BetweenToken(var S: String; Sep: Char):String;
procedure CreateParams(var Params: TCreateParams);
function FindToken(var S: String; Sep: Char): String;
procedure Paint;
function TokenCount(S: String; Sep: Char):Integer;
procedure CheckDownLeft(Spot:TPoint);
procedure CheckDownRight(Spot:TPoint);
procedure CheckUpLeft(Spot:TPoint);
procedure CheckUpRight(Spot:TPoint);
function FindDanHint:TDanHint;
procedure SelectProperHintDirection(ARect:TRect);| Properties |
property HintDirection : THintDirection| Events |
| Variables |
FDanHint : TDanHint;
FHintDirection : THintDirection;| Constructors |
constructor Create(AOwner:TComponent);| Functions |
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);| Properties |
property HintDirection : THintDirection| Events |
| Variables |
FDanHint : TDanHint;
FHintDirection : THintDirection;