paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-03 07:19:38 +01:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Pass mouse position in client coordinates to TDataPointHintTool.OnHint event

Browse Source 
git-svn-id: trunk@41775 -
This commit is contained in:
ask 2013-06-21 09:23:36 +00:00
parent e10b91af6d
commit b64ef0716f
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/tachart/tatools.pas
View File

@ -1782,12 +1782,13 @@ begin
SetCursor;
FPrevSeries := Series;
FPrevPointIndex := PointIndex;
h := GetHintText;
APoint := FChart.ClientToScreen(APoint);
if Assigned(OnHintPosition) then
OnHintPosition(Self, APoint);
if UseApplicationHint then begin
FChart.Hint := GetHintText;
FChart.Hint := h;
FChart.ShowHint := FChart.Hint <> '';
if not FChart.ShowHint then exit;
Application.HintPause := 0;
@ -1796,7 +1797,6 @@ begin
else begin
if FHintWindow = nil then
FHintWindow := THintWindow.Create(nil);
h := GetHintText;
if h = '' then exit;
r := FHintWindow.CalcHintRect(FChart.Width, h, nil);
OffsetRect(r, APoint.X, APoint.Y);