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
|
object Form1: TForm1
Left = 381
Height = 401
Top = 250
Width = 729
Caption = 'Chart Axis Click Tool Demo'
ClientHeight = 401
ClientWidth = 729
LCLVersion = '3.99.0.0'
object Chart: TChart
Left = 0
Height = 353
Top = 0
Width = 729
AxisList = <
item
Grid.Color = 12040191
Grid.Style = psSolid
AtDataOnly = True
AxisPen.Color = clRed
AxisPen.Visible = True
Group = 1
Marks.LabelFont.Color = clRed
Marks.AtDataOnly = True
Marks.LabelBrush.Style = bsClear
Minors = <>
Title.LabelFont.Color = clRed
Title.LabelFont.Orientation = 900
Title.Visible = True
Title.Caption = 'Left axis #1'
Title.LabelBrush.Style = bsClear
Title.PositionOnMarks = True
Transformations = RedAxisTransformations
end
item
Grid.Color = clSilver
Grid.Style = psSolid
Alignment = calBottom
Marks.LabelBrush.Style = bsClear
Minors = <>
Title.Visible = True
Title.Caption = 'Bottom axis'
Title.LabelBrush.Style = bsClear
end
item
Grid.Color = clSilver
Grid.Visible = False
Alignment = calRight
AxisPen.Visible = True
Marks.LabelBrush.Style = bsClear
Minors = <>
Title.LabelFont.Orientation = 450
Title.Visible = True
Title.Caption = 'Right axis'
Title.LabelBrush.Style = bsClear
end
item
Grid.Color = 16765650
Grid.Style = psSolid
AtDataOnly = True
AxisPen.Color = clBlue
AxisPen.Visible = True
Group = 1
Marks.LabelFont.Color = clBlue
Marks.AtDataOnly = True
Marks.LabelBrush.Style = bsClear
Minors = <>
Title.LabelFont.Color = clBlue
Title.LabelFont.Orientation = 900
Title.Visible = True
Title.Caption = 'Left axis #2'
Title.LabelBrush.Style = bsClear
Title.PositionOnMarks = True
Transformations = BlueAxisTransformations
end>
Frame.Visible = False
Title.Text.Strings = (
'Click on various parts of the axes'
'Colliding parts are detected in the order of the series (left#1-bottom-right-left#2)'
)
Title.Visible = True
Toolset = ChartToolset
Align = alClient
object RedSeries: TLineSeries
AxisIndexY = 0
LinePen.Color = clRed
Source = RedChartSource
end
object BlueSeries: TLineSeries
AxisIndexY = 3
LinePen.Color = clBlue
Source = BlueChartSource
end
end
object BottomPanel: TPanel
Left = 6
Height = 36
Top = 359
Width = 717
Align = alBottom
AutoSize = True
BorderSpacing.Around = 6
BevelOuter = bvNone
ClientHeight = 36
ClientWidth = 717
TabOrder = 1
object Label1: TLabel
AnchorSideLeft.Control = BottomPanel
AnchorSideTop.Control = BottomPanel
Left = 0
Height = 15
Top = 0
Width = 65
Caption = 'Clicked axis:'
end
object Label2: TLabel
AnchorSideLeft.Control = BottomPanel
AnchorSideTop.Control = Label1
AnchorSideTop.Side = asrBottom
Left = 0
Height = 15
Top = 19
Width = 66
BorderSpacing.Top = 4
Caption = 'Clicked part:'
end
object lblClickedAxis: TLabel
AnchorSideLeft.Control = Label1
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Label1
Left = 73
Height = 15
Top = 0
Width = 36
BorderSpacing.Left = 8
Caption = '(none)'
Font.Style = [fsBold]
ParentFont = False
end
object lblClickedAxisPart: TLabel
AnchorSideLeft.Control = Label1
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Label2
Left = 73
Height = 15
Top = 19
Width = 36
BorderSpacing.Left = 8
Caption = '(none)'
Font.Style = [fsBold]
ParentFont = False
end
object cbShowGrid_LeftAxis2: TCheckBox
AnchorSideLeft.Control = Bevel1
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Label1
AnchorSideTop.Side = asrCenter
Left = 360
Height = 19
Top = -2
Width = 130
Caption = 'Show left axis #2 grid'
Checked = True
State = cbChecked
TabOrder = 0
OnChange = cbShowGrid_LeftAxis2Change
end
object Bevel1: TBevel
AnchorSideLeft.Control = BottomPanel
AnchorSideLeft.Side = asrCenter
AnchorSideTop.Control = BottomPanel
Left = 357
Height = 26
Top = 0
Width = 3
Shape = bsSpacer
end
object cbShowGrid_LeftAxis1: TCheckBox
AnchorSideLeft.Control = Bevel1
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Label2
AnchorSideTop.Side = asrCenter
Left = 360
Height = 19
Top = 17
Width = 130
Caption = 'Show left axis #1 grid'
Checked = True
State = cbChecked
TabOrder = 1
OnChange = cbShowGrid_LeftAxis2Change
end
object cbShowGrid_RightAxis: TCheckBox
AnchorSideLeft.Control = cbShowGrid_LeftAxis2
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Label1
AnchorSideTop.Side = asrCenter
Left = 506
Height = 19
Top = -2
Width = 122
BorderSpacing.Left = 16
Caption = 'Show right axis grid'
TabOrder = 2
OnChange = cbShowGrid_LeftAxis2Change
end
object cbShowGrid_BottomAxis: TCheckBox
AnchorSideLeft.Control = cbShowGrid_LeftAxis2
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Label2
AnchorSideTop.Side = asrCenter
Left = 506
Height = 19
Top = 17
Width = 137
BorderSpacing.Left = 16
Caption = 'Show bottom axis grid'
Checked = True
State = cbChecked
TabOrder = 3
OnChange = cbShowGrid_LeftAxis2Change
end
end
object ChartToolset: TChartToolset
Left = 368
Top = 128
object ChartToolsetAxisClickTool1: TAxisClickTool
Shift = [ssLeft]
OnClick = ChartToolsetAxisClickTool1Click
end
object ChartToolsetUserDefinedTool1: TUserDefinedTool
Shift = [ssLeft]
OnAfterMouseDown = ChartToolsetUserDefinedTool1AfterMouseDown
end
end
object RedChartSource: TRandomChartSource
PointsNumber = 11
RandSeed = 108757768
XMax = 1
YMax = 1
Left = 240
Top = 216
end
object RedAxisTransformations: TChartAxisTransformations
Left = 104
Top = 216
object RedAxisTransformationsAutoScaleAxisTransform: TAutoScaleAxisTransform
end
end
object BlueAxisTransformations: TChartAxisTransformations
Left = 104
Top = 39
object BlueAxisTransformationsAutoScaleAxisTransform: TAutoScaleAxisTransform
MaxValue = 2
MinValue = 1
end
end
object BlueChartSource: TRandomChartSource
PointsNumber = 21
RandSeed = 1002808897
XMax = 1
YMax = 2
Left = 240
Top = 39
end
end
|
