1object CodyIdentifiersDlg: TCodyIdentifiersDlg 2 Left = 622 3 Height = 404 4 Top = 204 5 Width = 555 6 ActiveControl = FilterEdit 7 Caption = 'CodyIdentifiersDlg' 8 ClientHeight = 404 9 ClientWidth = 555 10 OnClose = FormClose 11 OnCreate = FormCreate 12 OnDestroy = FormDestroy 13 Position = poScreenCenter 14 LCLVersion = '1.9.0.0' 15 object ButtonPanel1: TButtonPanel 16 Left = 6 17 Height = 30 18 Top = 368 19 Width = 543 20 OKButton.Name = 'OKButton' 21 OKButton.DefaultCaption = True 22 HelpButton.Name = 'HelpButton' 23 HelpButton.DefaultCaption = True 24 CloseButton.Name = 'CloseButton' 25 CloseButton.DefaultCaption = True 26 CancelButton.Name = 'CancelButton' 27 CancelButton.DefaultCaption = True 28 TabOrder = 4 29 ShowButtons = [pbOK, pbCancel, pbHelp] 30 end 31 object InfoLabel: TLabel 32 Left = 8 33 Height = 16 34 Top = 8 35 Width = 58 36 Caption = 'InfoLabel' 37 ParentColor = False 38 WordWrap = True 39 end 40 object FilterEdit: TEdit 41 AnchorSideLeft.Control = Owner 42 AnchorSideTop.Control = HideOtherProjectsCheckBox 43 AnchorSideTop.Side = asrBottom 44 AnchorSideRight.Control = StartsRadioButton 45 Left = 6 46 Height = 22 47 Top = 58 48 Width = 371 49 Anchors = [akTop, akLeft, akRight] 50 BorderSpacing.Left = 6 51 BorderSpacing.Top = 10 52 OnChange = FilterEditChange 53 OnKeyDown = FilterEditKeyDown 54 TabOrder = 1 55 end 56 object ItemsListBox: TListBox 57 AnchorSideLeft.Control = Owner 58 AnchorSideTop.Control = FilterEdit 59 AnchorSideTop.Side = asrBottom 60 AnchorSideRight.Control = Owner 61 AnchorSideRight.Side = asrBottom 62 AnchorSideBottom.Control = UnitLabel 63 Left = 6 64 Height = 227 65 Top = 80 66 Width = 543 67 Anchors = [akTop, akLeft, akRight, akBottom] 68 BorderSpacing.Left = 6 69 BorderSpacing.Right = 6 70 BorderSpacing.Bottom = 1 71 ItemHeight = 0 72 OnClick = ItemsListBoxClick 73 OnSelectionChange = ItemsListBoxSelectionChange 74 PopupMenu = PopupMenu1 75 TabOrder = 2 76 end 77 object UnitLabel: TLabel 78 AnchorSideLeft.Control = InfoLabel 79 AnchorSideBottom.Control = PackageLabel 80 Left = 8 81 Height = 16 82 Top = 308 83 Width = 59 84 Anchors = [akLeft, akBottom] 85 BorderSpacing.Bottom = 1 86 Caption = 'UnitLabel' 87 ParentColor = False 88 end 89 object PackageLabel: TLabel 90 AnchorSideLeft.Control = InfoLabel 91 AnchorSideBottom.Control = AddToImplementationUsesCheckBox 92 Left = 8 93 Height = 16 94 Top = 325 95 Width = 84 96 Anchors = [akLeft, akBottom] 97 BorderSpacing.Bottom = 1 98 Caption = 'PackageLabel' 99 ParentColor = False 100 end 101 object HideOtherProjectsCheckBox: TCheckBox 102 AnchorSideLeft.Control = InfoLabel 103 AnchorSideTop.Control = InfoLabel 104 AnchorSideTop.Side = asrBottom 105 Left = 8 106 Height = 18 107 Top = 30 108 Width = 193 109 BorderSpacing.Top = 6 110 Caption = 'HideOtherProjectsCheckBox' 111 OnChange = HideOtherProjectsCheckBoxChange 112 TabOrder = 0 113 end 114 object AddToImplementationUsesCheckBox: TCheckBox 115 AnchorSideLeft.Control = PackageLabel 116 AnchorSideBottom.Control = ButtonPanel1 117 Left = 8 118 Height = 18 119 Top = 344 120 Width = 244 121 Anchors = [akLeft, akBottom] 122 BorderSpacing.Top = 3 123 BorderSpacing.Bottom = 3 124 Caption = 'AddToImplementationUsesCheckBox' 125 ParentShowHint = False 126 ShowHint = True 127 TabOrder = 3 128 end 129 object StartsRadioButton: TRadioButton 130 AnchorSideTop.Control = FilterEdit 131 AnchorSideRight.Control = ContainsRadioButton 132 AnchorSideBottom.Control = FilterEdit 133 AnchorSideBottom.Side = asrBottom 134 Left = 383 135 Height = 22 136 Top = 58 137 Width = 86 138 Anchors = [akTop, akRight, akBottom] 139 BorderSpacing.Left = 6 140 Caption = 'Starts with' 141 OnClick = StartsRadioButtonClick 142 ParentShowHint = False 143 ShowHint = True 144 TabOrder = 5 145 end 146 object ContainsRadioButton: TRadioButton 147 AnchorSideTop.Control = FilterEdit 148 AnchorSideRight.Control = Owner 149 AnchorSideRight.Side = asrBottom 150 AnchorSideBottom.Control = FilterEdit 151 AnchorSideBottom.Side = asrBottom 152 Left = 475 153 Height = 22 154 Top = 58 155 Width = 74 156 Anchors = [akTop, akRight, akBottom] 157 BorderSpacing.Left = 6 158 BorderSpacing.Right = 6 159 Caption = 'Contains' 160 OnClick = ContainsRadioButtonClick 161 ParentShowHint = False 162 ShowHint = True 163 TabOrder = 6 164 end 165 object PopupMenu1: TPopupMenu 166 OnPopup = PopupMenu1Popup 167 left = 177 168 top = 133 169 object JumpMenuItem: TMenuItem 170 Caption = 'JumpMenuItem' 171 OnClick = JumpButtonClick 172 end 173 object UseMenuItem: TMenuItem 174 Caption = 'UseMenuItem' 175 OnClick = UseIdentifierClick 176 end 177 object DeleteSeparatorMenuItem: TMenuItem 178 Caption = '-' 179 end 180 object DeleteUnitMenuItem: TMenuItem 181 Caption = 'DeleteUnitMenuItem' 182 OnClick = DeleteUnitClick 183 end 184 object DeletePackageMenuItem: TMenuItem 185 Caption = 'DeletePackageMenuItem' 186 OnClick = DeletePackageClick 187 end 188 end 189end 190