TAChart: Add panning tool to the extent demo

git-svn-id: trunk@29675 -

components/tachart/demo/extent/extentdemo.lpi

@@ -1,8 +1,8 @@
 <?xml version="1.0"?>
 <CONFIG>
   <ProjectOptions>
+    <Version Value="9"/>
     <PathDelim Value="\"/>
-    <Version Value="8"/>
     <General>
       <Flags>
         <SaveClosedFiles Value="False"/>
@@ -10,12 +10,14 @@
       </Flags>
       <SessionStorage Value="InProjectDir"/>
       <MainUnit Value="0"/>
-      <TargetFileExt Value=".exe"/>
       <ResourceType Value="res"/>
     </General>
     <VersionInfo>
-      <StringTable Comments="" CompanyName="" FileDescription="" FileVersion="0.0.0.0" InternalName="" LegalCopyright="" LegalTrademarks="" OriginalFilename="" ProductName="" ProductVersion=""/>
+      <StringTable ProductVersion=""/>
     </VersionInfo>
+    <BuildModes Count="1">
+      <Item1 Name="default" Default="True"/>
+    </BuildModes>
     <PublishOptions>
       <Version Value="2"/>
       <IgnoreBinaries Value="False"/>
@@ -28,14 +30,18 @@
         <LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
       </local>
     </RunParams>
-    <RequiredPackages Count="2">
+    <RequiredPackages Count="3">
       <Item1>
-        <PackageName Value="TAChartLazarusPkg"/>
-        <MinVersion Major="1" Valid="True"/>
+        <PackageName Value="LCLBase"/>
+        <MinVersion Major="1" Release="1" Valid="True"/>
       </Item1>
       <Item2>
-        <PackageName Value="LCL"/>
+        <PackageName Value="TAChartLazarusPkg"/>
+        <MinVersion Major="1" Valid="True"/>
       </Item2>
+      <Item3>
+        <PackageName Value="LCL"/>
+      </Item3>
     </RequiredPackages>
     <Units Count="2">
       <Unit0>
@@ -53,10 +59,10 @@
     </Units>
   </ProjectOptions>
   <CompilerOptions>
-    <Version Value="9"/>
+    <Version Value="10"/>
     <PathDelim Value="\"/>
     <SearchPaths>
-      <IncludeFiles Value="$(ProjOutDir)\"/>
+      <IncludeFiles Value="$(ProjOutDir)"/>
       <UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
     </SearchPaths>
     <Parsing>

components/tachart/demo/extent/main.lfm

@@ -7,7 +7,7 @@ object Form1: TForm1
   ClientHeight = 397
   ClientWidth = 396
   OnCreate = FormCreate
-  LCLVersion = '0.9.29'
+  LCLVersion = '0.9.31'
   object Chart1: TChart
     Left = 0
     Height = 307
@@ -15,9 +15,8 @@ object Form1: TForm1
     Width = 396
     AxisList = <    
       item
-        Alignment = calLeft
         Grid.Visible = False
-        Title.Font.Orientation = 900
+        Title.LabelFont.Orientation = 900
       end    
       item
         Alignment = calBottom
@@ -34,13 +33,13 @@ object Form1: TForm1
     Title.Text.Strings = (
       'TAChart'
     )
+    Toolset = ChartToolset1
     Align = alClient
     ParentColor = False
     object Chart1LineSeries: TLineSeries
       LinePen.Color = clRed
       Pointer.Brush.Color = clRed
       Pointer.Pen.Color = clRed
-      SeriesColor = clRed
       ShowPoints = True
       Source = RandomChartSource1
     end
@@ -49,7 +48,6 @@ object Form1: TForm1
       Pen.Color = clGreen
       Pen.Style = psDot
       Position = 1.7
-      SeriesColor = clGreen
       UseBounds = False
     end
     object clLeft: TConstantLine
@@ -57,21 +55,18 @@ object Form1: TForm1
       Pen.Color = clGreen
       Pen.Style = psDot
       Position = -1.7
-      SeriesColor = clGreen
       UseBounds = False
     end
     object clTop: TConstantLine
       Pen.Color = clGreen
       Pen.Style = psDot
       Position = 1.7
-      SeriesColor = clGreen
       UseBounds = False
     end
     object clBottom: TConstantLine
       Pen.Color = clGreen
       Pen.Style = psDot
       Position = -1.7
-      SeriesColor = clGreen
       UseBounds = False
     end
   end
@@ -143,4 +138,17 @@ object Form1: TForm1
     left = 176
     top = 118
   end
+  object ChartToolset1: TChartToolset
+    left = 328
+    top = 332
+    object ChartToolset1PanDragTool1: TPanDragTool
+      Shift = [ssRight]
+      LimitToExtent = [pdLeft, pdUp, pdRight, pdDown]
+    end
+    object ChartToolset1ZoomDragTool1: TZoomDragTool
+      Shift = [ssLeft]
+      AnimationInterval = 100
+      AnimationSteps = 5
+    end
+  end
 end

components/tachart/demo/extent/main.pas

@@ -5,7 +5,7 @@ unit main;
 interface
 
 uses
-  ExtCtrls, Spin, StdCtrls, Forms, TAGraph, TASeries, TASources;
+  ExtCtrls, Spin, StdCtrls, Forms, TAGraph, TASeries, TASources, TATools;
 
 type
 
@@ -14,6 +14,9 @@ type
   TForm1 = class(TForm)
     cgUseBounds: TCheckGroup;
     Chart1: TChart;
+    ChartToolset1: TChartToolset;
+    ChartToolset1PanDragTool1: TPanDragTool;
+    ChartToolset1ZoomDragTool1: TZoomDragTool;
     clRight: TConstantLine;
     clLeft: TConstantLine;
     clTop: TConstantLine;