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
|
object MainForm: TMainForm
Left = 326
Height = 515
Top = 127
Width = 795
Caption = 'MainForm'
ClientHeight = 515
ClientWidth = 795
OnCreate = FormCreate
LCLVersion = '2.3.0.0'
object SettingsPanel: TPanel
Left = 6
Height = 23
Top = 486
Width = 783
Align = alBottom
AutoSize = True
BorderSpacing.Around = 6
BevelOuter = bvNone
ClientHeight = 23
ClientWidth = 783
TabOrder = 0
object cbSortBy: TComboBox
AnchorSideLeft.Control = Label1
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = SettingsPanel
Left = 45
Height = 23
Top = 0
Width = 208
BorderSpacing.Left = 8
ItemHeight = 15
ItemIndex = 0
Items.Strings = (
'original order'
'Population (descending)'
'Population (ascending)'
'Name'
)
OnChange = cbSortByChange
Style = csDropDownList
TabOrder = 0
Text = 'original order'
end
object Label1: TLabel
AnchorSideLeft.Control = SettingsPanel
AnchorSideTop.Control = cbSortBy
AnchorSideTop.Side = asrCenter
Left = 0
Height = 15
Top = 4
Width = 37
Caption = 'Sort by'
end
object cbXCount0: TCheckBox
AnchorSideLeft.Control = cbSortBy
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = cbSortBy
AnchorSideTop.Side = asrCenter
Left = 277
Height = 19
Top = 2
Width = 80
BorderSpacing.Left = 24
Caption = 'XCount = 0'
Checked = True
OnChange = cbXCount0Change
State = cbChecked
TabOrder = 1
end
end
object TabControl: TTabControl
Left = 0
Height = 480
Top = 0
Width = 795
OnChange = TabControlChange
Align = alClient
TabOrder = 1
object Chart: TChart
Left = 2
Height = 475
Top = 3
Width = 527
AxisList = <
item
Grid.Color = 15066597
Grid.Style = psSolid
Marks.LabelBrush.Style = bsClear
Marks.Range.UseMin = True
Minors = <>
Title.LabelFont.Orientation = 900
Title.LabelFont.Style = [fsBold]
Title.Visible = True
Title.Caption = 'Population (in millions)'
Title.LabelBrush.Style = bsClear
end
item
Grid.Visible = False
Intervals.MaxLength = 80
Intervals.MinLength = 30
Alignment = calBottom
Marks.LabelBrush.Style = bsClear
Minors = <>
Title.LabelFont.Style = [fsBold]
Title.Visible = True
Title.Caption = 'Continent'
Title.LabelBrush.Style = bsClear
end>
BackColor = clWhite
Foot.Alignment = taLeftJustify
Foot.Brush.Color = clBtnFace
Foot.Brush.Style = bsClear
Foot.Font.Color = clGray
Foot.Font.Style = [fsItalic]
Foot.Text.Strings = (
'Source: https://en.wikipedia.org/wiki/World_population'
)
Foot.Visible = True
Frame.Color = clGray
Margins.Left = 32
Margins.Right = 32
Title.Brush.Color = clBtnFace
Title.Font.Color = clBlue
Title.Text.Strings = (
'TAChart'
)
Toolset = ChartToolset
Align = alClient
Color = clNone
end
object Grid: TStringGrid
Left = 529
Height = 475
Top = 3
Width = 264
Align = alRight
ColCount = 4
TabOrder = 2
OnPrepareCanvas = GridPrepareCanvas
ColWidths = (
34
37
64
124
)
Cells = (
3
1
0
'x'
2
0
'y'
3
0
'Text'
)
end
end
object ListChartSource: TListChartSource
Left = 192
Top = 112
end
object ChartToolset: TChartToolset
Left = 192
Top = 184
object ZoomDragTool: TZoomDragTool
Shift = [ssLeft]
Brush.Style = bsClear
end
object PanDragTool: TPanDragTool
Shift = [ssRight]
end
object DataPointClickTool: TDataPointClickTool
Shift = [ssCtrl, ssLeft]
OnPointClick = DataPointClickToolPointClick
end
end
end
|
