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;