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

TAChart: Do not try to display empty hint in TDataPointHintTool.

Browse Source 
This is a workaround for issue #22498.

git-svn-id: trunk@38024 -
This commit is contained in:
ask 2012-07-24 06:08:01 +00:00
parent e08839123f
commit 78b05dc0a3
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
components/tachart/tatools.pas
View File

@ -1510,6 +1510,7 @@ begin
if FHintWindow = nil then if FHintWindow = nil then
FHintWindow := THintWindow.Create(nil); FHintWindow := THintWindow.Create(nil);
h := GetHintText; h := GetHintText;
if h = '' then exit;
r := FHintWindow.CalcHintRect(FChart.Width, h, nil); r := FHintWindow.CalcHintRect(FChart.Width, h, nil);
OffsetRect(r, APoint.X, APoint.Y); OffsetRect(r, APoint.X, APoint.Y);
FHintWindow.ActivateHint(r, h); FHintWindow.ActivateHint(r, h);