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
|
object MainForm: TMainForm
Left = 332
Height = 366
Top = 128
Width = 613
Caption = 'MainForm'
ClientHeight = 346
ClientWidth = 613
Menu = MainMenu
OnCreate = FormCreate
LCLVersion = '2.1.0.0'
object Chart1: TChart
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = Bevel1
Left = 0
Height = 290
Top = 0
Width = 613
AxisList = <
item
Marks.LabelBrush.Style = bsClear
Minors = <>
Title.LabelFont.Orientation = 900
Title.Visible = True
Title.Caption = 'y axis'
Title.LabelBrush.Style = bsClear
end
item
Alignment = calBottom
Marks.LabelBrush.Style = bsClear
Minors = <>
Title.Visible = True
Title.Caption = 'x axis'
Title.LabelBrush.Style = bsClear
end>
Foot.Alignment = taLeftJustify
Foot.Brush.Color = clForm
Foot.Text.Strings = (
'Created by Lazarus and TAChart'
)
Foot.Visible = True
Legend.Visible = True
Title.Brush.Color = clForm
Title.Text.Strings = (
'TAChart'
)
Title.Visible = True
Toolset = ChartToolset1
Anchors = [akTop, akLeft, akRight, akBottom]
object Chart1LineSeries1: TLineSeries
Title = 'Line'
LinePen.Color = clBlue
Pointer.Brush.Color = clBlue
Pointer.HorizSize = 5
Pointer.Style = psCircle
Pointer.VertSize = 5
Pointer.Visible = True
ShowPoints = True
Source = RandomChartSource1
end
object Chart1BarSeries1: TBarSeries
Title = 'Bars'
BarBrush.Color = clRed
Source = RandomChartSource2
ToolTargets = [nptYList, nptCustom]
UseZeroLevel = False
end
object Chart1AreaSeries1: TAreaSeries
Title = 'Area'
AreaBrush.Color = clYellow
Source = RandomChartSource3
ToolTargets = [nptPoint, nptYList, nptCustom]
end
end
object Label1: TLabel
AnchorSideLeft.Control = Owner
AnchorSideBottom.Control = cbDoubleClick
Left = 6
Height = 15
Top = 300
Width = 601
Anchors = [akLeft, akRight, akBottom]
BorderSpacing.Around = 6
Caption = 'Click on a title, axis, label, grid, data point to open the corresponding editor.'
ParentColor = False
end
object Bevel1: TBevel
AnchorSideLeft.Control = Owner
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = Label1
Left = 0
Height = 4
Top = 290
Width = 613
Anchors = [akLeft, akRight, akBottom]
Shape = bsBottomLine
end
object cbDoubleClick: TCheckBox
AnchorSideLeft.Control = Owner
AnchorSideBottom.Control = Owner
AnchorSideBottom.Side = asrBottom
Left = 6
Height = 19
Top = 321
Width = 177
Anchors = [akLeft, akBottom]
BorderSpacing.Left = 6
BorderSpacing.Bottom = 6
Caption = 'Activate tools by double-click'
OnChange = cbDoubleClickChange
TabOrder = 1
end
object cbUseAllInOneDialog: TCheckBox
AnchorSideLeft.Control = cbDoubleClick
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = cbDoubleClick
Left = 207
Height = 19
Top = 321
Width = 140
BorderSpacing.Left = 24
Caption = 'Use "all-in-one" dialog'
TabOrder = 2
end
object ChartToolset1: TChartToolset
Left = 104
Top = 16
object ChartToolset1DataPointClickTool1: TDataPointClickTool
Shift = [ssLeft]
OnPointClick = ChartToolset1DataPointClickTool1PointClick
end
object ChartToolset1TitleFootClickTool1: TTitleFootClickTool
Shift = [ssLeft]
OnClick = ChartToolset1TitleFootClickTool1Click
end
object ChartToolset1LegendClickTool1: TLegendClickTool
Shift = [ssLeft]
OnClick = ChartToolset1LegendClickTool1Click
end
object ChartToolset1AxisClickTool1: TAxisClickTool
Shift = [ssLeft]
OnClick = ChartToolset1AxisClickTool1Click
end
end
object MainMenu: TMainMenu
Images = ChartImagesDM.ChartImages
Left = 104
Top = 88
object mnuSettings: TMenuItem
Caption = 'Settings'
object mnuChartTitle: TMenuItem
Caption = 'Chart title...'
ImageIndex = 0
OnClick = mnuChartTitleClick
end
object mnuChartFooter: TMenuItem
Caption = 'Chart footer...'
ImageIndex = 1
OnClick = mnuChartFooterClick
end
object mnuChartLegend: TMenuItem
Caption = 'Chart legend...'
ImageIndex = 2
OnClick = mnuChartLegendClick
end
object MenuItem2: TMenuItem
Caption = '-'
end
object mnuBottomAxis: TMenuItem
Caption = 'Bottom axis...'
ImageIndex = 6
OnClick = mnuBottomAxisClick
end
object mnuLeftAxis: TMenuItem
Caption = 'Left axis...'
ImageIndex = 3
OnClick = mnuLeftAxisClick
end
object MenuItem1: TMenuItem
Caption = '-'
end
object mnuSeries: TMenuItem
Caption = 'Series'
end
end
end
object RandomChartSource1: TRandomChartSource
PointsNumber = 15
RandSeed = 1312718226
XMax = 10
YMax = 100
YMin = 30
Left = 444
Top = 48
end
object RandomChartSource2: TRandomChartSource
PointsNumber = 11
RandSeed = 1312768733
XMax = 10
YMax = 50
Left = 444
Top = 104
end
object RandomChartSource3: TRandomChartSource
PointsNumber = 11
RandSeed = 1312768734
XMax = 10
YMax = 50
Left = 444
Top = 168
end
end
|
