object CleanDirectoryDialog: TCleanDirectoryDialog Left = 307 Height = 387 Top = 209 Width = 583 BorderIcons = [biSystemMenu] Caption = 'Clean Directory' ClientHeight = 387 ClientWidth = 583 OnCreate = CleanDirectoryDialogCreate OnDestroy = FormDestroy Position = poScreenCenter LCLVersion = '1.9.0.0' object DirGroupbox: TGroupBox Left = 6 Height = 100 Top = 6 Width = 571 Align = alTop BorderSpacing.Around = 6 Caption = 'Directory' ClientHeight = 80 ClientWidth = 567 TabOrder = 0 object DirCombobox: TComboBox AnchorSideRight.Control = DirBrowseButton Left = 6 Height = 23 Top = 6 Width = 525 Anchors = [akTop, akLeft, akRight] AutoCompleteText = [cbactSearchAscending] BorderSpacing.Around = 6 ItemHeight = 15 TabOrder = 0 Text = 'DirCombobox' end object SubDirsCheckbox: TCheckBox AnchorSideTop.Control = DirCombobox AnchorSideTop.Side = asrBottom Left = 6 Height = 19 Top = 35 Width = 130 BorderSpacing.Around = 6 Caption = 'Clean sub directories' TabOrder = 2 end object DirBrowseButton: TButton AnchorSideLeft.Control = DirCombobox AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = DirCombobox AnchorSideRight.Control = DirGroupbox AnchorSideRight.Side = asrBottom AnchorSideBottom.Control = DirCombobox AnchorSideBottom.Side = asrBottom Left = 537 Height = 23 Top = 6 Width = 25 Anchors = [akTop, akRight, akBottom] BorderSpacing.Right = 5 Caption = '...' OnClick = DirBrowseButtonClick TabOrder = 1 end end object RemoveGroupbox: TGroupBox Left = 6 Height = 100 Top = 112 Width = 571 Align = alTop BorderSpacing.Around = 6 Caption = 'Remove files matching filter:' ClientHeight = 80 ClientWidth = 567 TabOrder = 1 object RemoveCombobox: TComboBox Left = 6 Height = 23 Top = 6 Width = 555 Align = alTop AutoCompleteText = [cbactSearchAscending] BorderSpacing.Around = 6 ItemHeight = 15 TabOrder = 0 Text = 'RemoveCombobox' end object SimpleSyntaxRemoveCheckbox: TCheckBox Left = 6 Height = 19 Top = 35 Width = 555 Align = alTop BorderSpacing.Around = 6 Caption = 'Simple syntax (e.g. * instead of .*)' TabOrder = 1 end end object KeepGroupbox: TGroupBox Left = 6 Height = 131 Top = 218 Width = 571 Align = alClient BorderSpacing.Around = 6 Caption = 'Keep files matching filter:' ClientHeight = 111 ClientWidth = 567 TabOrder = 2 object KeepCombobox: TComboBox Left = 6 Height = 23 Top = 6 Width = 555 Align = alTop AutoCompleteText = [cbactSearchAscending] BorderSpacing.Around = 6 ItemHeight = 15 TabOrder = 0 Text = 'KeepCombobox' end object SimpleSyntaxKeepCheckbox: TCheckBox Left = 6 Height = 19 Top = 35 Width = 555 Align = alTop BorderSpacing.Around = 6 Caption = 'Simple syntax (e.g. * instead of .*)' TabOrder = 1 end object KeepTextFilesCheckbox: TCheckBox Left = 6 Height = 19 Top = 60 Width = 555 Align = alTop BorderSpacing.Around = 6 Caption = 'Keep Text Files' TabOrder = 2 end end object ButtonPanel: TButtonPanel Left = 6 Height = 26 Top = 355 Width = 571 OKButton.Name = 'OKButton' OKButton.DefaultCaption = True HelpButton.Name = 'HelpButton' HelpButton.DefaultCaption = True CloseButton.Name = 'CloseButton' CloseButton.DefaultCaption = True CloseButton.Enabled = False CancelButton.Name = 'CancelButton' CancelButton.DefaultCaption = True TabOrder = 3 ShowButtons = [pbOK, pbCancel, pbHelp] ShowBevel = False end end