object CleanDirectoryDialog: TCleanDirectoryDialog Left = 307 Height = 340 Top = 209 Width = 450 HorzScrollBar.Page = 449 VertScrollBar.Page = 339 ActiveControl = DirCombobox AutoSize = True BorderIcons = [biSystemMenu] Caption = 'Clean Directory' ClientHeight = 340 ClientWidth = 450 OnCreate = CleanDirectoryDialogCreate Position = poScreenCenter object DirGroupbox: TGroupBox Left = 6 Height = 78 Top = 6 Width = 438 Align = alTop AutoSize = True BorderSpacing.Around = 6 Caption = 'Directory' ClientHeight = 59 ClientWidth = 434 ParentCtl3D = False TabOrder = 0 object DirCombobox: TComboBox AnchorSideRight.Control = DirBrowseButton Height = 25 Width = 400 Anchors = [akTop, akLeft, akRight] AutoCompleteText = [cbactSearchAscending] BorderSpacing.Around = 6 MaxLength = 0 ParentCtl3D = False TabOrder = 0 Text = 'DirCombobox' end object SubDirsCheckbox: TCheckBox AnchorSideTop.Control = DirCombobox AnchorSideTop.Side = asrBottom Left = 6 Height = 22 Top = 31 Width = 422 Align = alBottom Anchors = [akTop, akLeft, akRight, akBottom] BorderSpacing.Around = 6 Caption = 'Clean sub directories' TabOrder = 1 end object DirBrowseButton: TButton AnchorSideLeft.Control = DirCombobox AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = DirCombobox AnchorSideTop.Side = asrCenter AnchorSideRight.Control = DirGroupbox AnchorSideRight.Side = asrBottom Left = 406 Height = 21 Top = 2 Width = 23 Anchors = [akTop, akRight] BorderSpacing.Right = 5 Caption = '...' OnClick = DirBrowseButtonClick TabOrder = 2 end end object RemoveGroupbox: TGroupBox Left = 6 Height = 84 Top = 90 Width = 438 Align = alTop AutoSize = True BorderSpacing.Around = 6 Caption = 'Remove files matching filter:' ClientHeight = 65 ClientWidth = 434 ParentCtl3D = False TabOrder = 1 object RemoveCombobox: TComboBox Left = 6 Height = 25 Top = 6 Width = 422 Align = alTop AutoCompleteText = [cbactSearchAscending] BorderSpacing.Around = 6 MaxLength = 0 ParentCtl3D = False TabOrder = 0 Text = 'RemoveCombobox' end object SimpleSyntaxRemoveCheckbox: TCheckBox Left = 6 Height = 22 Top = 37 Width = 422 Align = alTop BorderSpacing.Around = 6 Caption = 'Simple syntax (e.g. * instead of .*)' TabOrder = 1 end end object KeepGroupbox: TGroupBox Left = 6 Height = 112 Top = 180 Width = 438 Align = alTop AutoSize = True BorderSpacing.Around = 6 Caption = 'Keep files matching filter:' ClientHeight = 93 ClientWidth = 434 ParentCtl3D = False TabOrder = 2 object KeepCombobox: TComboBox Left = 6 Height = 25 Top = 6 Width = 422 Align = alTop AutoCompleteText = [cbactSearchAscending] BorderSpacing.Around = 6 MaxLength = 0 ParentCtl3D = False TabOrder = 0 Text = 'KeepCombobox' end object SimpleSyntaxKeepCheckbox: TCheckBox Left = 6 Height = 22 Top = 37 Width = 422 Align = alTop BorderSpacing.Around = 6 Caption = 'Simple syntax (e.g. * instead of .*)' TabOrder = 1 end object KeepTextFilesCheckbox: TCheckBox Left = 6 Height = 22 Top = 65 Width = 422 Align = alTop BorderSpacing.Around = 6 Caption = 'Keep Text Files' TabOrder = 2 end end object OkButton: TBitBtn AnchorSideTop.Control = KeepGroupbox AnchorSideTop.Side = asrBottom AnchorSideRight.Control = CancelButton AnchorSideBottom.Control = Owner AnchorSideBottom.Side = asrBottom Left = 285 Height = 36 Top = 298 Width = 75 Anchors = [akTop, akRight] AutoSize = True BorderSpacing.Around = 6 Caption = '&OK' Constraints.MinHeight = 25 Constraints.MinWidth = 75 Default = True Kind = bkOK ModalResult = 1 NumGlyphs = 0 OnClick = OkButtonClick TabOrder = 3 end object CancelButton: TBitBtn AnchorSideTop.Control = KeepGroupbox AnchorSideTop.Side = asrBottom AnchorSideRight.Control = Owner AnchorSideRight.Side = asrBottom AnchorSideBottom.Control = Owner AnchorSideBottom.Side = asrBottom Left = 366 Height = 32 Top = 298 Width = 78 Anchors = [akTop, akRight] AutoSize = True BorderSpacing.Around = 6 Cancel = True Caption = 'Cancel' Constraints.MinHeight = 25 Constraints.MinWidth = 75 Kind = bkCancel ModalResult = 2 NumGlyphs = 0 TabOrder = 4 end object HelpButton: TBitBtn AnchorSideLeft.Control = Owner AnchorSideTop.Control = KeepGroupbox AnchorSideTop.Side = asrBottom AnchorSideBottom.Control = Owner AnchorSideBottom.Side = asrBottom Left = 6 Height = 36 Top = 298 Width = 75 AutoSize = True BorderSpacing.Around = 6 Caption = '&Help' Constraints.MinHeight = 25 Constraints.MinWidth = 75 Kind = bkHelp NumGlyphs = 0 OnClick = HelpButtonClick TabOrder = 5 end end