object Form2: TForm2 Left = 395 Top = 366 BorderIcons = [] BorderStyle = bsToolWindow Caption = 'CleanUp' ClientHeight = 179 ClientWidth = 385 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] FormStyle = fsStayOnTop Position = poScreenCenter OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object Label2: TLabel Left = 48 Top = 80 Width = 114 Height = 13 Caption = 'File or File Specification:' end object Label1: TLabel Left = 48 Top = 8 Width = 44 Height = 13 Caption = 'Location:' end object ExplorerButton2: TExplorerButton Left = 216 Top = 22 Width = 25 Height = 25 Hint = 'Browse|Browse for location' AllowAllUp = True Bitmap.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00222222222222 22222222222222222222000000000002222200333333333022220B0333333333 02220FB03333333330220BFB0333333333020FBFB000000000000BFBFBFBFB02 22220FBFBFBFBF0222220BFB0000000222222000222222220002222222222222 2002222222220222020222222222200022222222222222222222} Caption = 'ExplorerButton' Layout = blBitmapLeft Options = [boIconOnly, boPopupMark] OnClick = ExplorerButton2Click ParentShowHint = False ShowHint = True end object ExplorerButton1: TExplorerButton Left = 216 Top = 94 Width = 25 Height = 25 Hint = 'Browse|Browse for file' AllowAllUp = True Bitmap.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00222222222222 22222222222222222222000000000002222200333333333022220B0333333333 02220FB03333333330220BFB0333333333020FBFB000000000000BFBFBFBFB02 22220FBFBFBFBF0222220BFB0000000222222000222222220002222222222222 2002222222220222020222222222200022222222222222222222} Caption = 'ExplorerButton' Layout = blBitmapLeft Options = [boIconOnly, boPopupMark] OnClick = ExplorerButton1Click ParentShowHint = False ShowHint = True end object Label3: TLabel Left = 256 Top = 8 Width = 41 Height = 13 Caption = 'File Age:' end object Label4: TLabel Left = 256 Top = 80 Width = 42 Height = 13 Caption = 'File Size:' end object Label5: TLabel Left = 352 Top = 56 Width = 24 Height = 13 Caption = 'Days' Visible = False end object AnimatedSymbol1: TAnimatedSymbol Left = 8 Top = 16 Width = 32 Height = 32 State = acmPlaying end object Button3: TButton Left = 328 Top = 151 Width = 50 Height = 20 Caption = '&Cancel' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ModalResult = 2 ParentFont = False TabOrder = 2 end object Button1: TButton Left = 272 Top = 152 Width = 50 Height = 20 Caption = '&Ok' Default = True Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ModalResult = 1 ParentFont = False TabOrder = 1 OnClick = Button1Click end object EditLoc: TEdit Left = 48 Top = 24 Width = 161 Height = 21 TabOrder = 3 end object CBIncSubDir: TBitCheckBox Left = 48 Top = 48 Width = 161 Height = 17 Caption = 'Include Subfolders' Checked = True CheckedGlyph.Data = { 1E010000424D1E010000000000007600000028000000130000000E0000000100 040000000000A800000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 333333300000888888888888833333300000F77777788777833333300000F777 77888877833333300000F77748888887833333300000F7784488788883333330 0000F774CC487788833333300000F77CC8C48778883333300000F78C888C4877 888333300000F74C8777C487888883300000F7C877777C48838888800000F777 777777CC483388800000FFFFFFFFFFF8CC483330000033333333333338C43330 0000} GrayedGlyph.Data = { 1E010000424D1E010000000000007600000028000000130000000E0000000100 040000000000A800000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033333C438833 33333330000088888C488888833333300000F77777778877833333300000F777 7C478877833333300000F7777C478877833333300000F7777CC4888783333330 0000F77777CC4888833333300000F777777CC488833333300000F7777777CC48 883333300000FC4788777C47883333300000FC4788777C47883333300000FCC4 8887CC48833333300000FFCC444CCC888333333000003333CCCC888333333330 0000} State = cbChecked TabOrder = 5 TabStop = True UncheckedGlyph.Data = { 1E010000424D1E010000000000007600000028000000130000000E0000000100 040000000000A800000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 333333300000888888888888833333300000F77777777777833333300000F777 77777777833333300000F77777777777833333300000F7777777777783333330 0000F77777777777833333300000F77777777777833333300000F77777777777 833333300000F77777777777833333300000F77777777777833333300000F777 77777777833333300000FFFFFFFFFFFF83333330000033333333333333333330 0000} end object EditFile: TEdit Left = 48 Top = 96 Width = 161 Height = 21 Hint = 'File Spec is *.*, *.~*, *.dat, etc...|File Spec is *.*, *.~*, *.' + 'dat, etc...' TabOrder = 4 end object CBAge: TComboBox Left = 256 Top = 24 Width = 121 Height = 21 Style = csDropDownList DropDownCount = 6 ItemHeight = 13 Items.Strings = ( 'Equal to' 'Greater than' 'Greater than or equal to' 'Less than' 'Less than or equal to' 'None') Sorted = True TabOrder = 6 OnChange = CBAgeChange end object CBSize: TComboBox Left = 256 Top = 96 Width = 121 Height = 21 Style = csDropDownList DropDownCount = 6 ItemHeight = 13 Items.Strings = ( 'Equal to' 'Greater than' 'Greater than or equal to' 'Less than' 'Less than or equal to' 'None') Sorted = True TabOrder = 7 OnChange = CBSizeChange end object EditAge: TSpinEdit Left = 288 Top = 48 Width = 57 Height = 22 MaxValue = 0 MinValue = 0 TabOrder = 8 Value = 0 Visible = False OnChange = EditAgeChange end object EditSize: TSpinEdit Left = 256 Top = 120 Width = 57 Height = 22 MaxValue = 0 MinValue = 0 TabOrder = 9 Value = 0 Visible = False OnChange = EditSizeChange end object CBByte: TComboBox Left = 320 Top = 120 Width = 57 Height = 21 Style = csDropDownList ItemHeight = 13 Items.Strings = ( 'Bytes' 'KBytes') TabOrder = 10 Visible = False end object FolderBrowse: TFolderBrowse Title = 'CleanUp Folder Location' Left = 64 Top = 128 end object OpenDialog: TOpenDialog FileEditStyle = fsEdit Filter = 'All Files (*.*)|*.*' Title = 'CleanUp Files' Left = 144 Top = 128 end end