paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-05 01:58:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Fix animated zoom-out

Browse Source 
git-svn-id: trunk@27573 -
This commit is contained in:
ask 2010-10-04 12:04:59 +00:00
parent 91d3bcfd77
commit 151210cde5
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/tachart/tatools.pas
View File

@ -778,7 +778,7 @@ begin
FChart.Canvas.Rectangle(FSelectionRect); FChart.Canvas.Rectangle(FSelectionRect);
with FSelectionRect do begin with FSelectionRect do begin
if (Left >= Right) or (Top >= Bottom) then begin if (Left >= Right) or (Top >= Bottom) then begin
DoZoom(FChart.Extent.Extent, true); DoZoom(FChart.GetFullExtent, true);
exit; exit;
end; end;
ext.a := FChart.ImageToGraph(TopLeft); ext.a := FChart.ImageToGraph(TopLeft);