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
|
object Form1: TForm1
Left = 404
Height = 550
Top = 180
Width = 571
Caption = 'Form1'
ClientHeight = 550
ClientWidth = 571
OnCreate = FormCreate
Position = poScreenCenter
LCLVersion = '2.1.0.0'
object PageControl1: TPageControl
Left = 0
Height = 550
Top = 0
Width = 571
ActivePage = tsPoints
Align = alClient
TabIndex = 0
TabOrder = 0
object tsPoints: TTabSheet
Caption = 'Points'
ClientHeight = 522
ClientWidth = 563
object chPoints: TChart
Left = 0
Height = 486
Top = 36
Width = 563
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>
Foot.Brush.Color = clBtnFace
Foot.Font.Color = clBlue
Margins.Left = 8
Margins.Top = 8
Margins.Right = 8
Margins.Bottom = 8
Title.Brush.Color = clBtnFace
Title.Font.Color = clBlue
Title.Text.Strings = (
'Drag data points while holding Shift key'
'Change point color by right-click'
'Show hint while holding ctrl key'
)
Title.Visible = True
Toolset = ctPoints
Align = alClient
DoubleBuffered = True
object chPointsLineSeries1: TLineSeries
Marks.Clipped = False
Marks.Format = '%0:.9g'
Marks.Style = smsValue
OnGetMark = chPointsLineSeries1GetMark
Pointer.Brush.Color = clPurple
Pointer.HorizSize = 6
Pointer.Style = psDiamond
Pointer.VertSize = 6
Pointer.Visible = True
ShowPoints = True
end
end
object Panel1: TPanel
Left = 0
Height = 36
Top = 0
Width = 563
Align = alTop
AutoSize = True
BevelOuter = bvNone
ClientHeight = 36
ClientWidth = 563
TabOrder = 1
object cbSorted: TCheckBox
AnchorSideLeft.Control = Panel1
AnchorSideTop.Control = Panel1
AnchorSideTop.Side = asrCenter
Left = 8
Height = 19
Top = 9
Width = 54
BorderSpacing.Around = 8
Caption = 'Sorted'
OnChange = cbSortedChange
TabOrder = 0
end
end
end
object tsBars: TTabSheet
Caption = 'Bars'
ClientHeight = 522
ClientWidth = 563
object chBars: TChart
Left = 0
Height = 486
Top = 36
Width = 563
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>
Foot.Brush.Color = clBtnFace
Foot.Font.Color = clBlue
Title.Brush.Color = clBtnFace
Title.Font.Color = clBlue
Title.Text.Strings = (
'Drag bars while holding SHIFT key down'
)
Title.Visible = True
Toolset = ctBars
Align = alClient
DoubleBuffered = True
object chBarsBarSeries1: TBarSeries
BarBrush.Color = clRed
ToolTargets = [nptPoint, nptYList]
end
end
object Panel2: TPanel
Left = 0
Height = 36
Top = 0
Width = 563
Align = alTop
AutoSize = True
BevelOuter = bvNone
ClientHeight = 36
ClientWidth = 563
TabOrder = 1
object rbDragY: TRadioButton
AnchorSideLeft.Control = Panel2
AnchorSideTop.Control = Panel2
AnchorSideTop.Side = asrCenter
Left = 8
Height = 19
Top = 9
Width = 179
BorderSpacing.Around = 8
Caption = 'Drag y value (grab bars at top)'
Checked = True
OnChange = rbDragYChange
TabOrder = 0
TabStop = True
end
object rbDragX: TRadioButton
AnchorSideLeft.Control = rbDragY
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Panel2
AnchorSideTop.Side = asrCenter
Left = 203
Height = 19
Top = 9
Width = 198
BorderSpacing.Left = 16
Caption = 'Drag x value (grab bars anywhere)'
OnChange = rbDragYChange
TabOrder = 1
end
object cbConstBarWidth: TCheckBox
AnchorSideLeft.Control = rbDragX
AnchorSideLeft.Side = asrBottom
Left = 409
Height = 19
Top = 8
Width = 119
BorderSpacing.Around = 8
Caption = 'constant bar width'
OnChange = cbConstBarWidthChange
TabOrder = 2
end
end
end
end
object ctPoints: TChartToolset
left = 127
top = 157
object ctPointsDataPointDragTool1: TDataPointDragTool
Shift = [ssShift, ssLeft]
GrabRadius = 10
ActiveCursor = crDrag
end
object ctPointsDataPointClickTool1: TDataPointClickTool
Shift = [ssRight]
GrabRadius = 10
ActiveCursor = crHandPoint
OnPointClick = ctPointsDataPointClickTool1PointClick
end
object ctPointsDataPointHintTool1: TDataPointHintTool
Shift = [ssCtrl]
GrabRadius = 10
ActiveCursor = crHandPoint
OnHint = ctPointsDataPointHintTool1Hint
UseDefaultHintText = False
end
end
object ctBars: TChartToolset
left = 127
top = 224
object ctBarsDataPointDragTool1: TDataPointDragTool
Shift = [ssShift, ssLeft]
GrabRadius = 30
ActiveCursor = crSizeNS
Targets = [nptPoint, nptXList, nptYList]
OnDrag = ctBarsDataPointDragTool1Drag
end
end
object RandomChartSource1: TRandomChartSource
PointsNumber = 6
RandSeed = 71866733
XMax = 10
XMin = 0
YMax = 1
YMin = 0
left = 128
top = 104
end
end
|
