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
|
object Form1: TForm1
Left = 329
Height = 300
Top = 190
Width = 578
Caption = 'Form1'
ClientHeight = 300
ClientWidth = 578
OnCreate = FormCreate
Position = poScreenCenter
LCLVersion = '2.1.0.0'
object Chart1: TChart
Left = 0
Height = 268
Top = 32
Width = 303
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>
AxisVisible = False
BackColor = clForm
Foot.Brush.Color = clBtnFace
Foot.Font.Color = clBlue
Frame.Visible = False
Legend.Alignment = laBottomCenter
Legend.ColumnCount = 3
Legend.Visible = True
Margins.Left = 8
Margins.Top = 8
Margins.Right = 8
Margins.Bottom = 0
Title.Brush.Color = clBtnFace
Title.Font.Color = clBlue
Title.Text.Strings = (
'TAChart'
)
Align = alClient
Color = clForm
object Chart1PieSeries1: TPieSeries
Legend.Multiplicity = lmPoint
Marks.Format = '%2:s'
Marks.Style = smsLabel
Exploded = True
Source = DbChartSource1
end
end
object DBGrid1: TDBGrid
Left = 303
Height = 268
Top = 32
Width = 275
Align = alRight
AutoFillColumns = True
Color = clWindow
Columns = <>
DataSource = Datasource1
DefaultDrawing = False
Scrollbars = ssAutoBoth
TabOrder = 1
OnDrawColumnCell = DBGrid1DrawColumnCell
end
object Panel1: TPanel
Left = 0
Height = 32
Top = 0
Width = 578
Align = alTop
AutoSize = True
BevelOuter = bvNone
ClientHeight = 32
ClientWidth = 578
TabOrder = 2
object Label1: TLabel
AnchorSideLeft.Control = Panel1
AnchorSideTop.Control = Panel1
AnchorSideTop.Side = asrCenter
Left = 8
Height = 15
Top = 9
Width = 77
BorderSpacing.Left = 8
Caption = 'Get color from'
ParentColor = False
end
object ComboBox1: TComboBox
AnchorSideLeft.Control = Label1
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Panel1
AnchorSideTop.Side = asrCenter
Left = 93
Height = 23
Top = 5
Width = 179
BorderSpacing.Left = 8
BorderSpacing.Top = 4
BorderSpacing.Right = 4
BorderSpacing.Bottom = 4
ItemHeight = 15
ItemIndex = 0
Items.Strings = (
'data field'
'OnGetItem event'
)
OnChange = ComboBox1Change
Style = csDropDownList
TabOrder = 0
Text = 'data field'
end
end
object MemDataset1: TMemDataset
Active = True
FieldDefs = <
item
Name = 'X'
DataType = ftFloat
end
item
Name = 'Y'
DataType = ftFloat
end
item
Name = 'Txt'
DataType = ftString
Size = 10
end
item
Name = 'Color'
DataType = ftInteger
end>
AfterPost = MemDataset1AfterPost
left = 144
top = 64
end
object Datasource1: TDataSource
DataSet = MemDataset1
left = 144
top = 128
end
object DbChartSource1: TDbChartSource
DataSource = Datasource1
FieldColor = 'Color'
FieldText = 'Txt'
FieldX = 'X'
FieldY = 'Y'
left = 144
top = 192
end
end
|
