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
|
object Form1: TForm1
Left = 355
Height = 255
Top = 160
Width = 400
Caption = 'Stock Icons Tester'
ClientHeight = 255
ClientWidth = 400
OnCreate = FormCreate
LCLVersion = '0.9.27'
object Label1: TLabel
AnchorSideLeft.Control = Owner
AnchorSideLeft.Side = asrCenter
AnchorSideTop.Control = Owner
Left = 200
Height = 14
Top = 0
Width = 1
ParentColor = False
end
object GroupBox1: TGroupBox
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner
AnchorSideRight.Control = Label1
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = BitBtn1
Left = 6
Height = 211
Top = 6
Width = 192
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Left = 6
BorderSpacing.Top = 6
BorderSpacing.Right = 3
Caption = 'Dialog Icons:'
ClientHeight = 193
ClientWidth = 188
TabOrder = 0
object DialogImage: TImage
AnchorSideLeft.Control = GroupBox1
AnchorSideTop.Control = DialogCaptionLbl
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = GroupBox1
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = DialogTrack
Left = 6
Height = 114
Top = 26
Width = 176
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Around = 6
Center = True
end
object DialogCaptionLbl: TLabel
AnchorSideLeft.Control = GroupBox1
AnchorSideTop.Control = GroupBox1
AnchorSideRight.Control = GroupBox1
AnchorSideRight.Side = asrBottom
Left = 6
Height = 14
Top = 6
Width = 176
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 6
BorderSpacing.Top = 6
BorderSpacing.Right = 6
Caption = 'DialogCaptionLbl'
ParentColor = False
end
object DialogTrack: TTrackBar
AnchorSideLeft.Control = GroupBox1
AnchorSideRight.Control = GroupBox1
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = GroupBox1
AnchorSideBottom.Side = asrBottom
Left = 6
Height = 41
Top = 146
Width = 176
OnChange = DialogTrackChange
Position = 0
Anchors = [akLeft, akRight, akBottom]
BorderSpacing.Around = 6
TabOrder = 0
end
end
object GroupBox2: TGroupBox
AnchorSideLeft.Control = Label1
AnchorSideTop.Control = Owner
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = GroupBox1
AnchorSideBottom.Side = asrBottom
Left = 203
Height = 211
Top = 6
Width = 191
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Left = 3
BorderSpacing.Top = 6
BorderSpacing.Right = 6
Caption = 'Button Icons:'
ClientHeight = 193
ClientWidth = 187
TabOrder = 1
object ButtonImage: TImage
AnchorSideLeft.Control = GroupBox2
AnchorSideTop.Control = ButtonCaptionLbl
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = GroupBox2
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = ButtonTrack
Left = 6
Height = 114
Top = 26
Width = 175
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Around = 6
Center = True
end
object ButtonCaptionLbl: TLabel
AnchorSideLeft.Control = GroupBox2
AnchorSideTop.Control = GroupBox2
AnchorSideRight.Control = GroupBox2
AnchorSideRight.Side = asrBottom
Left = 6
Height = 14
Top = 6
Width = 175
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 6
BorderSpacing.Top = 6
BorderSpacing.Right = 6
Caption = 'ButtonCaptionLbl'
ParentColor = False
end
object ButtonTrack: TTrackBar
AnchorSideLeft.Control = GroupBox2
AnchorSideRight.Control = GroupBox2
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = GroupBox2
AnchorSideBottom.Side = asrBottom
Left = 6
Height = 41
Top = 146
Width = 175
OnChange = ButtonTrackChange
Position = 0
Anchors = [akLeft, akRight, akBottom]
BorderSpacing.Around = 6
TabOrder = 0
end
end
object BitBtn1: TBitBtn
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = Owner
AnchorSideBottom.Side = asrBottom
Left = 319
Height = 26
Top = 223
Width = 75
Anchors = [akRight, akBottom]
AutoSize = True
BorderSpacing.Around = 6
Caption = '&Close'
Constraints.MinWidth = 75
Kind = bkClose
TabOrder = 2
end
end
|
