home *** CD-ROM | disk | FTP | other *** search
- object frmCleanupWizard: TfrmCleanupWizard
- Left = 169
- Top = 223
- HelpContext = 3000
- BorderIcons = []
- BorderStyle = bsDialog
- Caption = 'File Cleanup Wizard'
- ClientHeight = 290
- ClientWidth = 487
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Icon.Data = {<image000.ico>}
- Position = poScreenCenter
- PixelsPerInch = 96
- TextHeight = 13
- object Image1: TImage
- Left = 16
- Top = 20
- Width = 32
- Height = 32
- AutoSize = True
- Picture.Data = {<image001.ico>}
- end
- object Bevel1: TBevel
- Left = 8
- Top = 248
- Width = 470
- Height = 2
- end
- object nbWizard: TNotebook
- Left = 56
- Top = 7
- Width = 421
- Height = 241
- TabOrder = 0
- object TPage
- Left = 0
- Top = 0
- Caption = 'pgInfo'
- object Label1: TLabel
- Left = 20
- Top = 20
- Width = 381
- Height = 33
- AutoSize = False
- Caption =
- 'This wizard will guide you through the steps of removing unneces' +
- 'sary files from all backup destination directories.'
- WordWrap = True
- end
- object Label2: TLabel
- Left = 20
- Top = 56
- Width = 349
- Height = 33
- AutoSize = False
- Caption = 'To begin the cleanup process, click Next.'
- WordWrap = True
- end
- end
- object TPage
- Left = 0
- Top = 0
- Caption = 'pgSelectDirs'
- object Label5: TLabel
- Left = 20
- Top = 20
- Width = 265
- Height = 29
- AutoSize = False
- Caption =
- 'Please select the directories you would like to clean up, and cl' +
- 'ick Next.'
- WordWrap = True
- end
- object Label3: TLabel
- Left = 20
- Top = 52
- Width = 373
- Height = 29
- AutoSize = False
- Caption =
- 'One moment while FileBack builds a list of subdirectories used a' +
- 's backup destinations...'
- Transparent = True
- WordWrap = True
- end
- object pbFindDir: TProgressBar
- Left = 20
- Top = 88
- Width = 373
- Height = 21
- Min = 0
- Max = 100
- TabOrder = 1
- end
- object lbDirs: TListBox
- Left = 20
- Top = 52
- Width = 381
- Height = 169
- ItemHeight = 13
- MultiSelect = True
- PopupMenu = pmSelect
- TabOrder = 0
- Visible = False
- OnClick = lbDirsClick
- end
- object btnSelect: TBitBtn
- Left = 308
- Top = 17
- Width = 91
- Height = 25
- Caption = '&Select...'
- TabOrder = 2
- OnClick = btnSelectClick
- end
- end
- object TPage
- Left = 0
- Top = 0
- Caption = 'pgOptions'
- object Label4: TLabel
- Left = 20
- Top = 20
- Width = 349
- Height = 21
- AutoSize = False
- Caption =
- 'Which files would you like to remove from the destination direct' +
- 'ories?'
- WordWrap = True
- end
- object ckbOldFiles: TCheckBox
- Left = 44
- Top = 136
- Width = 301
- Height = 24
- Caption =
- 'Files in selected directories more than days' +
- ' old'
- TabOrder = 4
- OnClick = ckbOldFilesClick
- end
- object seDaysOld: TSpinEdit
- Left = 242
- Top = 138
- Width = 55
- Height = 22
- Enabled = False
- MaxValue = 3650
- MinValue = 0
- TabOrder = 5
- Value = 180
- end
- object ckbHighNumber: TCheckBox
- Left = 44
- Top = 80
- Width = 321
- Height = 24
- Caption = 'Backup files numbered higher than the current revision setting'
- State = cbChecked
- TabOrder = 1
- end
- object ckbNoOriginal: TCheckBox
- Left = 44
- Top = 52
- Width = 313
- Height = 24
- Caption =
- 'Files in selected directories with no corresponding original fil' +
- 'e'
- State = cbChecked
- TabOrder = 0
- end
- object ckbExtensions: TCheckBox
- Left = 44
- Top = 108
- Width = 313
- Height = 24
- Caption = 'Backup and temporary files:'
- State = cbChecked
- TabOrder = 2
- OnClick = ckbExtensionsClick
- end
- object ckbOldBackup: TCheckBox
- Left = 44
- Top = 164
- Width = 309
- Height = 24
- Caption =
- 'Backups more than days older than original f' +
- 'ile'
- TabOrder = 6
- OnClick = ckbOldBackupClick
- end
- object seOldBackup: TSpinEdit
- Left = 158
- Top = 166
- Width = 55
- Height = 22
- Enabled = False
- MaxValue = 3650
- MinValue = 0
- TabOrder = 7
- Value = 180
- end
- object tbBackup: TEdit
- Left = 198
- Top = 110
- Width = 155
- Height = 21
- TabOrder = 3
- Text = '"*.BAK" "*.~*" "~*.*" "*.TMP"'
- end
- object ckbEmptyDirectories: TCheckBox
- Left = 44
- Top = 192
- Width = 161
- Height = 24
- Caption = 'Directories containing no files'
- State = cbChecked
- TabOrder = 8
- end
- end
- object TPage
- Left = 0
- Top = 0
- Caption = 'pgFiles'
- object Label8: TLabel
- Left = 20
- Top = 24
- Width = 349
- Height = 21
- AutoSize = False
- Caption = 'Please select the files you wish to remove, and click Next.'
- WordWrap = True
- end
- object Label6: TLabel
- Left = 20
- Top = 56
- Width = 381
- Height = 45
- AutoSize = False
- Caption =
- 'FileBack is building a list of files which match the criteria yo' +
- 'u have selected. This may take a few minutes, depending on the ' +
- 'complexity of the backup entries and your cleanup request.'
- WordWrap = True
- end
- object lbInfo: TLabel
- Left = 24
- Top = 220
- Width = 381
- Height = 13
- Alignment = taCenter
- AutoSize = False
- end
- object pbFindFiles: TProgressBar
- Left = 20
- Top = 104
- Width = 385
- Height = 21
- Min = 0
- Max = 100
- TabOrder = 2
- end
- object btnSelectFiles: TBitBtn
- Left = 312
- Top = 17
- Width = 91
- Height = 25
- Caption = '&Select...'
- TabOrder = 0
- Visible = False
- OnClick = btnSelectFilesClick
- end
- object lvFiles: TListView
- Left = 20
- Top = 52
- Width = 385
- Height = 165
- ColumnClick = False
- Columns = <
- item
- Caption = 'File Name'
- Width = 120
- end
- item
- Caption = 'In Folder'
- Width = 120
- end
- item
- Alignment = taRightJustify
- Caption = 'File Size'
- Width = 70
- end
- item
- Alignment = taRightJustify
- Caption = 'Modification Date'
- Width = 120
- end
- item
- Caption = 'Original Location'
- Width = 120
- end
- item
- Alignment = taRightJustify
- Caption = 'Current File Date'
- Width = 120
- end
- item
- Caption = 'Reasons'
- Width = 200
- end>
- ReadOnly = True
- HideSelection = False
- MultiSelect = True
- OnChange = lvFilesChange
- PopupMenu = pmSelectFiles
- TabOrder = 1
- ViewStyle = vsReport
- Visible = False
- end
- end
- object TPage
- Left = 0
- Top = 0
- Caption = 'pgCleanup'
- object Label9: TLabel
- Left = 20
- Top = 22
- Width = 102
- Height = 13
- Caption = 'File Cleanup Progress'
- end
- object lbStatus: TListBox
- Left = 28
- Top = 40
- Width = 365
- Height = 181
- Color = clWhite
- Font.Color = clBlue
- Font.Height = -11
- Font.Name = 'Arial'
- Font.Style = []
- ItemHeight = 14
- ParentFont = False
- TabOrder = 0
- OnDblClick = lbStatusDblClick
- end
- end
- object TPage
- Left = 0
- Top = 0
- Caption = 'pgDone'
- object Label13: TLabel
- Left = 20
- Top = 22
- Width = 105
- Height = 13
- Caption = 'File Cleanup Complete'
- end
- object Label14: TLabel
- Left = 20
- Top = 50
- Width = 381
- Height = 39
- AutoSize = False
- Caption =
- 'FileBack has finished cleaning up the directories you have selec' +
- 'ted, where possible. You may cleanup more directories or return' +
- ' to the main FileBack screen. Make your selection and click '#39'Fi' +
- 'nish.'#39
- WordWrap = True
- end
- object Label15: TLabel
- Left = 20
- Top = 106
- Width = 381
- Height = 23
- AutoSize = False
- Caption = 'Would you like to restore more files using the Cleanup process?'
- WordWrap = True
- end
- object ckbYes: TRadioButton
- Left = 56
- Top = 136
- Width = 241
- Height = 17
- Caption = 'Yes, I would like to cleanup more directories.'
- TabOrder = 0
- end
- object ckbNo: TRadioButton
- Left = 56
- Top = 160
- Width = 201
- Height = 17
- Caption = 'No, I would like to return to FileBack.'
- Checked = True
- TabOrder = 1
- TabStop = True
- end
- end
- end
- object btnBack: TButton
- Left = 224
- Top = 256
- Width = 75
- Height = 25
- Caption = '< &Back'
- Enabled = False
- TabOrder = 1
- OnClick = btnBackClick
- end
- object btnNext: TButton
- Left = 304
- Top = 256
- Width = 75
- Height = 25
- Caption = '&Next >'
- TabOrder = 2
- OnClick = btnNextClick
- end
- object btnCancel: TButton
- Left = 400
- Top = 256
- Width = 75
- Height = 25
- Caption = 'C&ancel'
- TabOrder = 3
- OnClick = btnCancelClick
- end
- object pmSelect: TPopupMenu
- OnPopup = pmSelectPopup
- Left = 16
- Top = 193
- object AllFiles1: TMenuItem
- Caption = '&All Available Directories'
- ShortCut = 0
- OnClick = AllFiles1Click
- end
- object AllFilesinDirectoryBelow1: TMenuItem
- Caption = '&Subdirectories of Selected Directory'
- ShortCut = 0
- OnClick = AllFilesinDirectoryBelow1Click
- end
- object InvertSelection1: TMenuItem
- Caption = '&Invert Selection'
- ShortCut = 0
- OnClick = InvertSelection1Click
- end
- object None1: TMenuItem
- Caption = '&Clear Selection'
- ShortCut = 0
- OnClick = None1Click
- end
- end
- object pmSelectFiles: TPopupMenu
- OnPopup = pmSelectFilesPopup
- Left = 16
- Top = 161
- object AllFiles2: TMenuItem
- Caption = '&All Files'
- ShortCut = 0
- OnClick = AllFiles2Click
- end
- object FilesinSelectedDirectory2: TMenuItem
- Caption = 'All Files in Selected &Directory'
- ShortCut = 0
- OnClick = FilesinSelectedDirectory2Click
- end
- object AllFilesInDirectoryBelow2: TMenuItem
- Caption = 'All Files in Directory && &Below'
- ShortCut = 0
- OnClick = AllFilesInDirectoryBelow2Click
- end
- object InvertSelection2: TMenuItem
- Caption = '&Invert Selection'
- ShortCut = 0
- OnClick = InvertSelection2Click
- end
- object ClearSelection2: TMenuItem
- Caption = '&Clear Selection'
- ShortCut = 0
- OnClick = ClearSelection2Click
- end
- end
- end
-