paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-04 06:07:29 +01:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Add TDataPointHintTool.OnHintPosition event

Browse Source 
git-svn-id: trunk@38028 -
This commit is contained in:
ask 2012-07-24 08:17:15 +00:00
parent 5fc4d848fb
commit 99d017b9e3
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/tachart/tatools.pas
View File

@ -399,12 +399,16 @@ type
TChartToolHintEvent = procedure (
ATool: TDataPointHintTool; const APoint: TPoint; var AHint: String) of object;
TChartToolHintPositionEvent = procedure (
ATool: TDataPointHintTool; var APoint: TPoint) of object;
{ TDataPointHintTool }
TDataPointHintTool = class(TDataPointTool)
strict private
FHintWindow: THintWindow;
FOnHint: TChartToolHintEvent;
FOnHintPosition: TChartToolHintPositionEvent;
FPrevPointIndex: Integer;
FPrevSeries: TBasicChartSeries;
FUseApplicationHint: Boolean;
@ -422,6 +426,8 @@ type
published
property ActiveCursor;
property OnHint: TChartToolHintEvent read FOnHint write FOnHint;
property OnHintPosition: TChartToolHintPositionEvent
read FOnHintPosition write FOnHintPosition;
property UseApplicationHint: Boolean
read FUseApplicationHint write SetUseApplicationHint default false;
property UseDefaultHintText: Boolean
@ -1498,6 +1504,8 @@ begin
FPrevSeries := Series;
FPrevPointIndex := PointIndex;
APoint := FChart.ClientToScreen(APoint);
if Assigned(OnHintPosition) then
OnHintPosition(Self, APoint);
if UseApplicationHint then begin
FChart.Hint := GetHintText;