1object FindRenameIdentifierDialog: TFindRenameIdentifierDialog 2 Left = 314 3 Height = 500 4 Top = 188 5 Width = 460 6 AutoSize = True 7 BorderIcons = [biSystemMenu] 8 Caption = 'FindRenameIdentifierDialog' 9 ClientHeight = 500 10 ClientWidth = 460 11 Constraints.MinHeight = 450 12 Constraints.MinWidth = 460 13 OnClose = FindRenameIdentifierDialogClose 14 OnCreate = FindRenameIdentifierDialogCreate 15 OnShow = FormShow 16 Position = poScreenCenter 17 LCLVersion = '1.5' 18 object CurrentGroupBox: TGroupBox 19 Left = 6 20 Height = 100 21 Top = 6 22 Width = 448 23 Align = alClient 24 BorderSpacing.Around = 6 25 Caption = 'CurrentGroupBox' 26 ClientHeight = 81 27 ClientWidth = 444 28 Constraints.MinHeight = 100 29 TabOrder = 0 30 object CurrentListBox: TListBox 31 Left = 6 32 Height = 69 33 Top = 6 34 Width = 432 35 Align = alClient 36 BorderSpacing.Around = 6 37 ClickOnSelChange = False 38 ItemHeight = 0 39 ScrollWidth = 430 40 TabOrder = 0 41 TopIndex = -1 42 end 43 end 44 object NewGroupBox: TGroupBox 45 Left = 6 46 Height = 118 47 Top = 83 48 Width = 448 49 Align = alBottom 50 AutoSize = True 51 BorderSpacing.Around = 6 52 Caption = 'NewGroupBox' 53 ClientHeight = 99 54 ClientWidth = 444 55 TabOrder = 1 56 object NewEdit: TEdit 57 AnchorSideLeft.Control = NewGroupBox 58 AnchorSideTop.Control = ShowResultCheckBox 59 AnchorSideTop.Side = asrBottom 60 AnchorSideRight.Control = NewGroupBox 61 AnchorSideRight.Side = asrBottom 62 Left = 6 63 Height = 27 64 Top = 66 65 Width = 432 66 Anchors = [akTop, akLeft, akRight] 67 BorderSpacing.Around = 6 68 TabOrder = 2 69 Text = 'NewEdit' 70 end 71 object RenameCheckBox: TCheckBox 72 Left = 6 73 Height = 24 74 Top = 6 75 Width = 432 76 Align = alTop 77 BorderSpacing.Around = 6 78 Caption = 'RenameCheckBox' 79 OnChange = RenameCheckBoxChange 80 TabOrder = 0 81 end 82 object ShowResultCheckBox: TCheckBox 83 AnchorSideLeft.Control = NewGroupBox 84 AnchorSideTop.Control = RenameCheckBox 85 AnchorSideTop.Side = asrBottom 86 AnchorSideRight.Control = NewGroupBox 87 AnchorSideRight.Side = asrBottom 88 Left = 6 89 Height = 24 90 Top = 36 91 Width = 432 92 Anchors = [akTop, akLeft, akRight] 93 BorderSpacing.Around = 6 94 Caption = 'ShowResultCheckBox' 95 TabOrder = 1 96 end 97 end 98 object ScopeGroupBox: TGroupBox 99 Left = 6 100 Height = 252 101 Top = 207 102 Width = 448 103 Align = alBottom 104 AutoSize = True 105 BorderSpacing.Around = 6 106 Caption = 'ScopeGroupBox' 107 ClientHeight = 233 108 ClientWidth = 444 109 TabOrder = 2 110 object ScopeCommentsCheckBox: TCheckBox 111 Left = 6 112 Height = 24 113 Top = 203 114 Width = 432 115 Align = alTop 116 BorderSpacing.Around = 6 117 Caption = 'ScopeCommentsCheckBox' 118 TabOrder = 2 119 end 120 object ScopeRadioGroup: TRadioGroup 121 Left = 6 122 Height = 127 123 Top = 6 124 Width = 432 125 Align = alTop 126 AutoFill = True 127 AutoSize = True 128 BorderSpacing.Around = 6 129 Caption = 'ScopeRadioGroup' 130 ChildSizing.LeftRightSpacing = 6 131 ChildSizing.TopBottomSpacing = 6 132 ChildSizing.EnlargeHorizontal = crsHomogenousChildResize 133 ChildSizing.EnlargeVertical = crsHomogenousChildResize 134 ChildSizing.ShrinkHorizontal = crsScaleChilds 135 ChildSizing.ShrinkVertical = crsScaleChilds 136 ChildSizing.Layout = cclLeftToRightThenTopToBottom 137 ChildSizing.ControlsPerLine = 1 138 ClientHeight = 108 139 ClientWidth = 428 140 Items.Strings = ( 141 'in current unit' 142 'in main project' 143 'in project/package owning file' 144 'in all open projects and packages' 145 ) 146 TabOrder = 0 147 end 148 object ExtraFilesGroupBox: TGroupBox 149 Left = 6 150 Height = 58 151 Top = 139 152 Width = 432 153 Align = alTop 154 AutoSize = True 155 BorderSpacing.Around = 6 156 Caption = 'ExtraFilesGroupBox' 157 ClientHeight = 39 158 ClientWidth = 428 159 TabOrder = 1 160 object ExtraFilesEdit: TEdit 161 Left = 6 162 Height = 27 163 Top = 6 164 Width = 416 165 Align = alTop 166 BorderSpacing.Around = 6 167 TabOrder = 0 168 Text = 'ExtraFilesEdit' 169 end 170 end 171 end 172 object ButtonPanel1: TButtonPanel 173 Left = 6 174 Height = 29 175 Top = 465 176 Width = 448 177 OKButton.Name = 'OKButton' 178 OKButton.DefaultCaption = True 179 OKButton.OnClick = FindOrRenameButtonClick 180 HelpButton.Name = 'HelpButton' 181 HelpButton.DefaultCaption = True 182 HelpButton.OnClick = HelpButtonClick 183 CloseButton.Name = 'CloseButton' 184 CloseButton.DefaultCaption = True 185 CloseButton.Enabled = False 186 CancelButton.Name = 'CancelButton' 187 CancelButton.DefaultCaption = True 188 TabOrder = 3 189 ShowButtons = [pbOK, pbCancel, pbHelp] 190 ShowBevel = False 191 end 192end 193