1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
|
unit Main;
{$mode objfpc}{$H+}
interface
uses
Classes, ComCtrls, ExtCtrls, StdCtrls, SysUtils, FileUtil, Forms, Controls,
Graphics, Dialogs, TAGraph, TASeries, TASources;
type
{ TForm1 }
TForm1 = class(TForm)
btnLine: TButton;
btnBar: TButton;
btnClone: TButton;
Chart1: TChart;
Chart1AreaSeries1: TAreaSeries;
ChartSeries: TChart;
ChartSeriesBarSeries1: TBarSeries;
ChartSeriesLineSeries1: TLineSeries;
PageControl1: TPageControl;
Panel1: TPanel;
Panel2: TPanel;
RandomChartSource1: TRandomChartSource;
tsCharts: TTabSheet;
tsSeries: TTabSheet;
procedure btnBarClick(Sender: TObject);
procedure btnCloneClick(Sender: TObject);
procedure btnLineClick(Sender: TObject);
end;
var
Form1: TForm1;
implementation
{$R *.lfm}
{ TForm1 }
procedure TForm1.btnBarClick(Sender: TObject);
var
bs: TBarSeries;
i: Integer;
begin
for i := ChartSeries.SeriesCount - 1 downto 0 do
if ChartSeries.Series[i] is TBarSeries then begin
bs := TBarSeries.Create(Self);
bs.Assign(ChartSeries.Series[i]);
bs.BarOffsetPercent := bs.BarOffsetPercent + 20;
ChartSeries.AddSeries(bs);
break;
end;
end;
procedure TForm1.btnCloneClick(Sender: TObject);
begin
Chart1.Clone;
end;
procedure TForm1.btnLineClick(Sender: TObject);
var
ls: TLineSeries;
i: Integer;
begin
for i := ChartSeries.SeriesCount - 1 downto 0 do
if ChartSeries.Series[i] is TLineSeries then begin
ls := TLineSeries.Create(Self);
ls.Assign(ChartSeries.Series[i]);
ls.ZPosition := ls.ZPosition + 5;
ChartSeries.AddSeries(ls);
break;
end;
end;
end.
|
