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
|
object FindRenameIdentifierDialog: TFindRenameIdentifierDialog
Left = 314
Height = 500
Top = 188
Width = 460
AutoSize = True
BorderIcons = [biSystemMenu]
Caption = 'FindRenameIdentifierDialog'
ClientHeight = 500
ClientWidth = 460
Constraints.MinHeight = 450
Constraints.MinWidth = 460
OnClose = FindRenameIdentifierDialogClose
OnCreate = FindRenameIdentifierDialogCreate
OnShow = FormShow
Position = poScreenCenter
LCLVersion = '1.5'
object CurrentGroupBox: TGroupBox
Left = 6
Height = 100
Top = 6
Width = 448
Align = alClient
BorderSpacing.Around = 6
Caption = 'CurrentGroupBox'
ClientHeight = 81
ClientWidth = 444
Constraints.MinHeight = 100
TabOrder = 0
object CurrentListBox: TListBox
Left = 6
Height = 69
Top = 6
Width = 432
Align = alClient
BorderSpacing.Around = 6
ClickOnSelChange = False
ItemHeight = 0
ScrollWidth = 430
TabOrder = 0
TopIndex = -1
end
end
object NewGroupBox: TGroupBox
Left = 6
Height = 118
Top = 83
Width = 448
Align = alBottom
AutoSize = True
BorderSpacing.Around = 6
Caption = 'NewGroupBox'
ClientHeight = 99
ClientWidth = 444
TabOrder = 1
object NewEdit: TEdit
AnchorSideLeft.Control = NewGroupBox
AnchorSideTop.Control = ShowResultCheckBox
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = NewGroupBox
AnchorSideRight.Side = asrBottom
Left = 6
Height = 27
Top = 66
Width = 432
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Around = 6
TabOrder = 2
Text = 'NewEdit'
end
object RenameCheckBox: TCheckBox
Left = 6
Height = 24
Top = 6
Width = 432
Align = alTop
BorderSpacing.Around = 6
Caption = 'RenameCheckBox'
OnChange = RenameCheckBoxChange
TabOrder = 0
end
object ShowResultCheckBox: TCheckBox
AnchorSideLeft.Control = NewGroupBox
AnchorSideTop.Control = RenameCheckBox
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = NewGroupBox
AnchorSideRight.Side = asrBottom
Left = 6
Height = 24
Top = 36
Width = 432
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Around = 6
Caption = 'ShowResultCheckBox'
TabOrder = 1
end
end
object ScopeGroupBox: TGroupBox
Left = 6
Height = 252
Top = 207
Width = 448
Align = alBottom
AutoSize = True
BorderSpacing.Around = 6
Caption = 'ScopeGroupBox'
ClientHeight = 233
ClientWidth = 444
TabOrder = 2
object ScopeCommentsCheckBox: TCheckBox
Left = 6
Height = 24
Top = 203
Width = 432
Align = alTop
BorderSpacing.Around = 6
Caption = 'ScopeCommentsCheckBox'
TabOrder = 2
end
object ScopeRadioGroup: TRadioGroup
Left = 6
Height = 127
Top = 6
Width = 432
Align = alTop
AutoFill = True
AutoSize = True
BorderSpacing.Around = 6
Caption = 'ScopeRadioGroup'
ChildSizing.LeftRightSpacing = 6
ChildSizing.TopBottomSpacing = 6
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
ChildSizing.EnlargeVertical = crsHomogenousChildResize
ChildSizing.ShrinkHorizontal = crsScaleChilds
ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 1
ClientHeight = 108
ClientWidth = 428
Items.Strings = (
'in current unit'
'in main project'
'in project/package owning file'
'in all open projects and packages'
)
TabOrder = 0
end
object ExtraFilesGroupBox: TGroupBox
Left = 6
Height = 58
Top = 139
Width = 432
Align = alTop
AutoSize = True
BorderSpacing.Around = 6
Caption = 'ExtraFilesGroupBox'
ClientHeight = 39
ClientWidth = 428
TabOrder = 1
object ExtraFilesEdit: TEdit
Left = 6
Height = 27
Top = 6
Width = 416
Align = alTop
BorderSpacing.Around = 6
TabOrder = 0
Text = 'ExtraFilesEdit'
end
end
end
object ButtonPanel1: TButtonPanel
Left = 6
Height = 29
Top = 465
Width = 448
OKButton.Name = 'OKButton'
OKButton.DefaultCaption = True
OKButton.OnClick = FindOrRenameButtonClick
HelpButton.Name = 'HelpButton'
HelpButton.DefaultCaption = True
HelpButton.OnClick = HelpButtonClick
CloseButton.Name = 'CloseButton'
CloseButton.DefaultCaption = True
CloseButton.Enabled = False
CancelButton.Name = 'CancelButton'
CancelButton.DefaultCaption = True
TabOrder = 3
ShowButtons = [pbOK, pbCancel, pbHelp]
ShowBevel = False
end
end
|
