object FindRenameIdentifierDialog: TFindRenameIdentifierDialog Left = 283 Height = 500 Top = 160 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 = '0.9.31' object CurrentGroupBox: TGroupBox Left = 6 Height = 162 Top = 6 Width = 448 Align = alClient BorderSpacing.Around = 6 Caption = 'CurrentGroupBox' ClientHeight = 144 ClientWidth = 444 Constraints.MinHeight = 100 TabOrder = 0 object CurrentListBox: TListBox Left = 6 Height = 132 Top = 6 Width = 432 Align = alClient BorderSpacing.Around = 6 ClickOnSelChange = False ItemHeight = 0 TabOrder = 0 end end object NewGroupBox: TGroupBox Left = 6 Height = 74 Top = 174 Width = 448 Align = alBottom AutoSize = True BorderSpacing.Around = 6 Caption = 'NewGroupBox' ClientHeight = 56 ClientWidth = 444 TabOrder = 1 object NewEdit: TEdit Left = 6 Height = 21 Top = 29 Width = 432 Align = alTop BorderSpacing.Around = 6 TabOrder = 0 Text = 'NewEdit' end object RenameCheckBox: TCheckBox Left = 6 Height = 17 Top = 6 Width = 432 Align = alTop BorderSpacing.Around = 6 Caption = 'RenameCheckBox' OnChange = RenameCheckBoxChange TabOrder = 1 end end object ScopeGroupBox: TGroupBox Left = 6 Height = 208 Top = 254 Width = 448 Align = alBottom AutoSize = True BorderSpacing.Around = 6 Caption = 'ScopeGroupBox' ClientHeight = 190 ClientWidth = 444 TabOrder = 2 object ScopeCommentsCheckBox: TCheckBox Left = 6 Height = 17 Top = 167 Width = 432 Align = alTop BorderSpacing.Around = 6 Caption = 'ScopeCommentsCheckBox' TabOrder = 0 end object ScopeRadioGroup: TRadioGroup Left = 6 Height = 98 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 = 80 ClientWidth = 428 Items.Strings = ( 'in current unit' 'in main project' 'in project/package owning file' 'in all open projects and packages' ) TabOrder = 1 end object ExtraFilesGroupBox: TGroupBox Left = 6 Height = 51 Top = 110 Width = 432 Align = alTop AutoSize = True BorderSpacing.Around = 6 Caption = 'ExtraFilesGroupBox' ClientHeight = 33 ClientWidth = 428 TabOrder = 2 object ExtraFilesEdit: TEdit Left = 6 Height = 21 Top = 6 Width = 416 Align = alTop BorderSpacing.Around = 6 TabOrder = 0 Text = 'ExtraFilesEdit' end end end object ButtonPanel1: TButtonPanel Left = 6 Height = 26 Top = 468 Width = 448 OKButton.Name = 'OKButton' OKButton.DefaultCaption = True OKButton.OnClick = FindOrRenameButtonClick HelpButton.Name = 'HelpButton' HelpButton.DefaultCaption = True HelpButton.Enabled = False CloseButton.Name = 'CloseButton' CloseButton.DefaultCaption = True CloseButton.Enabled = False CancelButton.Name = 'CancelButton' CancelButton.DefaultCaption = True TabOrder = 3 ShowButtons = [pbOK, pbCancel] ShowBevel = False end end