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
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
|
object Form1: TForm1
Left = 356
Height = 440
Top = 130
Width = 694
Caption = 'Area series demo'
ClientHeight = 440
ClientWidth = 694
OnCreate = FormCreate
LCLVersion = '2.1.0.0'
object PageControl1: TPageControl
Left = 4
Height = 432
Top = 4
Width = 686
ActivePage = PgGeneral
Align = alClient
BorderSpacing.Around = 4
TabIndex = 0
TabOrder = 0
object PgGeneral: TTabSheet
Caption = 'General'
ClientHeight = 404
ClientWidth = 678
object Panel1: TPanel
Left = 0
Height = 81
Top = 323
Width = 678
Align = alBottom
AutoSize = True
BevelOuter = bvNone
ClientHeight = 81
ClientWidth = 678
TabOrder = 0
object CbRotated: TCheckBox
AnchorSideLeft.Control = CbBanded
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = CbStacked
AnchorSideTop.Side = asrCenter
Left = 84
Height = 19
Top = 8
Width = 61
BorderSpacing.Left = 16
Caption = 'Rotated'
OnChange = CbRotatedChange
TabOrder = 0
end
object Cb3D: TCheckBox
AnchorSideLeft.Control = CbRotated
AnchorSideTop.Control = CbBanded
Left = 84
Height = 19
Top = 35
Width = 34
Caption = '3D'
OnChange = Cb3DChange
TabOrder = 1
end
object CbUseZeroLevel: TCheckBox
AnchorSideLeft.Control = CbRotated
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = CbStacked
AnchorSideTop.Side = asrCenter
Left = 161
Height = 19
Top = 8
Width = 91
BorderSpacing.Left = 16
Caption = 'Use zero level'
OnChange = CbUseZeroLevelChange
TabOrder = 2
end
object EdZeroLevel: TFloatSpinEdit
AnchorSideLeft.Control = CbLabelsAt
AnchorSideTop.Control = CbStacked
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = CbLabelsAt
AnchorSideRight.Side = asrBottom
Left = 273
Height = 23
Top = 6
Width = 76
Anchors = [akTop, akLeft, akRight]
Increment = 0.1
MaxValue = 2
MinValue = -2
OnChange = EdZeroLevelChange
TabOrder = 3
Value = 0
end
object BtnNewData: TButton
AnchorSideLeft.Control = CbCentered
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = CbUseZeroLevel
AnchorSideTop.Side = asrCenter
Left = 433
Height = 25
Top = 5
Width = 76
AutoSize = True
BorderSpacing.Left = 8
Caption = 'New data'
OnClick = BtnNewDataClick
TabOrder = 4
end
object LblCount: TLabel
AnchorSideLeft.Control = BtnNewData
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = CbStacked
AnchorSideTop.Side = asrCenter
Left = 525
Height = 15
Top = 10
Width = 33
BorderSpacing.Left = 16
Caption = 'Count'
FocusControl = EdCount
ParentColor = False
end
object EdCount: TSpinEdit
AnchorSideLeft.Control = EdYCount
AnchorSideTop.Control = CbStacked
AnchorSideTop.Side = asrCenter
Left = 574
Height = 23
Top = 6
Width = 50
MaxValue = 20
MinValue = 1
OnChange = EdCountChange
TabOrder = 5
Value = 10
end
object CbStacked: TCheckBox
AnchorSideLeft.Control = Panel1
AnchorSideTop.Control = Panel1
AnchorSideBottom.Side = asrBottom
Left = 8
Height = 19
Top = 8
Width = 61
BorderSpacing.Left = 8
BorderSpacing.Top = 8
Caption = 'Stacked'
Checked = True
OnChange = CbStackedChange
State = cbChecked
TabOrder = 6
end
object CbBanded: TCheckBox
AnchorSideLeft.Control = CbStacked
AnchorSideTop.Control = EdYCount
AnchorSideTop.Side = asrCenter
Left = 8
Height = 19
Top = 35
Width = 60
Caption = 'Banded'
OnChange = CbBandedChange
TabOrder = 7
end
object LblYCount: TLabel
AnchorSideLeft.Control = BtnNewData
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = EdYCount
AnchorSideTop.Side = asrCenter
Left = 525
Height = 15
Top = 37
Width = 41
BorderSpacing.Left = 16
Caption = 'Y count'
FocusControl = EdYCount
ParentColor = False
end
object EdYCount: TSpinEdit
AnchorSideLeft.Control = LblYCount
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = EdCount
AnchorSideTop.Side = asrBottom
Left = 574
Height = 23
Top = 33
Width = 50
BorderSpacing.Left = 8
BorderSpacing.Top = 4
MaxValue = 5
MinValue = 1
OnChange = EdYCountChange
TabOrder = 8
Value = 3
end
object CbShowDropLines: TCheckBox
AnchorSideLeft.Control = CbUseZeroLevel
AnchorSideTop.Control = CbShowLegend
Left = 161
Height = 19
Top = 62
Width = 104
Caption = 'Show drop lines'
Checked = True
OnChange = CbShowDropLinesChange
State = cbChecked
TabOrder = 9
end
object CbShowDataLabels: TCheckBox
AnchorSideLeft.Control = CbShowDropLines
AnchorSideTop.Control = CbBanded
Left = 161
Height = 19
Top = 35
Width = 108
Caption = 'Show data labels'
OnChange = CbShowDataLabelsChange
TabOrder = 10
end
object CbLabelsAt: TComboBox
AnchorSideLeft.Control = CbShowDataLabels
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = CbShowDataLabels
AnchorSideTop.Side = asrCenter
Left = 273
Height = 23
Top = 33
Width = 76
BorderSpacing.Left = 4
Enabled = False
ItemHeight = 15
OnChange = CbLabelsAtChange
TabOrder = 11
Text = 'CbLabelsAt'
end
object CbShowLegend: TCheckBox
AnchorSideLeft.Control = CbStacked
AnchorSideTop.Control = CbBanded
AnchorSideTop.Side = asrBottom
Left = 8
Height = 19
Top = 62
Width = 88
BorderSpacing.Top = 8
Caption = 'Show legend'
OnChange = CbShowLegendChange
TabOrder = 12
end
object CbCentered: TCheckBox
AnchorSideLeft.Control = CbLabelsAt
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = CbShowDataLabels
AnchorSideTop.Side = asrCenter
Left = 357
Height = 19
Top = 35
Width = 68
BorderSpacing.Left = 8
Caption = 'Centered'
Enabled = False
OnChange = CbCenteredChange
TabOrder = 13
end
end
object Chart1: TChart
Left = 0
Height = 323
Top = 0
Width = 678
AxisList = <
item
Marks.LabelBrush.Style = bsClear
Minors = <>
Title.LabelFont.Orientation = 900
Title.LabelBrush.Style = bsClear
end
item
Alignment = calBottom
Marks.LabelBrush.Style = bsClear
Minors = <>
Title.LabelBrush.Style = bsClear
end>
Foot.Brush.Color = clBtnFace
Foot.Font.Color = clBlue
Title.Brush.Color = clBtnFace
Title.Font.Color = clBlue
Title.Text.Strings = (
'TAChart'
)
Align = alClient
Color = clWindow
object Chart1AreaSeries1: TAreaSeries
Legend.Multiplicity = lmStyle
Marks.YIndex = -1
AxisIndexX = 1
AxisIndexY = 0
AreaContourPen.Width = 3
Styles = ChartStyles1
UseZeroLevel = True
end
end
end
object PgErrorRange: TTabSheet
Caption = 'Error range'
ClientHeight = 404
ClientWidth = 678
object Chart2: TChart
Left = 0
Height = 373
Top = 31
Width = 678
AxisList = <
item
Grid.Color = clSilver
Grid.Style = psSolid
Marks.LabelBrush.Style = bsClear
Minors = <>
Title.LabelFont.Orientation = 900
Title.LabelBrush.Style = bsClear
end
item
Grid.Color = clSilver
Grid.Style = psSolid
Alignment = calBottom
Marks.LabelBrush.Style = bsClear
Minors = <>
Title.LabelBrush.Style = bsClear
end>
BackColor = clWhite
Foot.Brush.Color = clBtnFace
Foot.Font.Color = clBlue
Legend.Visible = True
Title.Brush.Color = clBtnFace
Title.Font.Color = clBlue
Title.Text.Strings = (
'TAChart'
)
Align = alClient
Color = clWindow
object Chart2AreaSeries1: TAreaSeries
Legend.Visible = False
Transparency = 180
AreaBrush.Color = clRed
AreaContourPen.Style = psClear
AreaLinesPen.Style = psClear
Source = ChartSourceArea1
Stacked = False
end
object Chart2LineSeries1: TLineSeries
Title = 'sin data'
LinePen.Color = clRed
LinePen.Width = 3
LineType = ltNone
Pointer.Brush.Color = clRed
Pointer.HorizSize = 5
Pointer.Style = psCircle
Pointer.VertSize = 5
Pointer.Visible = True
ShowPoints = True
Source = ChartSourceLine1
end
object Chart2AreaSeries2: TAreaSeries
Legend.Visible = False
Transparency = 180
AreaBrush.Color = clBlue
AreaLinesPen.Style = psClear
Source = ChartSourceArea2
end
object Chart2LineSeries2: TLineSeries
Title = 'cos data'
LinePen.Color = clBlue
Pointer.Brush.Color = clBlue
Pointer.HorizSize = 5
Pointer.Style = psCircle
Pointer.VertSize = 5
Pointer.Visible = True
ShowPoints = True
Source = ChartSourceLine2
end
end
object Label1: TLabel
Left = 8
Height = 15
Top = 8
Width = 662
Align = alTop
Alignment = taCenter
BorderSpacing.Around = 8
Caption = 'This functionality requires at least Lazarus version 1.9'
ParentColor = False
Visible = False
end
end
end
object ChartStyles1: TChartStyles
Styles = <
item
Brush.Color = clRed
Pen.Width = 3
Text = 'Curve 1'
end
item
Brush.Color = clBlue
Pen.Width = 3
Text = 'Curve 2'
end
item
Brush.Color = clYellow
Pen.Width = 3
Text = 'Curve 3'
end
item
Brush.Color = clSilver
Pen.Width = 3
Text = 'Curve 4'
end
item
Brush.Color = clGreen
Pen.Width = 3
Text = 'Curve 5'
end>
left = 128
top = 96
end
object ChartSourceArea1: TUserDefinedChartSource
OnGetChartDataItem = ChartSourceArea1GetChartDataItem
left = 258
top = 96
end
object ChartSourceLine1: TUserDefinedChartSource
OnGetChartDataItem = ChartSourceLine1GetChartDataItem
left = 258
top = 184
end
object ChartSourceArea2: TUserDefinedChartSource
OnGetChartDataItem = ChartSourceArea2GetChartDataItem
left = 424
top = 96
end
object ChartSourceLine2: TUserDefinedChartSource
OnGetChartDataItem = ChartSourceLine2GetChartDataItem
left = 423
top = 184
end
end
|
