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
|
object Form1: TForm1
Left = 292
Height = 518
Top = 152
Width = 554
Caption = 'Form1'
ClientHeight = 518
ClientWidth = 554
Position = poScreenCenter
LCLVersion = '1.1'
object Chart1: TChart
Left = 0
Height = 374
Top = 0
Width = 554
AutoFocus = True
AxisList = <
item
Minors = <>
Title.LabelFont.Orientation = 900
end
item
Alignment = calBottom
Minors = <>
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
ParentColor = False
object Chart1FuncSeries1: TFuncSeries
OnCalculate = Chart1FuncSeries1Calculate
Pen.Color = clMaroon
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 = 126
Top = 374
Width = 554
Align = alBottom
ClientHeight = 126
ClientWidth = 554
TabOrder = 1
object rgZoom: TRadioGroup
Left = 1
Height = 124
Top = 1
Width = 255
Align = alLeft
AutoFill = True
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 = 106
ClientWidth = 251
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 = 16
Top = 68
Width = 239
Caption = 'Fixed point'
Checked = True
OnChange = cbFixedPointChange
State = cbChecked
TabOrder = 4
end
object cbAnimate: TCheckBox
Left = 6
Height = 16
Top = 84
Width = 239
Caption = 'Animate'
OnClick = cbAnimateClick
TabOrder = 5
end
end
object rgPan: TRadioGroup
Left = 256
Height = 124
Top = 1
Width = 292
Align = alLeft
AutoFill = True
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 = 106
ClientWidth = 288
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 = 500
Width = 554
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
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
|
