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

TAChart: Fix mouse-wheel-zooming with fixed chart center.

Browse Source 
git-svn-id: trunk@51585 -
This commit is contained in:
wp 2016-02-10 21:45:34 +00:00
parent ddcddf88d2
commit 2ee5aeec56
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
components/tachart/tatools.pas
View File

@ -1337,12 +1337,14 @@ var
ext: TDoubleRect;
begin
ext := FChart.LogicalExtent;
center := FChart.ImageToGraph(APoint);
sz := ext.b - ext.a;
if FixedPoint and (sz.X <> 0) and (sz.Y <> 0) then
ratio := (center - ext.a) / sz
else
if FixedPoint and (sz.X <> 0) and (sz.Y <> 0) then begin
center := FChart.ImageToGraph(APoint);
ratio := (center - ext.a) / sz;
end else begin
center := DoublePoint((ext.a.x + ext.b.X) / 2, (ext.a.y + ext.b.y) / 2);
ratio := DoublePoint(0.5, 0.5);
end;
ext.a := center - sz * ratio / AFactor;
ext.b := center + sz * (DoublePoint(1, 1) - ratio) / AFactor;
DoZoom(ext, false);