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
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
|
object frFakeFormBackground: TfrFakeFormBackground
Left = 0
Height = 457
Top = 0
Width = 591
Align = alClient
ClientHeight = 457
ClientWidth = 591
Color = clYellow
ParentColor = False
TabOrder = 0
object bBackground: TButton
Left = 0
Height = 457
Top = 0
Width = 591
Align = alClient
TabOrder = 2
Visible = False
end
object bTop: TButton
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Side = asrBottom
Left = 0
Height = 30
Top = 0
Width = 591
Align = alCustom
Anchors = [akTop, akLeft, akRight]
TabOrder = 1
end
object bIcon: TImage
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner
Left = 5
Height = 20
Top = 5
Width = 20
BorderSpacing.Left = 5
BorderSpacing.Top = 5
OnClick = bIconClick
end
object bSystem: TImage
AnchorSideTop.Control = Owner
AnchorSideRight.Control = lRight
Left = 564
Height = 18
Top = 6
Width = 18
Anchors = [akTop, akRight]
BorderSpacing.Top = 6
BorderSpacing.Right = 3
OnClick = bOtherClick
end
object bMaximalize: TImage
AnchorSideTop.Control = Owner
AnchorSideRight.Control = bSystem
Left = 543
Height = 18
Top = 6
Width = 18
Anchors = [akTop, akRight]
BorderSpacing.Top = 6
BorderSpacing.Right = 3
OnClick = bOtherClick
end
object bMinimalize: TImage
AnchorSideTop.Control = Owner
AnchorSideRight.Control = bMaximalize
Left = 522
Height = 18
Top = 6
Width = 18
Anchors = [akTop, akRight]
BorderSpacing.Top = 6
BorderSpacing.Right = 3
OnClick = bOtherClick
end
object bHelp: TImage
AnchorSideTop.Control = Owner
AnchorSideRight.Control = bMinimalize
Left = 501
Height = 18
Top = 6
Width = 18
Anchors = [akTop, akRight]
BorderSpacing.Top = 6
BorderSpacing.Right = 3
OnClick = bOtherClick
end
object bResize: TImage
AnchorSideLeft.Control = bIcon
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = bIcon
Left = 27
Height = 20
Top = 5
Width = 20
BorderSpacing.Left = 2
OnClick = bResizeClick
end
object bOther: TImage
AnchorSideTop.Control = Owner
AnchorSideRight.Control = bHelp
Left = 480
Height = 18
Top = 6
Width = 18
Anchors = [akTop, akRight]
BorderSpacing.Top = 6
BorderSpacing.Right = 3
OnClick = bOtherClick
end
object bFormCaption: TButton
AnchorSideLeft.Control = bResize
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = bIcon
AnchorSideRight.Control = bOther
AnchorSideBottom.Control = bIcon
AnchorSideBottom.Side = asrBottom
Left = 49
Height = 20
Top = 5
Width = 429
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Left = 2
BorderSpacing.Right = 2
OnClick = bFormCaptionClick
TabOrder = 3
end
object eFormCaption: TEdit
AnchorSideLeft.Control = bResize
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = bIcon
AnchorSideRight.Control = bOther
AnchorSideBottom.Control = bIcon
AnchorSideBottom.Side = asrBottom
Left = 50
Height = 20
Top = 5
Width = 427
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Left = 3
BorderSpacing.Right = 3
BorderStyle = bsNone
Color = clSilver
OnEditingDone = eFormCaptionExit
OnExit = eFormCaptionExit
OnKeyDown = eFormCaptionKeyDown
TabOrder = 0
Text = 'eFormCaption'
Visible = False
end
object lRight: TLabel
AnchorSideTop.Control = Owner
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 585
Height = 1
Top = 6
Width = 1
Anchors = [akTop, akRight]
BorderSpacing.Top = 6
BorderSpacing.Right = 5
ParentColor = False
end
object pmFormStyle: TPopupMenu
left = 64
top = 96
object miNone: TMenuItem
Caption = 'bsNone'
OnClick = miNoneClick
end
object miSingle: TMenuItem
Caption = 'bsSingle'
OnClick = miNoneClick
end
object miSizeable: TMenuItem
Caption = 'bsSizeable'
OnClick = miNoneClick
end
object miDialog: TMenuItem
Caption = 'bsDialog'
OnClick = miNoneClick
end
object miToolWindow: TMenuItem
Caption = 'bsToolWindow'
OnClick = miNoneClick
end
object miSizeToolWin: TMenuItem
Caption = 'bsSizeToolWin'
OnClick = miNoneClick
end
end
object pmBorderIcons: TPopupMenu
OnPopup = pmBorderIconsPopup
left = 168
top = 96
object miRemove: TMenuItem
Caption = 'Remove'
OnClick = miRemoveClick
end
object miLine: TMenuItem
Caption = '-'
end
object miAddHelp: TMenuItem
Caption = 'Add Help'
OnClick = miAddHelpClick
end
object miAddMinimize: TMenuItem
Caption = 'Add Minimize'
OnClick = miAddHelpClick
end
object miAddMaximize: TMenuItem
Caption = 'Add Maximize'
OnClick = miAddHelpClick
end
object miAddSystemMenu: TMenuItem
Caption = 'Add System Menu'
OnClick = miAddHelpClick
end
end
end
|
