From 8ce1ae04fddb9025585ef77325ccb876620a8462 Mon Sep 17 00:00:00 2001
From: ask <ask@lazarus-ide.org>
Date: Fri, 5 Aug 2011 05:59:20 +0000
Subject: [PATCH] TAChart: Use aipGraphCoords option in the axistransf demo

git-svn-id: trunk@31867 -
---
 components/tachart/demo/axistransf/main.lfm | 18 +++++++++++++-----
 1 file changed, 13 insertions(+), 5 deletions(-)

diff --git a/components/tachart/demo/axistransf/main.lfm b/components/tachart/demo/axistransf/main.lfm
index b94950af59..691bfad464 100644
--- a/components/tachart/demo/axistransf/main.lfm
+++ b/components/tachart/demo/axistransf/main.lfm
@@ -230,17 +230,23 @@ object Form1: TForm1
         AxisList = <        
           item
             Intervals.Count = 10
-            Intervals.MinLength = 5
-            Intervals.NiceSteps = '0.2|0.25|0.5|1.0'
-            Intervals.Options = [aipUseCount, aipUseMinLength, aipUseNiceSteps]
+            Intervals.MaxLength = 200
+            Intervals.NiceSteps = '1.0'
+            Intervals.Options = [aipGraphCoords, aipUseCount, aipUseMinLength, aipUseNiceSteps]
             Marks.Stripes = csStripes
-            Minors = <>
+            Minors = <            
+              item
+                Grid.Visible = False
+                Intervals.Count = 9
+                Intervals.Options = [aipUseCount, aipUseMaxLength, aipUseMinLength, aipUseNiceSteps]
+              end>
             Title.LabelFont.Orientation = 900
             Title.Visible = True
             Title.Caption = 'Left'
             Transformations = catLog
           end        
           item
+            Grid.Visible = False
             Alignment = calBottom
             Minors = <>
             Title.Distance = 0
@@ -256,6 +262,7 @@ object Form1: TForm1
             Title.Caption = 'Right 1'
           end        
           item
+            Grid.Visible = False
             Alignment = calTop
             Inverted = True
             Minors = <>
@@ -325,8 +332,9 @@ object Form1: TForm1
           item
             Grid.Visible = False
             Intervals.Count = 20
+            Intervals.MinLength = 20
             Intervals.NiceSteps = '0.2|0.25|0.4|0.5|1.0'
-            Intervals.Options = [aipUseCount, aipUseNiceSteps]
+            Intervals.Options = [aipGraphCoords, aipUseCount, aipUseMaxLength, aipUseMinLength, aipUseNiceSteps]
             Alignment = calBottom
             Minors = <>
             Transformations = catUser