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
|
object ChartFontFrame: TChartFontFrame
Left = 0
Height = 84
Top = 0
Width = 301
ClientHeight = 84
ClientWidth = 301
TabOrder = 0
DesignLeft = 332
DesignTop = 128
object cmbFontName: TComboBox
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 0
Height = 23
Top = 0
Width = 301
Anchors = [akTop, akLeft, akRight]
ItemHeight = 15
OnChange = cmbFontNameChange
Style = csDropDownList
TabOrder = 0
end
object cbBold: TCheckBox
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Panel2
AnchorSideTop.Side = asrBottom
Left = 0
Height = 19
Top = 60
Width = 45
BorderSpacing.Top = 6
BorderSpacing.Bottom = 8
Caption = 'Bold'
Font.Style = [fsBold]
OnChange = cbBoldChange
ParentFont = False
TabOrder = 2
end
object cbItalic: TCheckBox
AnchorSideLeft.Control = cbBold
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = cbBold
Left = 53
Height = 19
Top = 60
Width = 45
BorderSpacing.Left = 8
Caption = 'Italic'
Font.Style = [fsItalic]
OnChange = cbItalicChange
ParentFont = False
TabOrder = 3
end
object cbUnderline: TCheckBox
AnchorSideLeft.Control = cbItalic
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = cbBold
AnchorSideRight.Side = asrBottom
Left = 106
Height = 19
Top = 60
Width = 78
BorderSpacing.Left = 8
BorderSpacing.Right = 6
Caption = 'Underlined'
Font.Style = [fsUnderline]
OnChange = cbUnderlineChange
ParentFont = False
TabOrder = 4
end
object Panel2: TPanel
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = cmbFontName
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 0
Height = 31
Top = 23
Width = 301
Anchors = [akTop, akLeft, akRight]
BevelOuter = bvNone
ChildSizing.EnlargeHorizontal = crsHomogenousSpaceResize
ChildSizing.ShrinkHorizontal = crsHomogenousSpaceResize
ChildSizing.ControlsPerLine = 3
ClientHeight = 31
ClientWidth = 301
TabOrder = 1
object cmbFontSize: TComboBox
AnchorSideLeft.Control = Panel2
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = Panel1
Left = 0
Height = 23
Top = 6
Width = 144
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Right = 16
ItemHeight = 15
OnChange = cmbFontSizeChange
Style = csDropDownList
TabOrder = 0
end
object Panel1: TPanel
AnchorSideRight.Control = cbFontColor
Left = 160
Height = 23
Top = 6
Width = 97
Anchors = [akTop, akRight]
AutoSize = True
BorderSpacing.Right = 16
BevelOuter = bvNone
ClientHeight = 23
ClientWidth = 97
TabOrder = 1
object lblOrientation: TLabel
AnchorSideLeft.Control = Panel1
AnchorSideTop.Control = seOrientation
AnchorSideTop.Side = asrCenter
Left = 0
Height = 15
Top = 4
Width = 31
Caption = 'Angle'
FocusControl = seOrientation
end
object seOrientation: TSpinEdit
AnchorSideLeft.Control = lblOrientation
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Panel1
AnchorSideTop.Side = asrCenter
Left = 39
Height = 23
Top = 0
Width = 58
BorderSpacing.Left = 8
MaxValue = 360
MinValue = -360
OnChange = seOrientationChange
TabOrder = 0
end
end
object cbFontColor: TColorButton
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Panel2
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Side = asrBottom
Left = 273
Height = 23
Top = 6
Width = 28
Anchors = [akTop, akRight]
BorderSpacing.Top = 6
BorderWidth = 2
ButtonColorSize = 16
ButtonColor = clBlack
Margin = 2
OnColorChanged = cbFontColorColorChanged
end
end
end
|
