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
|
object Form1: TForm1
Left = 292
Height = 520
Top = 152
Width = 599
AutoSize = True
Caption = 'Form1'
ClientHeight = 520
ClientWidth = 599
Constraints.MinHeight = 520
Position = poScreenCenter
LCLVersion = '2.1.0.0'
object Chart1: TChart
Left = 0
Height = 346
Top = 0
Width = 599
AutoFocus = True
AxisList = <
item
Marks.LabelBrush.Style = bsClear
Minors = <>
Title.LabelFont.Orientation = 900
Title.LabelBrush.Style = bsClear
end
item
Alignment = calBottom
Marks.LabelBrush.Style = bsClear
Minors = <>
Title.LabelBrush.Style = bsClear
end>
Extent.UseXMax = True
Extent.UseXMin = True
Extent.UseYMax = True
Extent.UseYMin = True
Extent.XMax = 3
Extent.XMin = -3
Extent.YMax = 2
Extent.YMin = -2
Foot.Brush.Color = clBtnFace
Foot.Font.Color = clBlue
ReticuleMode = rmCross
Title.Brush.Color = clBtnFace
Title.Font.Color = clBlue
Title.Text.Strings = (
'TAChart'
)
Toolset = ChartToolset1
Align = alClient
DoubleBuffered = True
object Chart1FuncSeries1: TFuncSeries
Pen.Color = clMaroon
OnCalculate = Chart1FuncSeries1Calculate
end
object Chart1BarSeries1: TBarSeries
BarBrush.Color = clRed
Source = RandomChartSource1
UseReticule = True
end
object ChartLine1: TConstantLine
LineStyle = lsVertical
Pen.Color = clLime
Pen.Style = psDash
Pen.Width = 2
Position = -1.5
end
object ChartLine2: TConstantLine
LineStyle = lsVertical
Pen.Color = clFuchsia
Pen.Style = psDash
Pen.Width = 2
Position = 1.5
end
end
object Panel1: TPanel
Left = 0
Height = 156
Top = 346
Width = 599
Align = alBottom
AutoSize = True
ClientHeight = 156
ClientWidth = 599
TabOrder = 1
object rgZoom: TRadioGroup
AnchorSideLeft.Control = Panel1
Left = 9
Height = 146
Top = 1
Width = 252
AutoFill = True
AutoSize = True
BorderSpacing.Left = 8
BorderSpacing.Bottom = 8
Caption = ' Zooming '
ChildSizing.LeftRightSpacing = 6
ChildSizing.TopBottomSpacing = 6
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
ChildSizing.EnlargeVertical = crsHomogenousChildResize
ChildSizing.ShrinkHorizontal = crsScaleChilds
ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 1
ClientHeight = 126
ClientWidth = 248
ItemIndex = 2
Items.Strings = (
'Drag to zoom'
'Drag to zoom proportionally'
'Click to zoom in, Shift+click to zoom out'
'Mouse wheel to zoom'
)
OnClick = rgZoomClick
TabOrder = 0
object cbFixedPoint: TCheckBox
Left = 6
Height = 19
Top = 82
Width = 236
Caption = 'Fixed point'
Checked = True
OnChange = cbFixedPointChange
State = cbChecked
TabOrder = 4
end
object cbAnimate: TCheckBox
Left = 6
Height = 19
Top = 101
Width = 236
Caption = 'Animate'
OnClick = cbAnimateClick
TabOrder = 5
end
end
object rgPan: TRadioGroup
AnchorSideLeft.Control = rgZoom
AnchorSideLeft.Side = asrBottom
Left = 271
Height = 146
Top = 1
Width = 287
AutoFill = True
AutoSize = True
BorderSpacing.Left = 10
BorderSpacing.Right = 8
BorderSpacing.Bottom = 8
Caption = 'Panning'
ChildSizing.LeftRightSpacing = 6
ChildSizing.TopBottomSpacing = 6
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
ChildSizing.EnlargeVertical = crsHomogenousChildResize
ChildSizing.ShrinkHorizontal = crsScaleChilds
ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 1
ClientHeight = 126
ClientWidth = 283
ItemIndex = 0
Items.Strings = (
'Right-drag in any direction'
'Right-drag left/right, Shift+right-drag up/down'
'Right-click near the margin'
'Right-click near the margin and hold'
'Shift+mousewheel up/down'
'Shift+mousewheel right/left'
)
OnClick = rgPanClick
TabOrder = 1
end
end
object Panel2: TPanel
Left = 0
Height = 18
Top = 502
Width = 599
Align = alBottom
Caption = 'Press Ctrl to display crosshairs, Alt-drag to move vertical lines'
TabOrder = 2
end
object ChartToolset1: TChartToolset
left = 124
top = 75
object ChartToolset1ZoomOut: TZoomClickTool
Shift = [ssShift, ssLeft]
AnimationInterval = 100
ZoomFactor = 0.5
end
object ChartToolset1ZoomIn: TZoomClickTool
Shift = [ssLeft]
AnimationInterval = 100
ZoomFactor = 2
end
object ChartToolset1ZoomMouseWheelTool1: TZoomMouseWheelTool
Enabled = False
AnimationInterval = 100
ZoomFactor = 0.75
end
object ChartToolset1ZoomDragTool1: TZoomDragTool
Enabled = False
Shift = [ssLeft]
AnimationInterval = 100
Brush.Style = bsClear
end
object ChartToolset1PanAny: TPanDragTool
Shift = [ssRight]
end
object ChartToolset1PanHor: TPanDragTool
Enabled = False
Shift = [ssRight]
ActiveCursor = crSizeWE
Directions = [pdLeft, pdRight]
end
object ChartToolset1PanVert: TPanDragTool
Enabled = False
Shift = [ssShift, ssRight]
ActiveCursor = crSizeNS
Directions = [pdUp, pdDown]
end
object ChartToolset1PanClickTool1: TPanClickTool
Enabled = False
Shift = [ssRight]
Margins.Left = 30
Margins.Top = 30
Margins.Right = 30
Margins.Bottom = 30
end
object ChartToolset1PanMouseWheelTool1: TPanMouseWheelTool
Enabled = False
Shift = [ssShift]
Step = 20
end
object ChartToolset1DataPointDragTool1: TDataPointDragTool
Shift = [ssAlt, ssLeft]
OnBeforeMouseMove = ChartToolset1DataPointDragTool1BeforeMouseMove
AffectedSeries = '2,3'
end
object ChartToolset1DataPointCrosshairTool1: TDataPointCrosshairTool
Shift = [ssCtrl]
OnAfterKeyUp = ChartToolset1DataPointCrosshairTool1AfterKeyUp
GrabRadius = 200
OnDraw = ChartToolset1DataPointCrosshairTool1Draw
end
end
object RandomChartSource1: TRandomChartSource
PointsNumber = 10
RandSeed = 251061796
XMax = 9
XMin = 0
YMax = 10
YMin = 0
left = 124
top = 152
end
end
|
