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
|
object ChartShapeBrushPenMarginsFrame: TChartShapeBrushPenMarginsFrame
Left = 0
Height = 237
Top = 0
Width = 276
ClientHeight = 237
ClientWidth = 276
TabOrder = 0
DesignLeft = 1026
DesignTop = 386
object cmbShape: TComboBox
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Side = asrBottom
Left = 0
Height = 23
Top = 0
Width = 276
Anchors = [akTop, akLeft, akRight]
Enabled = False
ItemHeight = 15
ItemIndex = 0
Items.Strings = (
'Rectangle'
'Ellipse'
'Rounded rectangle'
'Rounded sides'
)
OnChange = cmbShapeChange
Style = csDropDownList
TabOrder = 0
Text = 'Rectangle'
end
object gbMargins: TGroupBox
AnchorSideLeft.Control = gbBackground
AnchorSideTop.Control = gbBorder
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = Owner
AnchorSideBottom.Side = asrBottom
Left = 0
Height = 105
Top = 114
Width = 276
Anchors = [akTop, akLeft, akRight]
AutoSize = True
BorderSpacing.Top = 8
Caption = 'Margins'
ClientHeight = 85
ClientWidth = 272
TabOrder = 1
object seTopMargin: TSpinEdit
AnchorSideLeft.Control = gbMargins
AnchorSideLeft.Side = asrCenter
AnchorSideTop.Control = gbMargins
Left = 111
Height = 23
Top = 8
Width = 50
Alignment = taRightJustify
BorderSpacing.Top = 8
MaxValue = 1000
OnChange = seTopMarginChange
TabOrder = 0
end
object seLeftMargin: TSpinEdit
AnchorSideTop.Control = seTopMargin
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = seTopMargin
Left = 53
Height = 23
Top = 31
Width = 50
Alignment = taRightJustify
Anchors = [akTop, akRight]
BorderSpacing.Left = 32
BorderSpacing.Right = 8
MaxValue = 1000
OnChange = seLeftMarginChange
TabOrder = 1
end
object seRightMargin: TSpinEdit
AnchorSideLeft.Control = seTopMargin
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = seTopMargin
AnchorSideTop.Side = asrBottom
Left = 169
Height = 23
Top = 31
Width = 50
Alignment = taRightJustify
BorderSpacing.Left = 8
BorderSpacing.Right = 32
MaxValue = 1000
OnChange = seRightMarginChange
TabOrder = 2
end
object seBottomMargin: TSpinEdit
AnchorSideLeft.Control = gbMargins
AnchorSideLeft.Side = asrCenter
AnchorSideTop.Control = seLeftMargin
AnchorSideTop.Side = asrBottom
AnchorSideBottom.Control = gbMargins
AnchorSideBottom.Side = asrBottom
Left = 111
Height = 23
Top = 54
Width = 50
Alignment = taRightJustify
BorderSpacing.Bottom = 8
MaxValue = 1000
OnChange = seBottomMarginChange
TabOrder = 3
end
end
object Panel1: TPanel
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = cmbShape
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 0
Height = 59
Top = 31
Width = 276
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 8
BevelOuter = bvNone
TabOrder = 2
end
object gbBackground: TGroupBox
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = cmbShape
AnchorSideTop.Side = asrBottom
AnchorSideBottom.Control = gbBorder
AnchorSideBottom.Side = asrBottom
Left = 0
Height = 75
Top = 31
Width = 97
Anchors = [akTop, akLeft, akBottom]
BorderSpacing.Top = 8
Caption = 'gbBackground'
TabOrder = 3
end
object gbBorder: TGroupBox
AnchorSideLeft.Control = gbBackground
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = cmbShape
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 113
Height = 75
Top = 31
Width = 163
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 16
BorderSpacing.Top = 8
Caption = 'gbBorder'
TabOrder = 4
end
end
|
