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
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
|
object MainForm: TMainForm
Left = 280
Height = 488
Top = 130
Width = 637
Caption = 'Datapoint Tools Demo'
ClientHeight = 488
ClientWidth = 637
OnCreate = FormCreate
LCLVersion = '2.1.0.0'
object TabControl: TTabControl
Left = 0
Height = 347
Top = 0
Width = 637
MultiLine = True
OnChange = TabControlChange
TabIndex = 4
Tabs.Strings = (
'Line series'
'Bar series'
'Area series'
'Polar series'
'Cubic spline series'
'BSpline series'
'Fit series'
'Open-High-Low-Close series'
'Box-Whisker series'
'Bubble series'
'Field series'
'Function series'
'Constant line'
'Pie series'
)
Align = alClient
TabOrder = 0
object Chart: TChart
Left = 2
Height = 282
Top = 63
Width = 633
AutoFocus = True
AxisList = <
item
Marks.LabelBrush.Style = bsClear
Minors = <>
Range.Max = 10
Range.UseMax = True
Range.UseMin = True
Title.LabelFont.Orientation = 900
Title.LabelBrush.Style = bsClear
end
item
Intervals.MaxLength = 80
Intervals.MinLength = 30
Alignment = calBottom
Marks.LabelBrush.Style = bsClear
Minors = <>
Title.LabelBrush.Style = bsClear
end>
Foot.Brush.Color = clBtnFace
Foot.Font.Color = clBlue
Legend.Visible = True
Title.Brush.Color = clBtnFace
Title.Brush.Style = bsClear
Title.Font.Color = clBlue
Title.Text.Strings = (
'Datapoint tools demo'
)
Title.Visible = True
Toolset = Toolset
Align = alClient
Color = clDefault
object LineSeries: TLineSeries
Legend.Multiplicity = lmStyle
Active = False
Title = 'Line series'
Pointer.Style = psCircle
Pointer.Visible = True
ShowPoints = True
Stacked = True
Source = ListChartSource
Styles = ChartStyles
end
object BarSeries: TBarSeries
Legend.Multiplicity = lmStyle
Active = False
Title = 'Bar series'
BarBrush.Color = clRed
BarWidthStyle = bwPercentMin
Source = ListChartSource
Styles = ChartStyles
end
object AreaSeries: TAreaSeries
Legend.Multiplicity = lmStyle
Active = False
Title = 'Area series'
AreaLinesPen.Style = psClear
Source = ListChartSource
Styles = ChartStyles
end
object PolarSeries: TPolarSeries
Active = False
Title = 'Polar series'
LinePen.Color = clRed
Pointer.HorizSize = 5
Pointer.Style = psDiamond
Pointer.VertSize = 5
Pointer.Visible = True
ShowPoints = True
Source = ListChartSource
end
object CubicSplineSeries: TCubicSplineSeries
Active = False
Title = 'Cubic spline series'
Pointer.Brush.Color = clRed
Pointer.HorizSize = 6
Pointer.Style = psFullStar
Pointer.VertSize = 6
Pointer.Visible = True
Source = ListChartSource
Pen.Color = clRed
end
object BSplineSeries: TBSplineSeries
Active = False
Title = 'BSpline series'
Source = ListChartSource
Pen.Color = clGreen
Pointer.Brush.Color = clGreen
Pointer.HorizSize = 7
Pointer.Style = psHexagon
Pointer.VertSize = 7
Pointer.Visible = True
end
object OHLCSeries: TOpenHighLowCloseSeries
Active = False
Title = 'OHLC series'
CandlestickDownBrush.Color = clRed
CandlestickLinePen.Width = 2
CandlestickUpBrush.Color = clGreen
DownLinePen.Color = clRed
DownLinePen.Width = 2
LinePen.Color = clGreen
LinePen.Width = 2
end
object BoxWhiskerSeries: TBoxAndWhiskerSeries
Active = False
Title = 'Box-and-whisker series'
BoxBrush.Color = clSkyBlue
WidthStyle = bwsPercentMin
end
object BubbleSeries: TBubbleSeries
Active = False
Title = 'Bubble series'
BubbleBrush.Color = clSkyBlue
end
object ConstantLineSeries: TConstantLine
Active = False
Pen.Color = clFuchsia
Position = 4.5
Title = 'Constant line'
end
object FuncSeries: TFuncSeries
Active = False
Extent.UseXMax = True
Extent.UseXMin = True
Extent.XMax = 10
Title = 'Function series'
Pen.Color = clBlue
OnCalculate = FuncSeriesCalculate
end
object FieldSeries: TFieldSeries
Active = False
Title = 'Field series'
Arrow.Length = 20
Arrow.Visible = True
Arrow.Width = 10
Pen.Color = clGreen
end
object FitSeries: TFitSeries
Active = False
Title = 'Fit series'
FitEquation = feLinear
ParamCount = 2
Pen.Color = clBlue
Pointer.Brush.Color = 16750487
Pointer.HorizSize = 5
Pointer.Style = psCircle
Pointer.VertSize = 5
Pointer.Visible = True
end
object PieSeries: TPieSeries
Title = 'Pie series'
end
end
end
object Panel1: TPanel
Left = 0
Height = 141
Top = 347
Width = 637
Align = alBottom
AutoSize = True
BevelOuter = bvNone
ClientHeight = 141
ClientWidth = 637
TabOrder = 1
object CbDragXY: TCheckBox
AnchorSideLeft.Control = Panel1
AnchorSideTop.Control = Panel1
Left = 8
Height = 19
Top = 8
Width = 113
BorderSpacing.Left = 8
BorderSpacing.Top = 8
BorderSpacing.Bottom = 8
Caption = 'Drag both x and y'
Checked = True
OnChange = CbDragXYChange
State = cbChecked
TabOrder = 0
end
object DatapointInfo: TLabel
AnchorSideLeft.Control = CbDragXY
AnchorSideLeft.Side = asrBottom
Left = 145
Height = 15
Top = 11
Width = 73
BorderSpacing.Left = 24
Caption = 'DatapointInfo'
ParentColor = False
end
object LblNOTE: TLabel
AnchorSideLeft.Control = Panel1
AnchorSideTop.Control = LblUSAGE
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Panel1
AnchorSideRight.Side = asrBottom
Left = 8
Height = 15
Top = 118
Width = 621
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 8
BorderSpacing.Right = 8
BorderSpacing.Bottom = 8
Caption = 'lblNOTE'
ParentColor = False
WordWrap = True
end
object LblUSAGE: TLabel
AnchorSideLeft.Control = Panel1
AnchorSideTop.Control = CbDragXY
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Panel1
AnchorSideRight.Side = asrBottom
Left = 8
Height = 75
Top = 35
Width = 621
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 8
BorderSpacing.Right = 8
BorderSpacing.Bottom = 8
Caption = 'USAGE:'#13#10'Drag a datapoint with the left mouse button.'#13#10'Press CTRL for crosshair cursor, see a datapoint info below the chart.'#13#10'Press SHIFT to see a hint window with the datapoint info.'#13#10'CTRL+Left-click to see the hint windows in a message box.'
ParentColor = False
end
object CbCandleStick: TCheckBox
AnchorSideLeft.Control = DatapointInfo
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = CbDragXY
AnchorSideRight.Control = Panel1
AnchorSideRight.Side = asrBottom
Left = 545
Height = 19
Top = 8
Width = 84
Anchors = [akTop, akRight]
BorderSpacing.Left = 24
BorderSpacing.Right = 8
Caption = 'Candle stick'
OnChange = CbCandleStickChange
TabOrder = 1
Visible = False
end
end
object Toolset: TChartToolset
left = 256
top = 72
object BubbleSeriesDatapointDragTool: TDataPointDragTool
Shift = [ssLeft]
AffectedSeries = '8'
GrabRadius = 12
end
object FieldSeriesDatapointDragTool: TDataPointDragTool
Shift = [ssLeft]
GrabRadius = 12
end
object DataPointDragTool: TDataPointDragTool
Shift = [ssLeft]
AffectedSeries = '0,1,2,3,4,5,6,7'
GrabRadius = 12
Targets = [nptPoint, nptXList, nptYList]
OnDrag = DataPointDragToolDragXY
end
object ClickTool: TDataPointClickTool
Shift = [ssCtrl, ssLeft]
GrabRadius = 12
OnPointClick = ClickToolPointClick
end
object HintTool: TDataPointHintTool
Shift = [ssShift]
GrabRadius = 12
OnHint = HintToolHint
end
object CrosshairTool: TDataPointCrosshairTool
Shift = [ssCtrl]
OnAfterKeyUp = CrosshairToolAfterKeyUp
OnAfterMouseUp = CrosshairToolAfterMouseUp
GrabRadius = 12
OnDraw = CrosshairToolDraw
Size = 12
end
object PieSeriesDatapointDragTool: TDataPointDragTool
Shift = [ssLeft]
end
end
object ChartStyles: TChartStyles
Styles = <
item
Brush.Color = clRed
Pen.Color = clRed
Text = 'Red'
end
item
Brush.Color = clBlue
Pen.Color = clBlue
Text = 'Blue'
end>
left = 256
top = 144
end
object ListChartSource: TListChartSource
YCount = 2
left = 112
top = 72
end
end
|
