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
|
unit main;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, ExtCtrls,
Spin, TAGraph, TASeries, TANavigation, TAChartLiveView;
type
{ TMainForm }
TMainForm = class(TForm)
btnAddDataPoint: TButton;
Chart1: TChart;
Chart1LineSeries1: TLineSeries;
ChartLiveView1: TChartLiveView;
ChartNavScrollBar1: TChartNavScrollBar;
cbLiveMode: TCheckBox;
cbFixedExtent: TCheckBox;
cbExtentY: TComboBox;
lblExtentY: TLabel;
seViewportSize: TFloatSpinEdit;
lblViewportSize: TLabel;
Panel1: TPanel;
procedure btnAddDataPointClick(Sender: TObject);
procedure cbLiveModeChange(Sender: TObject);
procedure cbFixedExtentChange(Sender: TObject);
procedure cbExtentYChange(Sender: TObject);
procedure seViewportSizeChange(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
public
end;
var
MainForm: TMainForm;
implementation
{$R *.lfm}
uses
Math, TAChartUtils;
{ TMainForm }
procedure TMainForm.btnAddDataPointClick(Sender: TObject);
const
TWO_PI = 2.0 * pi;
var
x, y: Double;
begin
x := Chart1LineSeries1.Count;
y := sin(x * TWO_PI / 10) + randg(0, 0.1);
Chart1Lineseries1.AddXY(x, y);
end;
procedure TMainForm.cbFixedExtentChange(Sender: TObject);
begin
Chart1.Extent.YMin := -1.5;
Chart1.Extent.YMax := 1.5;
Chart1.Extent.UseYMin := cbFixedExtent.Checked;
Chart1.Extent.UseYMax := cbFixedExtent.Checked;
end;
procedure TMainForm.cbLiveModeChange(Sender: TObject);
begin
ChartLiveView1.Active := cbLiveMode.Checked;
seViewportSize.Visible := cbLiveMode.Checked;
lblViewportSize.Visible := cbLiveMode.Checked;
cbExtentY.Visible := cbLiveMode.Checked;
lblExtentY.Visible := cbLiveMode.Checked;
end;
procedure TMainForm.cbExtentYChange(Sender: TObject);
begin
ChartLiveView1.ExtentY := TChartLiveViewExtentY(cbExtentY.ItemIndex);
end;
procedure TMainForm.FormCreate(Sender: TObject);
begin
// Add three data points to start with
btnAddDataPointClick(nil);
btnAddDataPointClick(nil);
btnAddDataPointClick(nil);
// Initialize live view controls
cbLiveMode.Checked := ChartLiveView1.Active;
seViewportSize.Value := ChartLiveView1.ViewportSize;
cbExtentY.ItemIndex := ord(ChartLiveView1.ExtentY);
end;
procedure TMainForm.seViewportSizeChange(Sender: TObject);
begin
ChartLiveView1.ViewportSize := seViewportSize.Value;
end;
end.
|
