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
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
|
unit Main;
{$mode objfpc}{$H+}
interface
uses
Classes, ComCtrls, ExtCtrls, StdCtrls, SysUtils, FileUtil, Forms, Controls,
Graphics, Dialogs, TAGraph, TAMultiSeries, TASeries, TASources, TAStyles;
type
{ TForm1 }
TForm1 = class(TForm)
ccsStacked: TCalculatedChartSource;
cbPercentage: TCheckBox;
cgShowStackLevels: TCheckGroup;
chOHLC: TChart;
ChartStyles1: TChartStyles;
chOHLCOpenHighLowCloseSeries1: TOpenHighLowCloseSeries;
chStackedAreaSeries1: TAreaSeries;
chStackedLineSeries1: TLineSeries;
chWhiskers: TChart;
chStacked: TChart;
chBubble: TChart;
Chart1BubbleSeries1: TBubbleSeries;
chStackedBarSeries1: TBarSeries;
chWhiskersBoxAndWhiskerSeries1: TBoxAndWhiskerSeries;
lcsBubble: TListChartSource;
PageControl1: TPageControl;
pnStackedControls: TPanel;
rgStackedSeries: TRadioGroup;
rcsStacked: TRandomChartSource;
tsOHLC: TTabSheet;
tsWhiskers: TTabSheet;
tsStacked: TTabSheet;
tsBubble: TTabSheet;
procedure cbPercentageChange(Sender: TObject);
procedure cgShowStackLevelsItemClick(Sender: TObject; Index: integer);
procedure FormCreate(Sender: TObject);
procedure rgStackedSeriesClick(Sender: TObject);
end;
var
Form1: TForm1;
implementation
{$R *.lfm}
uses
TAChartUtils;
{ TForm1 }
procedure TForm1.cbPercentageChange(Sender: TObject);
begin
ccsStacked.Percentage := cbPercentage.Checked;
end;
procedure TForm1.cgShowStackLevelsItemClick(Sender: TObject; Index: integer);
var
s: String;
i: Integer;
begin
Unused(Index);
s := '';
for i := 0 to cgShowStackLevels.Items.Count - 1 do begin
if cgShowStackLevels.Checked[i] then
s += Format('%d,', [i]);
ChartStyles1.Styles[i].RepeatCount := Ord(cgShowStackLevels.Checked[i]);
end;
ccsStacked.ReorderYList := s[1..Length(s) - 1];
end;
procedure TForm1.FormCreate(Sender: TObject);
var
ylist: array [1..4] of Double;
i, j: Integer;
y, y0: Double;
begin
chWhiskersBoxAndWhiskerSeries1.ListSource.YCount := 5;
for i := 1 to 6 do begin
y := Random(80) + 10;
y0 := y;
for j := 1 to 4 do begin
y += Random(20) + 5;
ylist[j] := y;
end;
chWhiskersBoxAndWhiskerSeries1.AddXY(i, y0, ylist);
end;
chOHLCOpenHighLowCloseSeries1.ListSource.YCount := 4;
y := 50;
for i := 1 to 50 do begin
y += Random(80) / 10 - 4;
ylist[1] := y;
for j := 1 to 3 do begin
ylist[j] += Random(20) / 10 + 1;
ylist[j + 1] := ylist[j];
end;
if Random(3) = 1 then
Exchange(ylist[1], ylist[2]);
chOHLCOpenHighLowCloseSeries1.AddXY(i, y, ylist);
end;
end;
procedure TForm1.rgStackedSeriesClick(Sender: TObject);
var
i: Integer;
begin
i := rgStackedSeries.ItemIndex;
chStackedAreaSeries1.Active := i = 0;
chStackedBarSeries1.Active := i = 1;
chStackedLineSeries1.Active := i = 2;
end;
end.
|
