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
|
object CodyIdentifiersDlg: TCodyIdentifiersDlg
Left = 250
Height = 324
Top = 250
Width = 552
ActiveControl = FilterEdit
Caption = 'CodyIdentifiersDlg'
ClientHeight = 324
ClientWidth = 552
OnClose = FormClose
OnCreate = FormCreate
OnDestroy = FormDestroy
Position = poScreenCenter
LCLVersion = '1.1'
object ButtonPanel1: TButtonPanel
Left = 6
Height = 36
Top = 282
Width = 540
OKButton.Name = 'OKButton'
OKButton.DefaultCaption = True
HelpButton.Name = 'HelpButton'
HelpButton.DefaultCaption = True
CloseButton.Name = 'CloseButton'
CloseButton.DefaultCaption = True
CancelButton.Name = 'CancelButton'
CancelButton.DefaultCaption = True
TabOrder = 0
ShowButtons = [pbOK, pbCancel, pbHelp]
end
object InfoLabel: TLabel
Left = 8
Height = 15
Top = 8
Width = 51
Caption = 'InfoLabel'
ParentColor = False
WordWrap = True
end
object FilterEdit: TEdit
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = HideOtherProjectsCheckBox
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = StartsSpeedButton
Left = 6
Height = 25
Top = 63
Width = 426
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 6
BorderSpacing.Top = 10
OnChange = FilterEditChange
OnExit = FilterEditExit
OnKeyDown = FilterEditKeyDown
TabOrder = 1
Text = 'FilterEdit'
end
object ItemsListBox: TListBox
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = FilterEdit
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = UnitLabel
Left = 6
Height = 129
Top = 88
Width = 540
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Left = 6
BorderSpacing.Right = 6
BorderSpacing.Bottom = 1
ItemHeight = 0
OnClick = ItemsListBoxClick
OnSelectionChange = ItemsListBoxSelectionChange
PopupMenu = PopupMenu1
ScrollWidth = 538
TabOrder = 2
TopIndex = -1
end
object UnitLabel: TLabel
AnchorSideLeft.Control = InfoLabel
AnchorSideBottom.Control = PackageLabel
Left = 8
Height = 15
Top = 218
Width = 52
Anchors = [akLeft, akBottom]
BorderSpacing.Bottom = 1
Caption = 'UnitLabel'
ParentColor = False
end
object PackageLabel: TLabel
AnchorSideLeft.Control = InfoLabel
AnchorSideBottom.Control = AddToImplementationUsesCheckBox
Left = 8
Height = 15
Top = 234
Width = 74
Anchors = [akLeft, akBottom]
BorderSpacing.Bottom = 1
Caption = 'PackageLabel'
ParentColor = False
end
object HideOtherProjectsCheckBox: TCheckBox
AnchorSideLeft.Control = InfoLabel
AnchorSideTop.Control = InfoLabel
AnchorSideTop.Side = asrBottom
Left = 8
Height = 24
Top = 29
Width = 183
BorderSpacing.Top = 6
Caption = 'HideOtherProjectsCheckBox'
OnChange = HideOtherProjectsCheckBoxChange
TabOrder = 3
end
object AddToImplementationUsesCheckBox: TCheckBox
AnchorSideLeft.Control = PackageLabel
AnchorSideBottom.Control = ButtonPanel1
Left = 8
Height = 24
Top = 252
Width = 227
Anchors = [akLeft, akBottom]
BorderSpacing.Top = 3
BorderSpacing.Bottom = 3
Caption = 'AddToImplementationUsesCheckBox'
ParentShowHint = False
ShowHint = True
TabOrder = 4
end
object StartsSpeedButton: TSpeedButton
AnchorSideTop.Control = FilterEdit
AnchorSideRight.Control = ContainsSpeedButton
AnchorSideBottom.Control = FilterEdit
AnchorSideBottom.Side = asrBottom
Left = 432
Height = 25
Top = 63
Width = 63
Anchors = [akTop, akRight, akBottom]
AutoSize = True
Caption = 'Starts with'
GroupIndex = 1
OnClick = StartsSpeedButtonClick
ShowHint = True
ParentShowHint = False
end
object ContainsSpeedButton: TSpeedButton
AnchorSideTop.Control = FilterEdit
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = FilterEdit
AnchorSideBottom.Side = asrBottom
Left = 495
Height = 25
Top = 63
Width = 51
Anchors = [akTop, akRight, akBottom]
AutoSize = True
BorderSpacing.Right = 6
Caption = 'Contains'
GroupIndex = 1
OnClick = ContainsSpeedButtonClick
ShowHint = True
ParentShowHint = False
end
object PopupMenu1: TPopupMenu
OnPopup = PopupMenu1Popup
left = 177
top = 133
object JumpMenuItem: TMenuItem
Caption = 'JumpMenuItem'
OnClick = JumpButtonClick
end
object UseMenuItem: TMenuItem
Caption = 'UseMenuItem'
OnClick = UseIdentifierClick
end
object DeleteSeparatorMenuItem: TMenuItem
Caption = '-'
end
object DeleteUnitMenuItem: TMenuItem
Caption = 'DeleteUnitMenuItem'
OnClick = DeleteUnitClick
end
object DeletePackageMenuItem: TMenuItem
Caption = 'DeletePackageMenuItem'
OnClick = DeletePackageClick
end
end
end
|
