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
|
object Form1: TForm1
Left = 296
Height = 240
Top = 124
Width = 320
Caption = 'Form1'
ClientHeight = 240
ClientWidth = 320
LCLVersion = '0.9.31'
object Chart1: TChart
Left = 0
Height = 240
Top = 0
Width = 320
AxisList = <
item
Title.LabelFont.Orientation = 900
end
item
Alignment = calBottom
end>
Depth = 15
Foot.Brush.Color = clBtnFace
Foot.Font.Color = clBlue
Title.Brush.Color = clBtnFace
Title.Font.Color = clBlue
Title.Text.Strings = (
'TAChart'
)
OnBeforeDrawBackground = Chart1BeforeDrawBackground
OnBeforeDrawBackWall = Chart1BeforeDrawBackWall
Align = alClient
ParentColor = False
object Chart1BarSeries1: TBarSeries
BarBrush.Color = clRed
Source = RandomChartSource1
OnBeforeDrawBar = Chart1BarSeries1BeforeDrawBar
end
end
object RandomChartSource1: TRandomChartSource
PointsNumber = 10
RandSeed = 1499557333
XMax = 13
XMin = 3
YMax = 20
YMin = 2
left = 248
top = 28
end
end
|
