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
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
|
object MainForm: TMainForm
Left = 299
Height = 446
Top = 130
Width = 723
Caption = 'Live View Demo'
ClientHeight = 446
ClientWidth = 723
OnCreate = FormCreate
LCLVersion = '2.3.0.0'
object Chart1: TChart
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = ChartNavScrollBar1
Left = 0
Height = 392
Top = 0
Width = 723
AxisList = <
item
Grid.Color = clSilver
Intervals.MaxLength = 80
Intervals.MinLength = 30
Marks.LabelBrush.Style = bsClear
Minors = <>
Title.LabelFont.Orientation = 900
Title.LabelBrush.Style = bsClear
end
item
Grid.Color = clSilver
Intervals.MaxLength = 80
Intervals.MinLength = 30
Alignment = calBottom
Marks.LabelBrush.Style = bsClear
Minors = <>
Title.LabelBrush.Style = bsClear
end>
BackColor = clWhite
Foot.Brush.Color = clBtnFace
Foot.Font.Color = clBlue
Title.Brush.Color = clBtnFace
Title.Font.Color = clBlue
Title.Text.Strings = (
'TAChart'
)
Anchors = [akTop, akLeft, akRight, akBottom]
object Chart1LineSeries1: TLineSeries
end
end
object Panel1: TPanel
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Chart1
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = Owner
AnchorSideBottom.Side = asrBottom
Left = 0
Height = 37
Top = 409
Width = 723
Anchors = [akLeft, akRight, akBottom]
BevelOuter = bvNone
ClientHeight = 37
ClientWidth = 723
TabOrder = 2
object btnAddDataPoint: TButton
AnchorSideLeft.Control = Panel1
AnchorSideTop.Control = Panel1
Left = 6
Height = 25
Top = 6
Width = 105
AutoSize = True
BorderSpacing.Around = 6
Caption = 'Add data point'
OnClick = btnAddDataPointClick
TabOrder = 0
end
object cbLiveMode: TCheckBox
AnchorSideLeft.Control = btnAddDataPoint
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Panel1
AnchorSideTop.Side = asrCenter
Left = 135
Height = 19
Top = 9
Width = 75
BorderSpacing.Left = 24
Caption = 'Live mode'
Checked = True
OnChange = cbLiveModeChange
State = cbChecked
TabOrder = 1
end
object lblViewportSize: TLabel
AnchorSideLeft.Control = cbLiveMode
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Panel1
AnchorSideTop.Side = asrCenter
Left = 234
Height = 15
Top = 11
Width = 69
BorderSpacing.Left = 24
Caption = 'Viewport size'
Visible = False
end
object seViewportSize: TFloatSpinEdit
AnchorSideLeft.Control = lblViewportSize
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Panel1
AnchorSideTop.Side = asrCenter
Left = 311
Height = 23
Top = 7
Width = 73
Alignment = taRightJustify
BorderSpacing.Left = 8
OnChange = seViewportSizeChange
TabOrder = 2
Value = 5
Visible = False
end
object cbExtentY: TComboBox
AnchorSideLeft.Control = lblExtentY
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Panel1
AnchorSideTop.Side = asrCenter
Left = 456
Height = 23
Top = 7
Width = 100
BorderSpacing.Left = 8
ItemHeight = 15
ItemIndex = 0
Items.Strings = (
'Auto'
'Full'
'Logical'
)
OnChange = cbExtentYChange
TabOrder = 3
Text = 'Auto'
end
object cbFixedExtent: TCheckBox
AnchorSideLeft.Control = cbExtentY
AnchorSideLeft.Side = asrBottom
Left = 580
Height = 19
Top = 9
Width = 127
BorderSpacing.Left = 24
Caption = 'y = -1.5 .. .+1.5 fixed'
OnChange = cbFixedExtentChange
TabOrder = 4
end
object lblExtentY: TLabel
AnchorSideLeft.Control = seViewportSize
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Panel1
AnchorSideTop.Side = asrCenter
Left = 408
Height = 15
Top = 11
Width = 40
BorderSpacing.Left = 24
Caption = 'ExtentY'
end
end
object ChartNavScrollBar1: TChartNavScrollBar
AnchorSideLeft.Control = Chart1
AnchorSideRight.Control = Chart1
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = Panel1
Left = 0
Height = 17
Top = 392
Width = 723
AutoPageSize = True
Chart = Chart1
Anchors = [akLeft, akRight, akBottom]
PageSize = 0
TabOrder = 1
end
object ChartLiveView1: TChartLiveView
Chart = Chart1
ViewportSize = 5
Left = 308
Top = 143
end
end
|
