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 = 342
Height = 437
Top = 152
Width = 456
Caption = 'Form1'
ClientHeight = 437
ClientWidth = 456
DefaultMonitor = dmDesktop
Position = poScreenCenter
LCLVersion = '0.9.31'
object Chart1: TChart
Left = 0
Height = 377
Top = 0
Width = 456
AxisList = <
item
Title.LabelFont.Orientation = 900
end
item
Alignment = calBottom
end>
Foot.Brush.Color = clBtnFace
Foot.Font.Color = clBlue
Title.Brush.Color = clBtnFace
Title.Font.Color = clBlue
Title.Text.Strings = (
'TAChart'
)
Align = alClient
ParentColor = False
object Chart1LineSeries1: TLineSeries
Marks.Format = '%1:.0g%%'
Marks.Style = smsCustom
ZPosition = 12
AxisIndexX = 1
AxisIndexY = 0
LinePen.Color = clRed
LinePen.Style = psDot
LinePen.Width = 5
Source = RandomChartSource1
end
object Chart1BarSeries1: TBarSeries
ZPosition = 11
AxisIndexX = 1
AxisIndexY = 0
BarBrush.Color = clMoneyGreen
Source = RandomChartSource1
end
object Chart1AreaSeries1: TAreaSeries
AxisIndexX = 1
AxisIndexY = 0
AreaContourPen.Width = 2
AreaLinesPen.Color = clRed
Depth = 10
Source = RandomChartSource1
UseZeroLevel = True
end
end
object Panel1: TPanel
Left = 0
Height = 60
Top = 377
Width = 456
Align = alBottom
ClientHeight = 60
ClientWidth = 456
TabOrder = 1
object cbRotateLine: TCheckBox
Left = 8
Height = 17
Top = 10
Width = 77
Caption = 'Rotate lines'
OnChange = cbRotateLineChange
TabOrder = 0
end
object cbRotateBar: TCheckBox
Left = 104
Height = 17
Top = 10
Width = 77
Caption = 'Rotate bars'
OnChange = cbRotateBarChange
TabOrder = 1
end
object cbNegative: TCheckBox
Left = 292
Height = 17
Top = 10
Width = 97
Caption = 'Negative values'
OnChange = cbNegativeChange
TabOrder = 2
end
object cbRotateArea: TCheckBox
Left = 200
Height = 17
Top = 10
Width = 78
Caption = 'Rotate area'
OnChange = cbRotateAreaChange
TabOrder = 3
end
object cbMarkPositions: TComboBox
Left = 104
Height = 21
Top = 31
Width = 100
ItemHeight = 13
ItemIndex = 0
Items.Strings = (
'Outside'
'Positive'
'Negative'
'Inside'
)
OnChange = cbMarkPositionsChange
Style = csDropDownList
TabOrder = 4
Text = 'Outside'
end
object lblMarkPositions: TLabel
Left = 8
Height = 14
Top = 31
Width = 69
Caption = 'Mark positions'
ParentColor = False
end
end
object RandomChartSource1: TRandomChartSource
PointsNumber = 9
RandSeed = 1376070732
XMax = 8
XMin = 0
YMax = 15
YMin = 7
left = 352
top = 20
end
end
|
