From bc03648d204ff0cbf3c4e0c6a7a2d1fea9adb895 Mon Sep 17 00:00:00 2001
From: ask <ask@lazarus-ide.org>
Date: Wed, 20 Jul 2011 09:33:39 +0000
Subject: [PATCH] TAChart: Minor demo updates

git-svn-id: trunk@31759 -
---
 components/tachart/demo/basic/unit1.pas | 1 -
 components/tachart/demo/labels/Main.lfm | 8 +++++++-
 2 files changed, 7 insertions(+), 2 deletions(-)

diff --git a/components/tachart/demo/basic/unit1.pas b/components/tachart/demo/basic/unit1.pas
index cb3e45e951..870ed55894 100644
--- a/components/tachart/demo/basic/unit1.pas
+++ b/components/tachart/demo/basic/unit1.pas
@@ -86,7 +86,6 @@ uses
 
 procedure TForm1.BringToFront(ASeries: TBasicChartSeries);
 var
-  i: Integer;
   s: TBasicChartSeries;
 begin
   for s in Chart1.Series do
diff --git a/components/tachart/demo/labels/Main.lfm b/components/tachart/demo/labels/Main.lfm
index 61e13b17c5..b38acb5f39 100644
--- a/components/tachart/demo/labels/Main.lfm
+++ b/components/tachart/demo/labels/Main.lfm
@@ -30,6 +30,7 @@ object Form1: TForm1
           item
             Marks.LabelBrush.Color = clSkyBlue
             Marks.LabelBrush.Style = bsSolid
+            Minors = <>
             Title.LabelFont.Orientation = 900
             Title.Visible = True
             Title.Caption = 'Left axis title'
@@ -39,6 +40,7 @@ object Form1: TForm1
             Alignment = calBottom
             Marks.LabelBrush.Color = clSkyBlue
             Marks.LabelBrush.Style = bsSolid
+            Minors = <>
             Title.Visible = True
             Title.Caption = 'Bottom axis title'
             Title.Frame.Style = psSolid
@@ -71,14 +73,17 @@ object Form1: TForm1
         Width = 488
         AxisList = <        
           item
+            Marks.Alignment = taCenter
             Marks.LabelFont.Orientation = 900
             Marks.Frame.Style = psSolid
+            Minors = <>
             Title.LabelFont.Orientation = 900
             OnMarkToText = ChartMultiAxisList1MarkToText
           end        
           item
             Alignment = calBottom
             Marks.Frame.Style = psSolid
+            Minors = <>
             Title.Visible = True
             Title.Caption = 'test'
             OnMarkToText = ChartMultiAxisList1MarkToText
@@ -89,9 +94,10 @@ object Form1: TForm1
           'TAChart'
         )
         Title.Brush.Color = clBtnFace
+        Title.Brush.Style = bsClear
         Title.Font.Color = clBlue
         Title.Text.Strings = (
-          'Chart'
+          'Chart long'
           'title'
         )
         Title.Visible = True