From 3791b08ca0b8210554a0bbf30572fd22a4a80cbc Mon Sep 17 00:00:00 2001
From: ask <ask@lazarus-ide.org>
Date: Mon, 29 Mar 2010 11:34:39 +0000
Subject: [PATCH] TAChart: Make AllowZoom work again

git-svn-id: trunk@24280 -
---
 components/tachart/tatools.pas | 1 +
 1 file changed, 1 insertion(+)

diff --git a/components/tachart/tatools.pas b/components/tachart/tatools.pas
index 2dc0e46744..8f66162bd0 100644
--- a/components/tachart/tatools.pas
+++ b/components/tachart/tatools.pas
@@ -175,6 +175,7 @@ end;
 
 procedure TChartZoomDragTool.MouseDown(APoint: TPoint);
 begin
+  if not FChart.AllowZoom then exit;
   Activate;
   with APoint do
     FSelectionRect := Rect(X, Y, X, Y);