From 5380fecc6fb930a585c6df6c7ca0be78b5c6f3a2 Mon Sep 17 00:00:00 2001
From: ask <ask@lazarus-ide.org>
Date: Fri, 28 Sep 2012 17:47:32 +0000
Subject: [PATCH] TAChart: Add TPanDragTool to the built-in toolset

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

diff --git a/components/tachart/tatools.pas b/components/tachart/tatools.pas
index af04f33363..f1e20f5fc7 100644
--- a/components/tachart/tatools.pas
+++ b/components/tachart/tatools.pas
@@ -570,6 +570,10 @@ begin
     Shift := [ssLeft];
     Toolset := ts;
   end;
+  with TPanDragTool.Create(AChart) do begin
+    Shift := [ssRight];
+    Toolset := ts;
+  end;
   TReticuleTool.Create(AChart).Toolset := ts;
 end;