1object CleanDirectoryDialog: TCleanDirectoryDialog 2 Left = 307 3 Height = 387 4 Top = 209 5 Width = 583 6 BorderIcons = [biSystemMenu] 7 Caption = 'Clean Directory' 8 ClientHeight = 387 9 ClientWidth = 583 10 OnCreate = CleanDirectoryDialogCreate 11 OnDestroy = FormDestroy 12 Position = poScreenCenter 13 LCLVersion = '1.9.0.0' 14 object DirGroupbox: TGroupBox 15 Left = 6 16 Height = 100 17 Top = 6 18 Width = 571 19 Align = alTop 20 BorderSpacing.Around = 6 21 Caption = 'Directory' 22 ClientHeight = 80 23 ClientWidth = 567 24 TabOrder = 0 25 object DirCombobox: TComboBox 26 AnchorSideRight.Control = DirBrowseButton 27 Left = 6 28 Height = 23 29 Top = 6 30 Width = 525 31 Anchors = [akTop, akLeft, akRight] 32 AutoCompleteText = [cbactSearchAscending] 33 BorderSpacing.Around = 6 34 ItemHeight = 15 35 TabOrder = 0 36 Text = 'DirCombobox' 37 end 38 object SubDirsCheckbox: TCheckBox 39 AnchorSideTop.Control = DirCombobox 40 AnchorSideTop.Side = asrBottom 41 Left = 6 42 Height = 19 43 Top = 35 44 Width = 130 45 BorderSpacing.Around = 6 46 Caption = 'Clean sub directories' 47 TabOrder = 2 48 end 49 object DirBrowseButton: TButton 50 AnchorSideLeft.Control = DirCombobox 51 AnchorSideLeft.Side = asrBottom 52 AnchorSideTop.Control = DirCombobox 53 AnchorSideRight.Control = DirGroupbox 54 AnchorSideRight.Side = asrBottom 55 AnchorSideBottom.Control = DirCombobox 56 AnchorSideBottom.Side = asrBottom 57 Left = 537 58 Height = 23 59 Top = 6 60 Width = 25 61 Anchors = [akTop, akRight, akBottom] 62 BorderSpacing.Right = 5 63 Caption = '...' 64 OnClick = DirBrowseButtonClick 65 TabOrder = 1 66 end 67 end 68 object RemoveGroupbox: TGroupBox 69 Left = 6 70 Height = 100 71 Top = 112 72 Width = 571 73 Align = alTop 74 BorderSpacing.Around = 6 75 Caption = 'Remove files matching filter:' 76 ClientHeight = 80 77 ClientWidth = 567 78 TabOrder = 1 79 object RemoveCombobox: TComboBox 80 Left = 6 81 Height = 23 82 Top = 6 83 Width = 555 84 Align = alTop 85 AutoCompleteText = [cbactSearchAscending] 86 BorderSpacing.Around = 6 87 ItemHeight = 15 88 TabOrder = 0 89 Text = 'RemoveCombobox' 90 end 91 object SimpleSyntaxRemoveCheckbox: TCheckBox 92 Left = 6 93 Height = 19 94 Top = 35 95 Width = 555 96 Align = alTop 97 BorderSpacing.Around = 6 98 Caption = 'Simple syntax (e.g. * instead of .*)' 99 TabOrder = 1 100 end 101 end 102 object KeepGroupbox: TGroupBox 103 Left = 6 104 Height = 131 105 Top = 218 106 Width = 571 107 Align = alClient 108 BorderSpacing.Around = 6 109 Caption = 'Keep files matching filter:' 110 ClientHeight = 111 111 ClientWidth = 567 112 TabOrder = 2 113 object KeepCombobox: TComboBox 114 Left = 6 115 Height = 23 116 Top = 6 117 Width = 555 118 Align = alTop 119 AutoCompleteText = [cbactSearchAscending] 120 BorderSpacing.Around = 6 121 ItemHeight = 15 122 TabOrder = 0 123 Text = 'KeepCombobox' 124 end 125 object SimpleSyntaxKeepCheckbox: TCheckBox 126 Left = 6 127 Height = 19 128 Top = 35 129 Width = 555 130 Align = alTop 131 BorderSpacing.Around = 6 132 Caption = 'Simple syntax (e.g. * instead of .*)' 133 TabOrder = 1 134 end 135 object KeepTextFilesCheckbox: TCheckBox 136 Left = 6 137 Height = 19 138 Top = 60 139 Width = 555 140 Align = alTop 141 BorderSpacing.Around = 6 142 Caption = 'Keep Text Files' 143 TabOrder = 2 144 end 145 end 146 object ButtonPanel: TButtonPanel 147 Left = 6 148 Height = 26 149 Top = 355 150 Width = 571 151 OKButton.Name = 'OKButton' 152 OKButton.DefaultCaption = True 153 HelpButton.Name = 'HelpButton' 154 HelpButton.DefaultCaption = True 155 CloseButton.Name = 'CloseButton' 156 CloseButton.DefaultCaption = True 157 CloseButton.Enabled = False 158 CancelButton.Name = 'CancelButton' 159 CancelButton.DefaultCaption = True 160 TabOrder = 3 161 ShowButtons = [pbOK, pbCancel, pbHelp] 162 ShowBevel = False 163 end 164end 165