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
|
object MainForm: TMainForm
Left = 828
Height = 405
Top = 332
Width = 537
AutoSize = True
Caption = 'Chart Title Demo'
ClientHeight = 405
ClientWidth = 537
OnActivate = FormActivate
LCLVersion = '2.3.0.0'
object Chart1: TChart
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner
AnchorSideRight.Control = rgAlignment
AnchorSideBottom.Control = Owner
AnchorSideBottom.Side = asrBottom
Left = 16
Height = 373
Top = 16
Width = 300
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>
Title.Brush.Color = clMenuHighlight
Title.Font.Color = clWindow
Title.Font.Height = -16
Title.Font.Style = [fsBold]
Title.Text.Strings = (
'Chart Title'
)
Title.Visible = True
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Around = 16
Constraints.MinWidth = 300
end
object cbFullWidth: TCheckBox
AnchorSideLeft.Control = rgAlignment
AnchorSideTop.Control = gbTitleMargins
AnchorSideTop.Side = asrBottom
Left = 328
Height = 19
Top = 308
Width = 93
BorderSpacing.Top = 16
Caption = 'Title full width'
OnChange = cbFullWidthChange
TabOrder = 5
end
object mmoTitleText: TMemo
AnchorSideLeft.Control = rgAlignment
AnchorSideTop.Control = lblTitleText
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = rgAlignment
AnchorSideRight.Side = asrBottom
Left = 328
Height = 48
Top = 41
Width = 187
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 2
BorderSpacing.Right = 6
Lines.Strings = (
'Chart Title'
)
OnChange = mmoTitleTextChange
TabOrder = 1
end
object cbShowAxisMarksAndTitle: TCheckBox
AnchorSideLeft.Control = rgAlignment
AnchorSideTop.Control = cbFullWidth
AnchorSideTop.Side = asrBottom
Left = 328
Height = 19
Top = 333
Width = 151
BorderSpacing.Top = 6
Caption = 'Show axis marks and title'
Checked = True
OnChange = cbShowAxisMarksAndTitleChange
State = cbChecked
TabOrder = 6
end
object rgAlignment: TRadioGroup
AnchorSideTop.Control = cbShape
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 328
Height = 51
Top = 149
Width = 193
Anchors = [akTop, akRight]
AutoFill = True
AutoSize = True
BorderSpacing.Top = 12
BorderSpacing.Right = 16
Caption = 'Alignment'
ChildSizing.LeftRightSpacing = 18
ChildSizing.TopBottomSpacing = 6
ChildSizing.HorizontalSpacing = 12
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
ChildSizing.EnlargeVertical = crsHomogenousChildResize
ChildSizing.ShrinkHorizontal = crsScaleChilds
ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 3
ClientHeight = 31
ClientWidth = 189
Columns = 3
ItemIndex = 1
Items.Strings = (
'left'
'center'
'right'
)
OnClick = rgAlignmentClick
TabOrder = 3
end
object gbTitleMargins: TGroupBox
AnchorSideLeft.Control = rgAlignment
AnchorSideTop.Control = rgAlignment
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = rgAlignment
AnchorSideRight.Side = asrBottom
Left = 328
Height = 80
Top = 212
Width = 193
Anchors = [akTop, akLeft, akRight]
AutoSize = True
BorderSpacing.Top = 12
Caption = 'Margins'
ClientHeight = 60
ClientWidth = 189
TabOrder = 4
object Label1: TLabel
AnchorSideLeft.Control = gbTitleMargins
AnchorSideTop.Control = gbTitleMargins
Left = 16
Height = 15
Top = 8
Width = 20
BorderSpacing.Left = 16
BorderSpacing.Top = 8
Caption = 'Left'
end
object Label2: TLabel
AnchorSideTop.Control = Label1
AnchorSideRight.Control = gbTitleMargins
AnchorSideRight.Side = asrBottom
Left = 145
Height = 15
Top = 8
Width = 28
Alignment = taRightJustify
Anchors = [akTop, akRight]
BorderSpacing.Right = 16
Caption = 'Right'
end
object seLeftMargin: TSpinEdit
AnchorSideLeft.Control = Label1
AnchorSideTop.Control = Label1
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Bevel1
Left = 16
Height = 23
Top = 25
Width = 67
Alignment = taRightJustify
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 2
BorderSpacing.Bottom = 12
OnChange = seLeftMarginChange
TabOrder = 0
Value = 4
end
object seRightMargin: TSpinEdit
AnchorSideLeft.Control = Bevel1
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = seLeftMargin
AnchorSideRight.Control = Label2
AnchorSideRight.Side = asrBottom
Left = 106
Height = 23
Top = 25
Width = 67
Alignment = taRightJustify
Anchors = [akTop, akLeft, akRight]
OnChange = seRightMarginChange
TabOrder = 1
Value = 4
end
object Bevel1: TBevel
AnchorSideLeft.Control = gbTitleMargins
AnchorSideLeft.Side = asrCenter
Left = 83
Height = 30
Top = 8
Width = 23
Shape = bsSpacer
end
end
object cbShape: TComboBox
AnchorSideLeft.Control = rgAlignment
AnchorSideTop.Control = lblShape
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = rgAlignment
AnchorSideRight.Side = asrBottom
Left = 328
Height = 23
Top = 114
Width = 187
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 2
BorderSpacing.Right = 6
ItemHeight = 15
ItemIndex = 0
Items.Strings = (
'Rectangle'
'Ellipse'
'RoundRect'
'RoundSide'
'Userdefined (Rhomboid)'
)
OnChange = cbShapeChange
Style = csDropDownList
TabOrder = 2
Text = 'Rectangle'
end
object lblTitleText: TLabel
AnchorSideLeft.Control = rgAlignment
AnchorSideTop.Control = Chart1
Left = 328
Height = 15
Top = 24
Width = 45
BorderSpacing.Top = 8
Caption = 'Title text'
end
object lblShape: TLabel
AnchorSideLeft.Control = rgAlignment
AnchorSideTop.Control = mmoTitleText
AnchorSideTop.Side = asrBottom
Left = 328
Height = 15
Top = 97
Width = 32
BorderSpacing.Top = 8
Caption = 'Shape'
end
object cbFrame: TCheckBox
AnchorSideLeft.Control = rgAlignment
AnchorSideTop.Control = cbShowAxisMarksAndTitle
AnchorSideTop.Side = asrBottom
Left = 328
Height = 19
Top = 358
Width = 74
BorderSpacing.Top = 6
BorderSpacing.Bottom = 16
Caption = 'Title frame'
OnChange = cbFrameChange
TabOrder = 7
end
object clbFrameColor: TColorButton
AnchorSideLeft.Control = cbFrame
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = cbFrame
AnchorSideTop.Side = asrCenter
Left = 410
Height = 25
Top = 355
Width = 29
BorderSpacing.Left = 8
BorderSpacing.Bottom = 16
BorderWidth = 2
ButtonColorSize = 16
ButtonColor = clBlack
OnColorChanged = clbFrameColorColorChanged
end
end
|
