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
|
object MainForm: TMainForm
Left = 313
Height = 466
Top = 177
Width = 891
Caption = 'MainForm'
ClientHeight = 466
ClientWidth = 891
OnCreate = FormCreate
LCLVersion = '2.1.0.0'
object FinancialChart: TChart
Left = 0
Height = 385
Top = 39
Width = 891
AxisList = <
item
Grid.Color = clSilver
Marks.LabelBrush.Style = bsClear
Minors = <>
Title.LabelFont.Orientation = 900
Title.LabelFont.Style = [fsBold]
Title.Visible = True
Title.Caption = 'Stock price'
Title.LabelBrush.Style = bsClear
end
item
Grid.Visible = False
Intervals.MinLength = 20
Alignment = calBottom
Marks.LabelFont.Orientation = 900
Marks.Format = '%2:s'
Marks.LabelBrush.Style = bsClear
Marks.Style = smsLabel
Minors = <>
Title.LabelBrush.Style = bsClear
end>
BackColor = clWhite
Foot.Brush.Color = clBtnFace
Foot.Font.Color = clBlue
Margins.Left = 16
Margins.Top = 16
Margins.Right = 16
Margins.Bottom = 16
Title.Brush.Color = clBtnFace
Title.Font.Color = clBlue
Title.Text.Strings = (
'TAChart'
)
Toolset = ChartToolset1
Align = alClient
object ohlcSeries: TOpenHighLowCloseSeries
CandlestickDownBrush.Color = clRed
CandlestickLinePen.Color = clDefault
CandlestickUpBrush.Color = clLime
DownLinePen.Color = clRed
DownLinePen.Width = 2
LinePen.Color = clLime
LinePen.Width = 2
end
end
object BottomPanel: TPanel
Left = 0
Height = 42
Top = 424
Width = 891
Align = alBottom
BevelOuter = bvNone
ClientHeight = 42
ClientWidth = 891
TabOrder = 1
object Label1: TLabel
Left = 0
Height = 42
Top = 0
Width = 891
Align = alClient
Alignment = taCenter
Caption = 'Hold down the left mouse button to see a hint window with the open/high/low/close stock prices above each data point.'#13#10'Hold down the left mouse button - together with CTRL - to see a hint window with the clicked stock price above each data point.'
Layout = tlCenter
ParentColor = False
end
end
object TopPanel: TPanel
Left = 0
Height = 39
Top = 0
Width = 891
Align = alTop
AutoSize = True
BevelOuter = bvNone
ClientHeight = 39
ClientWidth = 891
TabOrder = 2
object cbSeriesType: TComboBox
AnchorSideLeft.Control = TopPanel
AnchorSideTop.Control = TopPanel
Left = 8
Height = 23
Top = 8
Width = 242
BorderSpacing.Left = 8
BorderSpacing.Top = 8
BorderSpacing.Bottom = 8
ItemHeight = 15
ItemIndex = 0
Items.Strings = (
'OHLC series'
'Candle stick series'
)
OnChange = cbSeriesTypeChange
Style = csDropDownList
TabOrder = 0
Text = 'OHLC series'
end
object cbCandleStickSameColor: TCheckBox
AnchorSideLeft.Control = cbDownColor
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = cbSeriesType
AnchorSideTop.Side = asrCenter
Left = 584
Height = 19
Top = 10
Width = 173
BorderSpacing.Left = 24
Caption = 'same color for tails and body'
Checked = True
OnChange = cbCandleStickSameColorChange
State = cbChecked
TabOrder = 1
Visible = False
end
object cbUpColor: TColorBox
AnchorSideLeft.Control = LblUp
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = cbSeriesType
AnchorSideTop.Side = asrCenter
Left = 297
Height = 26
Top = 6
Width = 100
Selected = clLime
Style = [cbStandardColors, cbExtendedColors, cbIncludeNone, cbIncludeDefault, cbCustomColor, cbPrettyNames, cbCustomColors]
BorderSpacing.Left = 8
ItemHeight = 20
OnChange = cbColorChange
TabOrder = 2
end
object cbDownColor: TColorBox
AnchorSideLeft.Control = LblDown
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = cbSeriesType
AnchorSideTop.Side = asrCenter
Left = 460
Height = 26
Top = 6
Width = 100
Selected = clRed
Style = [cbStandardColors, cbExtendedColors, cbIncludeNone, cbIncludeDefault, cbCustomColor, cbPrettyNames, cbCustomColors]
BorderSpacing.Left = 8
ItemHeight = 20
OnChange = cbColorChange
TabOrder = 3
end
object LblUp: TLabel
AnchorSideLeft.Control = cbSeriesType
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = cbSeriesType
AnchorSideTop.Side = asrCenter
Left = 274
Height = 15
Top = 12
Width = 15
BorderSpacing.Left = 24
Caption = 'Up'
FocusControl = cbUpColor
ParentColor = False
end
object LblDown: TLabel
AnchorSideLeft.Control = cbUpColor
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = cbSeriesType
AnchorSideTop.Side = asrCenter
Left = 421
Height = 15
Top = 12
Width = 31
BorderSpacing.Left = 24
Caption = 'Down'
FocusControl = cbDownColor
ParentColor = False
end
end
object ChartToolset1: TChartToolset
left = 160
top = 111
object DataPointHintTool_All: TDataPointHintTool
Shift = [ssLeft]
GrabRadius = 8
OnHint = DataPointHintTool_AllHint
OnHintLocation = DataPointHintToolHintLocation
end
object DataPointHintTool_Details: TDataPointHintTool
Shift = [ssCtrl, ssLeft]
GrabRadius = 8
Targets = [nptPoint, nptXList, nptYList]
OnHint = DataPointHintTool_DetailsHint
OnHintLocation = DataPointHintToolHintLocation
end
end
end
|
