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
|
object MainForm: TMainForm
Left = 313
Height = 466
Top = 177
Width = 891
Caption = 'MainForm'
ClientHeight = 466
ClientWidth = 891
OnCreate = FormCreate
LCLVersion = '1.3'
object FinancialChart: TChart
Left = 0
Height = 382
Top = 42
Width = 891
AxisList = <
item
Grid.Color = clSilver
Minors = <>
Title.LabelFont.Orientation = 900
Title.LabelFont.Style = [fsBold]
Title.Visible = True
Title.Caption = 'Stock price'
end
item
Grid.Visible = False
Intervals.MinLength = 20
Alignment = calBottom
Marks.LabelFont.Orientation = 900
Marks.Format = '%2:s'
Marks.Style = smsLabel
Minors = <>
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
ParentColor = False
object ohlcSeries: TOpenHighLowCloseSeries
CandlestickDownBrush.Color = clRed
CandlestickLinePen.Color = clDefault
CandlestickUpBrush.Color = clLime
DownLinePen.Color = clRed
DownLinePen.Width = 2
LinePen.Color = clLime
LinePen.Width = 2
Mode = mOHLC
end
end
object BottomPanel: TPanel
Left = 0
Height = 42
Top = 424
Width = 891
Align = alBottom
BevelOuter = bvNone
Caption = 'Hold the left mouse button down to see a hint window with the stock prices above each data point.'
TabOrder = 1
end
object TopPanel: TPanel
Left = 0
Height = 42
Top = 0
Width = 891
Align = alTop
BevelOuter = bvNone
ClientHeight = 42
ClientWidth = 891
TabOrder = 2
object cbSeriesType: TComboBox
Left = 8
Height = 28
Top = 8
Width = 242
ItemHeight = 20
ItemIndex = 0
Items.Strings = (
'OHLC series'
'Candle stick series'
)
OnChange = cbSeriesTypeChange
Style = csDropDownList
TabOrder = 0
Text = 'OHLC series'
end
object cbCandleStickSameColor: TCheckBox
Left = 600
Height = 24
Top = 10
Width = 218
Caption = 'same color for tails and body'
Checked = True
OnChange = cbCandleStickSameColorChange
State = cbChecked
TabOrder = 1
Visible = False
end
object cbUpColor: TColorBox
Left = 296
Height = 26
Top = 10
Width = 100
Selected = clLime
Style = [cbStandardColors, cbExtendedColors, cbIncludeNone, cbIncludeDefault, cbCustomColor, cbPrettyNames, cbCustomColors]
ItemHeight = 20
OnChange = cbColorChange
TabOrder = 2
end
object cbDownColor: TColorBox
Left = 464
Height = 28
Top = 8
Width = 100
Selected = clRed
Style = [cbStandardColors, cbExtendedColors, cbIncludeNone, cbIncludeDefault, cbCustomColor, cbPrettyNames, cbCustomColors]
ItemHeight = 20
OnChange = cbColorChange
TabOrder = 3
end
object LblUp: TLabel
Left = 264
Height = 20
Top = 12
Width = 19
Caption = 'Up'
FocusControl = cbUpColor
ParentColor = False
end
object LblDown: TLabel
Left = 413
Height = 20
Top = 12
Width = 39
Caption = 'Down'
FocusControl = cbDownColor
ParentColor = False
end
end
object ChartToolset1: TChartToolset
left = 160
top = 111
object DataPointHintTool: TDataPointHintTool
Shift = [ssLeft]
DistanceMode = cdmOnlyX
GrabRadius = 8
OnHint = DataPointHintToolHint
OnHintLocation = DataPointHintToolHintLocation
end
end
end
|
