8
Classes, ComCtrls, ExtCtrls, StdCtrls, SysUtils, FileUtil, Forms, Controls,
9
Graphics, Dialogs, TAGraph, TASeries, TASources;
20
Chart1AreaSeries1: TAreaSeries;
22
ChartSeriesBarSeries1: TBarSeries;
23
ChartSeriesLineSeries1: TLineSeries;
24
PageControl1: TPageControl;
27
RandomChartSource1: TRandomChartSource;
30
procedure btnBarClick(Sender: TObject);
31
procedure btnCloneClick(Sender: TObject);
32
procedure btnLineClick(Sender: TObject);
44
procedure TForm1.btnBarClick(Sender: TObject);
49
for i := ChartSeries.SeriesCount - 1 downto 0 do
50
if ChartSeries.Series[i] is TBarSeries then begin
51
bs := TBarSeries.Create(Self);
52
bs.Assign(ChartSeries.Series[i]);
53
bs.BarOffsetPercent := bs.BarOffsetPercent + 20;
54
ChartSeries.AddSeries(bs);
59
procedure TForm1.btnCloneClick(Sender: TObject);
64
procedure TForm1.btnLineClick(Sender: TObject);
69
for i := ChartSeries.SeriesCount - 1 downto 0 do
70
if ChartSeries.Series[i] is TLineSeries then begin
71
ls := TLineSeries.Create(Self);
72
ls.Assign(ChartSeries.Series[i]);
73
ls.ZPosition := ls.ZPosition + 5;
74
ChartSeries.AddSeries(ls);