8
CheckLst, Classes, ExtCtrls, SysUtils, FileUtil, Forms, Controls, Graphics,
9
Dialogs, TAGraph, TASeries, TASources;
14
Chart1AreaSeries1: TAreaSeries;
15
Chart1BarSeries1: TBarSeries;
16
Chart1LineSeries1: TLineSeries;
17
Chart1PieSeries1: TPieSeries;
18
clbNans: TCheckListBox;
19
lcs1: TListChartSource;
20
lcs2: TListChartSource;
23
rgSeriesType: TRadioGroup;
24
procedure clbNansItemClick(Sender: TObject; Index: integer);
25
procedure FormCreate(Sender: TObject);
26
procedure rgSeriesTypeClick(Sender: TObject);
27
procedure rgXYClick(Sender: TObject);
42
procedure TForm1.clbNansItemClick(Sender: TObject; Index: integer);
44
if rgXY.ItemIndex = 0 then
45
lcs1.SetXValue(Index, IfThen(clbNans.Checked[Index], Nan, lcs2[Index]^.X))
47
lcs1.SetYValue(Index, IfThen(clbNans.Checked[Index], Nan, lcs2[Index]^.Y));
50
procedure TForm1.FormCreate(Sender: TObject);
55
for i := 1 to 20 do begin
56
lcs1.Add(i, Random(100) / 50);
57
clbNans.Items.Add(IntToStr(i));
62
procedure TForm1.rgSeriesTypeClick(Sender: TObject);
66
for s in Chart1.Series do
67
s.Active := s.Index = rgSeriesType.ItemIndex;
70
procedure TForm1.rgXYClick(Sender: TObject);
75
for i := 0 to lcs1.Count - 1 do
76
clbNansItemClick(nil, i);