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
|
object Form1: TForm1
Left = 342
Height = 474
Top = 161
Width = 646
Caption = 'Form1'
ClientHeight = 474
ClientWidth = 646
OnCreate = FormCreate
Position = poScreenCenter
LCLVersion = '0.9.31'
object Chart1: TChart
Left = 0
Height = 424
Top = 0
Width = 586
AxisList = <
item
Minors = <>
Title.LabelFont.Orientation = 900
end
item
Alignment = calBottom
Minors = <>
end>
Foot.Brush.Color = clBtnFace
Foot.Font.Color = clBlue
Title.Brush.Color = clBtnFace
Title.Font.Color = clBlue
Title.Text.Strings = (
'TAChart'
)
Align = alClient
ParentColor = False
object Chart1LineSeries1: TLineSeries
ShowPoints = True
Source = lcs1
end
object Chart1BarSeries1: TBarSeries
Active = False
BarBrush.Color = clRed
Source = lcs1
end
object Chart1AreaSeries1: TAreaSeries
Active = False
Source = lcs1
end
object Chart1PieSeries1: TPieSeries
Active = False
Source = lcs1
end
end
object Panel2: TPanel
Left = 0
Height = 50
Top = 424
Width = 646
Align = alBottom
BevelOuter = bvNone
ClientHeight = 50
ClientWidth = 646
TabOrder = 1
object rgSeriesType: TRadioGroup
Left = 0
Height = 50
Top = 0
Width = 530
Align = alClient
AutoFill = True
Caption = ' Series type '
ChildSizing.LeftRightSpacing = 6
ChildSizing.TopBottomSpacing = 6
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
ChildSizing.EnlargeVertical = crsHomogenousChildResize
ChildSizing.ShrinkHorizontal = crsScaleChilds
ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 10
ClientHeight = 32
ClientWidth = 526
Columns = 10
ItemIndex = 0
Items.Strings = (
'Line'
'Bar'
'Area'
'Pie'
)
OnClick = rgSeriesTypeClick
TabOrder = 0
end
object rgXY: TRadioGroup
Left = 530
Height = 50
Top = 0
Width = 116
Align = alRight
AutoFill = True
ChildSizing.LeftRightSpacing = 6
ChildSizing.TopBottomSpacing = 6
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
ChildSizing.EnlargeVertical = crsHomogenousChildResize
ChildSizing.ShrinkHorizontal = crsScaleChilds
ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 2
ClientHeight = 32
ClientWidth = 112
Columns = 2
ItemIndex = 0
Items.Strings = (
'X'
'Y'
)
OnClick = rgXYClick
TabOrder = 1
end
end
object clbNans: TCheckListBox
Left = 586
Height = 424
Top = 0
Width = 60
Align = alRight
ItemHeight = 0
OnItemClick = clbNansItemClick
TabOrder = 2
end
object lcs1: TListChartSource
left = 524
top = 300
end
object lcs2: TListChartSource
left = 524
top = 352
end
end
|
