Class TNewHint (unit Danhint)

Inherits from

THintWindow

Constructors


constructor Create(AOwner:TComponent);



Functions

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);


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;