paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 04:29:28 +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; ext: TDoubleRect;
begin begin
ext := FChart.LogicalExtent; ext := FChart.LogicalExtent;
center := FChart.ImageToGraph(APoint);
sz := ext.b - ext.a; sz := ext.b - ext.a;
if FixedPoint and (sz.X <> 0) and (sz.Y <> 0) then if FixedPoint and (sz.X <> 0) and (sz.Y <> 0) then begin
ratio := (center - ext.a) / sz center := FChart.ImageToGraph(APoint);
else 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); ratio := DoublePoint(0.5, 0.5);
end;
ext.a := center - sz * ratio / AFactor; ext.a := center - sz * ratio / AFactor;
ext.b := center + sz * (DoublePoint(1, 1) - ratio) / AFactor; ext.b := center + sz * (DoublePoint(1, 1) - ratio) / AFactor;
DoZoom(ext, false); DoZoom(ext, false);