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

Merged revision(s) 51585 #2ee5aeec56 from trunk:

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

git-svn-id: branches/fixes_1_6@51611 -
This commit is contained in:
maxim 2016-02-13 12:42:53 +00:00
parent 83e7ffa28b
commit 26e14895f4
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

@ -1334,12 +1334,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);