From a4cc8f74aa74640b1e1aad5cf09a1e895ce80ae3 Mon Sep 17 00:00:00 2001
From: ask <ask@lazarus-ide.org>
Date: Thu, 1 Apr 2010 10:56:18 +0000
Subject: [PATCH] TAChart: Invert panning direction

git-svn-id: trunk@24338 -
---
 components/tachart/tagraph.pas | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/components/tachart/tagraph.pas b/components/tachart/tagraph.pas
index 61a235a9c9..a835e53f3e 100644
--- a/components/tachart/tagraph.pas
+++ b/components/tachart/tagraph.pas
@@ -485,8 +485,8 @@ procedure TChart.Pan(const ADelta: TPoint);
 var
   d: TDoublePoint;
 begin
-  d.X := ADelta.X / FScale.X;
-  d.Y := ADelta.Y / FScale.Y;
+  d.X := -ADelta.X / FScale.X;
+  d.Y := -ADelta.Y / FScale.Y;
   with FLogicalExtent do begin
     a += d;
     b += d;