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
|
object Form1: TForm1
Left = 475
Height = 369
Top = 336
Width = 629
Caption = 'Form1'
ClientHeight = 369
ClientWidth = 629
OnCreate = FormCreate
LCLVersion = '2.3.0.0'
object Chart1: TChart
Left = 0
Height = 369
Top = 0
Width = 507
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
Margins.Bottom = 0
Title.Brush.Color = clBtnFace
Title.Font.Color = clBlue
Title.Text.Strings = (
'TAChart'
)
Align = alClient
DoubleBuffered = True
object Chart1BarSeries1: TBarSeries
BarBrush.Color = 2183646
Source = ListChartSource1
end
end
object Panel1: TPanel
Left = 507
Height = 369
Top = 0
Width = 122
Align = alRight
BevelOuter = bvNone
ClientHeight = 369
ClientWidth = 122
TabOrder = 1
object rgMethod: TRadioGroup
Left = 6
Height = 89
Top = 6
Width = 110
Align = alTop
AutoFill = True
AutoSize = True
BorderSpacing.Around = 6
Caption = ' Method '
ChildSizing.LeftRightSpacing = 6
ChildSizing.TopBottomSpacing = 6
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
ChildSizing.EnlargeVertical = crsHomogenousChildResize
ChildSizing.ShrinkHorizontal = crsScaleChilds
ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 1
ClientHeight = 69
ClientWidth = 106
ItemIndex = 0
Items.Strings = (
'Grow'
'Add'
'Add then grow'
)
OnClick = rgMethodClick
TabOrder = 0
end
object btnStartStop: TButton
AnchorSideLeft.Control = seTime
AnchorSideTop.Control = seTime
AnchorSideTop.Side = asrBottom
Left = 12
Height = 25
Top = 134
Width = 84
AutoSize = True
BorderSpacing.Top = 8
Caption = 'Start / stop'
OnClick = btnStartStopClick
TabOrder = 1
end
object lblSkipped: TLabel
Left = 9
Height = 1
Top = 340
Width = 1
end
object seTime: TSpinEdit
AnchorSideLeft.Control = rgMethod
AnchorSideTop.Control = rgMethod
AnchorSideTop.Side = asrBottom
AnchorSideRight.Side = asrBottom
Left = 12
Height = 23
Top = 103
Width = 82
Alignment = taRightJustify
BorderSpacing.Left = 6
BorderSpacing.Top = 8
Increment = 100
MaxValue = 10000
MinValue = 100
OnChange = seTimeChange
TabOrder = 2
Value = 1000
end
end
object ListChartSource1: TListChartSource
DataPoints.Strings = (
'1|2|?|'
'2|3|?|'
'3|5|?|'
'4|6|?|'
'5|9|?|'
'6|7|?|'
'7|8|?|'
)
Left = 552
Top = 288
end
end
|
