6
6
Caption = 'TAChart axis demo'
9
9
OnCreate = FormCreate
10
10
Position = poScreenCenter
11
11
LCLVersion = '0.9.31'
12
12
object PageControl1: TPageControl
17
ActivePage = tsCustomMarks
21
object lsLinear: TTabSheet
22
Caption = 'Linear transform'
33
Marks.LabelFont.Color = clRed
34
Marks.AtDataOnly = True
36
Title.LabelFont.Color = clRed
37
Title.LabelFont.Orientation = 900
39
Title.Caption = 'Summer temperature, °C'
40
Transformations = catTAuto
45
Title.Caption = 'Year'
51
Marks.LabelFont.Color = clBlue
52
Marks.AtDataOnly = True
54
Title.LabelFont.Color = clBlue
55
Title.LabelFont.Orientation = 900
57
Title.Caption = 'Winter temperature, °F'
58
Transformations = catT
60
Foot.Brush.Color = clBtnFace
61
Foot.Font.Color = clBlue
63
Title.Brush.Color = clBtnFace
64
Title.Font.Color = clBlue
65
Title.Text.Strings = (
70
object ChartTSummer: TLineSeries
76
object ChartTWinterLine: TLineSeries
78
LinePen.Color = clBlue
82
object ChartTWinterBar: TBarSeries
84
BarBrush.Color = clBlue
85
BarBrush.Style = bsDiagCross
89
object pnlAutoControls: TPanel
98
object cbAuto: TCheckBox
103
Caption = 'Auto scale'
104
OnChange = cbAutoChange
109
object tsLog: TTabSheet
110
Caption = 'Logarithm transform'
113
object ChartLog: TChart
120
Title.LabelFont.Orientation = 900
122
Title.Caption = 'Left'
123
Transformations = catLog
126
Alignment = calBottom
129
Title.Caption = 'Bottom'
134
Title.LabelFont.Orientation = 900
136
Title.Caption = 'Right 1'
141
Title.Caption = 'Top'
143
Foot.Brush.Color = clBtnFace
144
Foot.Font.Color = clBlue
145
Title.Brush.Color = clBtnFace
146
Title.Font.Color = clBlue
147
Title.Text.Strings = (
152
object clsLogPoints: TLineSeries
155
Pointer.Brush.Color = clMaroon
158
object cfsLog: TFuncSeries
161
Extent.UseXMin = True
162
Extent.UseXMax = True
164
OnCalculate = ChartLogFuncSeries1Calculate
167
object pnlLogControls: TPanel
176
object cbLog: TCheckBox
181
Caption = 'Log scale'
183
OnChange = cbLogChange
21
Options = [nboKeyboardTabSwitch]
189
22
object tsCustomMarks: TTabSheet
190
23
Caption = 'Customized marks'
193
26
object ChartCustomMarks: TChart
204
37
Marks.LabelBrush.Style = bsSolid
205
38
Marks.Source = lcsMarks
206
39
Marks.Style = smsCustom
207
41
Title.LabelFont.Orientation = 900
210
46
Alignment = calBottom
50
AxisPen.Visible = True
212
51
Marks.LabelFont.Height = -13
213
52
Marks.LabelFont.Style = [fsBold]
214
53
Marks.Format = '%2:s'
215
54
Marks.Source = lcsMarks
216
55
Marks.Style = smsLabel
218
OnMarkToText = TChartAxisList1MarkToText
57
OnMarkToText = ChartCustomMarksAxisList1MarkToText
220
59
Foot.Brush.Color = clBtnFace
221
60
Foot.Font.Color = clBlue
61
MarginsExternal.Left = 0
222
62
Title.Brush.Color = clBtnFace
223
63
Title.Font.Color = clBlue
224
64
Title.Text.Strings = (
269
111
object tsSubmarks: TTabSheet
270
112
Caption = 'Submarks'
272
114
ClientWidth = 525
273
115
object ChartSubmarks: TChart
281
124
Marks.Source = udcsMain
283
126
Title.LabelFont.Orientation = 900
286
Alignment = calBottom
288
Marks.Source = udcsMain
129
Intervals.MaxLength = 100
130
Intervals.MinLength = 30
131
Intervals.NiceSteps = '0.2|0.25|0.5|1.0'
133
Alignment = calBottom
135
Marks.LabelFont.Style = [fsBold]
139
Grid.Cosmetic = False
141
Intervals.MinLength = 5
142
Intervals.Options = [aipUseCount, aipUseMinLength]
144
Marks.LabelFont.Height = -9
145
Marks.LabelFont.Orientation = 900
146
Marks.Format = '%0:.9g'
147
Marks.Style = smsValue
292
151
Grid.Visible = False
294
154
Marks.Source = udcsSub
295
155
Marks.Style = smsNone
299
Alignment = calBottom
302
Marks.Source = udcsSub
303
Marks.Style = smsNone
306
159
Foot.Brush.Color = clBtnFace
307
160
Foot.Font.Color = clBlue
308
161
Title.Brush.Color = clBtnFace
212
object tsIntervals: TTabSheet
213
Caption = 'Intervals'
216
object ChartIntervals: TChart
224
Intervals.NiceSteps = '0.25|1.0'
227
AxisPen.Color = clMaroon
228
AxisPen.Visible = True
229
Marks.LabelFont.Color = clMaroon
231
Title.LabelFont.Color = clMaroon
232
Title.LabelFont.Orientation = 900
234
Title.Caption = 'NiceSteps = 0.25'
238
Intervals.MinLength = 20
239
Intervals.NiceSteps = '0.3|0.6'
240
Alignment = calBottom
241
AxisPen.Visible = True
242
Marks.Format = '%0:.6g'
243
Marks.Range.Max = 0.6
244
Marks.Range.Min = -0.3
245
Marks.Range.UseMax = True
246
Marks.Range.UseMin = True
247
Marks.Style = smsCustom
250
Title.Caption = 'Marks.Range = -0.3 .. 0.6'
255
Intervals.MinLength = 4
256
Intervals.Options = [aipUseCount, aipUseMaxLength, aipUseMinLength, aipUseNiceSteps]
259
AxisPen.Color = clGreen
260
AxisPen.Visible = True
262
Marks.LabelFont.Color = clGreen
264
Title.LabelFont.Color = clGreen
265
Title.LabelFont.Orientation = 900
267
Title.Caption = 'MinLength = 4'
271
Intervals.MaxLength = 200
272
Intervals.Options = [aipUseCount, aipUseMaxLength, aipUseMinLength, aipUseNiceSteps]
275
AxisPen.Color = clNavy
276
AxisPen.Visible = True
278
Marks.LabelFont.Color = clNavy
280
Title.LabelFont.Color = clNavy
281
Title.LabelFont.Orientation = 900
283
Title.Caption = 'MaxLength = 200'
287
Intervals.Options = [aipUseMaxLength, aipUseMinLength]
289
AxisPen.Visible = True
291
Marks.Format = '%0:.4g'
292
Marks.Style = smsCustom
294
Title.LabelFont.Orientation = 900
296
Title.Caption = 'No nice steps'
299
Foot.Brush.Color = clBtnFace
300
Foot.Font.Color = clBlue
301
Frame.Visible = False
302
Title.Brush.Color = clBtnFace
303
Title.Font.Color = clBlue
304
Title.Text.Strings = (
358
312
object lcsMarks: TListChartSource
359
313
DataPoints.Strings = (
370
object catLog: TChartAxisTransformations
373
object ChartAxisTransformations1LinearAxisTransform2: TLinearAxisTransform
376
object ChartAxisTransformations1LogarithmAxisTransform1: TLogarithmAxisTransform
380
object catT: TChartAxisTransformations
383
object catTFahrToCel: TLinearAxisTransform
384
Offset = -17.777777777
387
object catTAutoScaleAxisTransform1: TAutoScaleAxisTransform
391
object rcsTSummer: TRandomChartSource
401
object rcsTWinter: TRandomChartSource
411
object catTAuto: TChartAxisTransformations
414
object catTAutoAutoScaleAxisTransform1: TAutoScaleAxisTransform
418
324
object rcsDates: TRandomChartSource
419
325
RandSeed = 1079653020
427
333
object DateTimeIntervalChartSource1: TDateTimeIntervalChartSource
335
Params.MaxLength = 150
336
Params.MinLength = 20
337
Params.Options = [aipUseCount, aipUseMaxLength, aipUseMinLength, aipUseNiceSteps]