TAChart: Add more series to the AggPas demo. This concludes implementation of issue #17182

git-svn-id: trunk@29679 -

components/tachart/demo/aggpas/Main.lfm

@@ -26,6 +26,7 @@ object Form1: TForm1
     BackColor = clSkyBlue
     Foot.Brush.Color = clBtnFace
     Foot.Font.Color = clBlue
+    Legend.Visible = True
     Title.Brush.Color = clBlack
     Title.Brush.Style = bsClear
     Title.Font.Color = clBlue
@@ -42,6 +43,37 @@ object Form1: TForm1
       Marks.LabelFont.Height = 10
       Source = RandomChartSource1
     end
+    object Chart1ConstantLine1: TConstantLine
+      Pen.Color = clGreen
+      Pen.Width = 3
+      Position = 0
+    end
+    object Chart1BarSeries1: TBarSeries
+      Active = False
+      ZPosition = 1
+      BarBrush.Color = clRed
+      Source = RandomChartSource1
+    end
+    object Chart1AreaSeries1: TAreaSeries
+      Active = False
+      ZPosition = 2
+      AreaContourPen.Width = 3
+      Source = RandomChartSource1
+    end
+    object Chart1LineSeries1: TLineSeries
+      Marks.Format = '%2:s %1:.2f%%'
+      Marks.Style = smsLabelPercent
+      Title = 'Line'
+      ZPosition = 3
+      LinePen.Color = clAqua
+      LinePen.Width = 3
+      Pointer.Brush.Color = clYellow
+      Pointer.HorizSize = 2
+      Pointer.Style = psRightBracket
+      Pointer.VertSize = 10
+      ShowPoints = True
+      Source = RandomChartSource1
+    end
   end
   object PaintBox1: TPaintBox
     Left = 297
@@ -54,10 +86,10 @@ object Form1: TForm1
   object RandomChartSource1: TRandomChartSource
     PointsNumber = 10
     RandSeed = 1733195749
-    XMax = 0
+    XMax = 10
     XMin = 0
-    YMax = 1
-    YMin = 10
+    YMax = 10
+    YMin = 1
     left = 90
     top = 210
   end

components/tachart/demo/aggpas/Main.pas

@@ -14,6 +14,10 @@ type
 
   TForm1 = class(TForm)
     Chart1: TChart;
+    Chart1AreaSeries1: TAreaSeries;
+    Chart1BarSeries1: TBarSeries;
+    Chart1ConstantLine1: TConstantLine;
+    Chart1LineSeries1: TLineSeries;
     Chart1PieSeries1: TPieSeries;
     PaintBox1: TPaintBox;
     RandomChartSource1: TRandomChartSource;