From 2eff105803997827cc47a2795e80d38325a1be80 Mon Sep 17 00:00:00 2001
From: ask <ask@lazarus-ide.org>
Date: Mon, 29 Aug 2011 14:43:56 +0000
Subject: [PATCH] TAChart: Add "Transform" page to the panes demo

git-svn-id: trunk@32097 -
---
 components/tachart/demo/panes/Main.lfm | 95 +++++++++++++++++++++++++-
 components/tachart/demo/panes/Main.pas | 13 +++-
 2 files changed, 105 insertions(+), 3 deletions(-)

diff --git a/components/tachart/demo/panes/Main.lfm b/components/tachart/demo/panes/Main.lfm
index e0eb3a14b1..0787cf8fc5 100644
--- a/components/tachart/demo/panes/Main.lfm
+++ b/components/tachart/demo/panes/Main.lfm
@@ -80,7 +80,7 @@ object Form1: TForm1
       end
       object chLink3: TChart
         Left = 0
-        Height = 200
+        Height = 204
         Top = 400
         Width = 612
         AxisList = <        
@@ -99,7 +99,7 @@ object Form1: TForm1
         Title.Text.Strings = (
           'TAChart'
         )
-        Align = alTop
+        Align = alClient
         ParentColor = False
         object chLink3LineSeries1: TLineSeries
           LinePen.Color = clNavy
@@ -108,6 +108,74 @@ object Form1: TForm1
         end
       end
     end
+    object tsTransform: TTabSheet
+      Caption = 'Transform'
+      ClientHeight = 604
+      ClientWidth = 612
+      object chTransform: TChart
+        Left = 0
+        Height = 604
+        Top = 0
+        Width = 612
+        AxisList = <        
+          item
+            Group = 1
+            Marks.Range.Max = 50
+            Marks.Range.UseMax = True
+            Marks.Range.UseMin = True
+            Minors = <>
+            Title.LabelFont.Orientation = 900
+            Transformations = catAuto1
+          end        
+          item
+            Group = 1
+            Marks.Range.Max = 50
+            Marks.Range.UseMax = True
+            Marks.Range.UseMin = True
+            Minors = <>
+            Transformations = catAuto2
+          end        
+          item
+            Group = 1
+            Marks.Range.Max = 50
+            Marks.Range.UseMax = True
+            Marks.Range.UseMin = True
+            Minors = <>
+            Transformations = catAuto3
+          end        
+          item
+            Alignment = calBottom
+            Minors = <>
+          end>
+        Foot.Brush.Color = clBtnFace
+        Foot.Font.Color = clBlue
+        Title.Brush.Color = clBtnFace
+        Title.Font.Color = clBlue
+        Title.Text.Strings = (
+          'TAChart'
+        )
+        Align = alClient
+        ParentColor = False
+        object chTransformLineSeries1: TLineSeries
+          AxisIndexY = 0
+          LinePen.Color = clNavy
+          LinePen.Width = 2
+          Source = rcsLink1
+        end
+        object chTransformLineSeries2: TLineSeries
+          AxisIndexY = 1
+          LinePen.Color = clNavy
+          LinePen.Width = 2
+          Source = rcsLink2
+        end
+        object chTransformLineSeries3: TLineSeries
+          AxisIndexY = 2
+          LinePen.Color = clNavy
+          LinePen.Width = 2
+          Source = rcsLink3
+        end
+      end
+    end
   end
   object rcsLink1: TRandomChartSource
     PointsNumber = 50
@@ -153,4 +221,27 @@ object Form1: TForm1
     left = 28
     top = 424
   end
+  object catAuto1: TChartAxisTransformations
+    left = 104
+    top = 32
+    object catAuto1AutoScaleAxisTransform1: TAutoScaleAxisTransform
+      MaxValue = 1.7
+    end
+  end
+  object catAuto2: TChartAxisTransformations
+    left = 96
+    top = 232
+    object catAuto1AutoScaleAxisTransform2: TAutoScaleAxisTransform
+      MaxValue = 3.7
+      MinValue = 2
+    end
+  end
+  object catAuto3: TChartAxisTransformations
+    left = 96
+    top = 424
+    object catAuto1AutoScaleAxisTransform3: TAutoScaleAxisTransform
+      MaxValue = 5.7
+      MinValue = 4
+    end
+  end
 end
diff --git a/components/tachart/demo/panes/Main.pas b/components/tachart/demo/panes/Main.pas
index acaccff599..368a6d8053 100644
--- a/components/tachart/demo/panes/Main.pas
+++ b/components/tachart/demo/panes/Main.pas
@@ -6,10 +6,17 @@ interface
 
 uses
   Classes, ComCtrls, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs,
-  TAChartExtentLink, TAGraph, TASeries, TASources;
+  TAChartExtentLink, TAGraph, TASeries, TASources, TATransformations;
 
 type
   TForm1 = class(TForm)
+    catAuto1: TChartAxisTransformations;
+    catAuto1AutoScaleAxisTransform1: TAutoScaleAxisTransform;
+    catAuto1AutoScaleAxisTransform2: TAutoScaleAxisTransform;
+    catAuto1AutoScaleAxisTransform3: TAutoScaleAxisTransform;
+    catAuto2: TChartAxisTransformations;
+    catAuto3: TChartAxisTransformations;
+    chTransform: TChart;
     ChartExtentLink1: TChartExtentLink;
     chLink1: TChart;
     chLink1LineSeries1: TLineSeries;
@@ -17,10 +24,14 @@ type
     chLink3LineSeries1: TLineSeries;
     chLink2: TChart;
     chLink3: TChart;
+    chTransformLineSeries1: TLineSeries;
+    chTransformLineSeries2: TLineSeries;
+    chTransformLineSeries3: TLineSeries;
     PageControl1: TPageControl;
     rcsLink1: TRandomChartSource;
     rcsLink2: TRandomChartSource;
     rcsLink3: TRandomChartSource;
+    tsTransform: TTabSheet;
     tsLink: TTabSheet;
   end;