object Form1: TForm1 Left = 342 Height = 385 Top = 199 Width = 559 Caption = 'Form1' ClientHeight = 385 ClientWidth = 559 LCLVersion = '0.9.27' object Memo1: TMemo Left = 0 Height = 48 Top = 0 Width = 559 Align = alTop Lines.Strings = ( 'Modify sources at design-time.' 'Same-colored series from each chart have common sources.' ) TabOrder = 0 end object Chart1: TChart Left = 293 Height = 337 Top = 48 Width = 266 BottomAxis.Grid.Style = psDot Foot.Brush.Color = clBtnFace Foot.Font.Color = clBlue LeftAxis.Grid.Style = psDot LeftAxis.Title.Angle = 90 Title.Brush.Color = clBtnFace Title.Font.Color = clBlue Title.Text.Strings = ( 'TAChart' ) Align = alRight ParentColor = False object Chart1BarSeries1: TBarSeries BarBrush.Color = clRed SeriesColor = clRed Source = RandomChartSource1 end object Chart1LineSeries1: TLineSeries ZPosition = 1 Pointer.Brush.Color = clBlue SeriesColor = clBlue ShowPoints = True Source = ListChartSource1 end end object Chart2: TChart Left = 0 Height = 337 Top = 48 Width = 288 BottomAxis.Grid.Style = psDot Foot.Brush.Color = clBtnFace Foot.Font.Color = clBlue LeftAxis.Grid.Style = psDot LeftAxis.Title.Angle = 90 Title.Brush.Color = clBtnFace Title.Font.Color = clBlue Title.Text.Strings = ( 'TAChart' ) Align = alClient ParentColor = False object Chart2LineSeries1: TLineSeries Pointer.Brush.Color = clRed SeriesColor = clRed ShowPoints = True Source = RandomChartSource1 end object Chart2AreaSeries1: TAreaSeries AreaLinesPen.Color = clMaroon AreaBrush.Color = clBlue SeriesColor = clBlue Source = ListChartSource1 end end object Splitter1: TSplitter Left = 288 Height = 337 Top = 48 Width = 5 Align = alRight Beveled = True ResizeAnchor = akRight end object RandomChartSource1: TRandomChartSource PointsNumber = 8 RandSeed = 624484796 XMax = 5 XMin = -5 YMax = 10 YMin = 0 left = 240 top = 204 end object ListChartSource1: TListChartSource DataPoints.Strings = ( '-3|2||' '-2|3||' '-1|4||' '0|1||' '3|2||' ) left = 240 top = 260 end end