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
|
object Form1: TForm1
Left = 404
Height = 550
Top = 180
Width = 539
Caption = 'Form1'
ClientHeight = 550
ClientWidth = 539
OnCreate = FormCreate
Position = poScreenCenter
LCLVersion = '1.1'
object PageControl1: TPageControl
Left = 0
Height = 550
Top = 0
Width = 539
ActivePage = tsPoints
Align = alClient
TabIndex = 0
TabOrder = 0
object tsPoints: TTabSheet
Caption = 'Points'
ClientHeight = 524
ClientWidth = 531
object chPoints: TChart
Left = 0
Height = 490
Top = 34
Width = 531
AutoFocus = True
AxisList = <
item
Minors = <>
Title.LabelFont.Orientation = 900
end
item
Alignment = calBottom
Minors = <>
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
ParentColor = False
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
ShowPoints = True
end
end
object Panel1: TPanel
Left = 0
Height = 34
Top = 0
Width = 531
Align = alTop
ClientHeight = 34
ClientWidth = 531
TabOrder = 1
object cbSorted: TCheckBox
Left = 12
Height = 17
Top = 8
Width = 52
Caption = 'Sorted'
OnChange = cbSortedChange
TabOrder = 0
end
end
end
object tsBars: TTabSheet
Caption = 'Bars'
ClientHeight = 524
ClientWidth = 531
object chBars: TChart
Left = 0
Height = 524
Top = 0
Width = 531
AxisList = <
item
Minors = <>
Title.LabelFont.Orientation = 900
end
item
Alignment = calBottom
Minors = <>
end>
Foot.Brush.Color = clBtnFace
Foot.Font.Color = clBlue
Title.Brush.Color = clBtnFace
Title.Font.Color = clBlue
Title.Text.Strings = (
'TAChart'
)
Toolset = ctBars
Align = alClient
DoubleBuffered = True
ParentColor = False
object chBarsBarSeries1: TBarSeries
BarBrush.Color = clRed
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 = [ssLeft]
OnBeforeKeyDown = ctBarsDataPointDragTool1BeforeKeyDown
GrabRadius = 30
OnDrag = ctBarsDataPointDragTool1Drag
OnDragStart = ctBarsDataPointDragTool1DragStart
end
end
object RandomChartSource1: TRandomChartSource
PointsNumber = 6
RandSeed = 71866733
XMax = 10
XMin = 0
YMax = 1
YMin = 0
left = 128
top = 104
end
end
|
