TAChart: Add area series to rotation demo

git-svn-id: trunk@27023 -

components/tachart/demo/rotate/Main.lfm

@@ -6,6 +6,7 @@ object Form1: TForm1
   Caption = 'Form1'
   ClientHeight = 372
   ClientWidth = 456
+  Position = poScreenCenter
   LCLVersion = '0.9.29'
   object Chart1: TChart
     Left = 0
@@ -14,7 +15,7 @@ object Form1: TForm1
     Width = 456
     AxisList = <    
       item
-        Alignment = calLeft
+        Title.LabelFont.Orientation = 900
         Title.Font.Orientation = 900
       end    
       item
@@ -49,6 +50,13 @@ object Form1: TForm1
       SeriesColor = clMoneyGreen
       Source = RandomChartSource1
     end
+    object Chart1AreaSeries1: TAreaSeries
+      AxisIndexX = 1
+      AxisIndexY = 0
+      AreaContourPen.Width = 2
+      AreaLinesPen.Color = clRed
+      Source = RandomChartSource1
+    end
   end
   object Panel1: TPanel
     Left = 0
@@ -78,7 +86,7 @@ object Form1: TForm1
       TabOrder = 1
     end
     object cbNegative: TCheckBox
-      Left = 200
+      Left = 292
       Height = 17
       Top = 10
       Width = 97
@@ -86,6 +94,15 @@ object Form1: TForm1
       OnChange = cbNegativeChange
       TabOrder = 2
     end
+    object cbRotateArea: TCheckBox
+      Left = 200
+      Height = 17
+      Top = 10
+      Width = 78
+      Caption = 'Rotate area'
+      OnChange = cbRotateAreaChange
+      TabOrder = 3
+    end
   end
   object RandomChartSource1: TRandomChartSource
     PointsNumber = 9

components/tachart/demo/rotate/Main.pas

@@ -15,13 +15,16 @@ type
   TForm1 = class(TForm)
     cbRotateBar: TCheckBox;
     cbNegative: TCheckBox;
+    cbRotateArea: TCheckBox;
     Chart1: TChart;
+    Chart1AreaSeries1: TAreaSeries;
     Chart1BarSeries1: TBarSeries;
     Chart1LineSeries1: TLineSeries;
     cbRotateLine: TCheckBox;
     Panel1: TPanel;
     RandomChartSource1: TRandomChartSource;
     procedure cbNegativeChange(Sender: TObject);
+    procedure cbRotateAreaChange(Sender: TObject);
     procedure cbRotateBarChange(Sender: TObject);
     procedure cbRotateLineChange(Sender: TObject);
   end;
@@ -51,6 +54,11 @@ begin
   RandomChartSource1.YMin := -RandomChartSource1.YMin;
 end;
 
+procedure TForm1.cbRotateAreaChange(Sender: TObject);
+begin
+  Rotate(Chart1AreaSeries1)
+end;
+
 procedure TForm1.cbRotateBarChange(Sender: TObject);
 begin
   Rotate(Chart1BarSeries1)

components/tachart/demo/rotate/rotatedemo.lpi

@@ -1,15 +1,10 @@
 <?xml version="1.0"?>
 <CONFIG>
   <ProjectOptions>
+    <Version Value="9"/>
     <PathDelim Value="\"/>
-    <Version Value="8"/>
     <General>
-      <Flags>
-        <UseDefaultCompilerOptions Value="True"/>
-      </Flags>
       <SessionStorage Value="InProjectDir"/>
-      <MainUnit Value="0"/>
-      <TargetFileExt Value=".exe"/>
       <Title Value="rotatedemo"/>
       <ResourceType Value="res"/>
       <UseXPManifest Value="True"/>
@@ -17,7 +12,7 @@
     <VersionInfo>
       <Language Value=""/>
       <CharSet Value=""/>
-      <StringTable Comments="" CompanyName="" FileDescription="" FileVersion="" InternalName="" LegalCopyright="" LegalTrademarks="" OriginalFilename="" ProductName="" ProductVersion=""/>
+      <StringTable ProductVersion=""/>
     </VersionInfo>
     <PublishOptions>
       <Version Value="2"/>