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
|
object Form1: TForm1
Left = 280
Height = 334
Top = 130
Width = 725
Caption = 'Form1'
ClientHeight = 334
ClientWidth = 725
LCLVersion = '2.3.0.0'
object Chart1: TChart
Left = 0
Height = 296
Top = 0
Width = 601
AxisList = <
item
Grid.Color = clSilver
Grid.Style = psSolid
Marks.LabelBrush.Style = bsClear
Minors = <>
Title.LabelFont.Orientation = 900
Title.LabelBrush.Style = bsClear
end
item
Grid.Visible = False
Alignment = calBottom
Marks.LabelBrush.Style = bsClear
Minors = <>
Title.LabelBrush.Style = bsClear
end>
BackColor = clWhite
Foot.Brush.Color = clBtnFace
Foot.Font.Color = clBlue
Legend.Visible = True
Title.Brush.Color = clBtnFace
Title.Font.Color = clBlue
Title.Text.Strings = (
'TAChart'
)
Align = alClient
object Chart1BarSeries1: TBarSeries
Legend.Multiplicity = lmStyle
BarBrush.Color = clRed
Source = CalculatedChartSource1
Styles = ChartStyles1
end
end
object Panel1: TPanel
Left = 0
Height = 38
Top = 296
Width = 725
Align = alBottom
BevelOuter = bvNone
ClientHeight = 38
ClientWidth = 725
TabOrder = 1
object BtnAddBar: TButton
AnchorSideLeft.Control = Panel1
AnchorSideTop.Control = Panel1
AnchorSideTop.Side = asrCenter
Left = 8
Height = 25
Top = 7
Width = 68
AutoSize = True
BorderSpacing.Left = 8
Caption = 'Add bar'
OnClick = BtnAddBarClick
TabOrder = 0
end
object BtnAddLevel: TButton
AnchorSideLeft.Control = BtnAddBar
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Panel1
AnchorSideTop.Side = asrCenter
Left = 84
Height = 25
Top = 7
Width = 75
AutoSize = True
BorderSpacing.Left = 8
Caption = 'Add level'
OnClick = BtnAddLevelClick
TabOrder = 1
end
object CbPercent: TCheckBox
AnchorSideLeft.Control = BtnAddLevel
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Panel1
AnchorSideTop.Side = asrCenter
Left = 167
Height = 19
Top = 10
Width = 48
BorderSpacing.Left = 8
Caption = '100%'
OnChange = CbPercentChange
TabOrder = 2
end
object BtnDelete: TButton
AnchorSideTop.Control = Panel1
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = Panel1
AnchorSideRight.Side = asrBottom
Left = 612
Height = 25
Top = 7
Width = 105
Anchors = [akTop, akRight]
AutoSize = True
BorderSpacing.Right = 8
Caption = 'Delete selected'
Enabled = False
OnClick = BtnDeleteClick
TabOrder = 3
end
end
object ListBox1: TListBox
Left = 609
Height = 280
Top = 8
Width = 108
Align = alRight
BorderSpacing.Around = 8
ItemHeight = 0
TabOrder = 2
end
object ListChartSource1: TListChartSource
Left = 117
Top = 57
end
object CalculatedChartSource1: TCalculatedChartSource
Origin = ListChartSource1
Left = 116
Top = 112
end
object ChartStyles1: TChartStyles
Styles = <>
Left = 268
Top = 58
end
end
|
