home *** CD-ROM | disk | FTP | other *** search
/ Windows 95 Secrets / Secrets2.iso / FileMgmt / General / FileBack / _SETUP.1 / FileBack.exe / 0 / RCDATA / TFRMCLEANUPWIZARD / TFRMCLEANUPWIZARD.txt < prev   
Encoding:
Text File  |  1997-06-25  |  11.5 KB  |  492 lines

  1. object frmCleanupWizard: TfrmCleanupWizard
  2.   Left = 169
  3.   Top = 223
  4.   HelpContext = 3000
  5.   BorderIcons = []
  6.   BorderStyle = bsDialog
  7.   Caption = 'File Cleanup Wizard'
  8.   ClientHeight = 290
  9.   ClientWidth = 487
  10.   Font.Color = clWindowText
  11.   Font.Height = -11
  12.   Font.Name = 'MS Sans Serif'
  13.   Font.Style = []
  14.   Icon.Data = {<image000.ico>}
  15.   Position = poScreenCenter
  16.   PixelsPerInch = 96
  17.   TextHeight = 13
  18.   object Image1: TImage
  19.     Left = 16
  20.     Top = 20
  21.     Width = 32
  22.     Height = 32
  23.     AutoSize = True
  24.     Picture.Data = {<image001.ico>}
  25.   end
  26.   object Bevel1: TBevel
  27.     Left = 8
  28.     Top = 248
  29.     Width = 470
  30.     Height = 2
  31.   end
  32.   object nbWizard: TNotebook
  33.     Left = 56
  34.     Top = 7
  35.     Width = 421
  36.     Height = 241
  37.     TabOrder = 0
  38.     object TPage
  39.       Left = 0
  40.       Top = 0
  41.       Caption = 'pgInfo'
  42.       object Label1: TLabel
  43.         Left = 20
  44.         Top = 20
  45.         Width = 381
  46.         Height = 33
  47.         AutoSize = False
  48.         Caption = 
  49.           'This wizard will guide you through the steps of removing unneces' +
  50.           'sary files from all backup destination directories.'
  51.         WordWrap = True
  52.       end
  53.       object Label2: TLabel
  54.         Left = 20
  55.         Top = 56
  56.         Width = 349
  57.         Height = 33
  58.         AutoSize = False
  59.         Caption = 'To begin the cleanup process, click Next.'
  60.         WordWrap = True
  61.       end
  62.     end
  63.     object TPage
  64.       Left = 0
  65.       Top = 0
  66.       Caption = 'pgSelectDirs'
  67.       object Label5: TLabel
  68.         Left = 20
  69.         Top = 20
  70.         Width = 265
  71.         Height = 29
  72.         AutoSize = False
  73.         Caption = 
  74.           'Please select the directories you would like to clean up, and cl' +
  75.           'ick Next.'
  76.         WordWrap = True
  77.       end
  78.       object Label3: TLabel
  79.         Left = 20
  80.         Top = 52
  81.         Width = 373
  82.         Height = 29
  83.         AutoSize = False
  84.         Caption = 
  85.           'One moment while FileBack builds a list of subdirectories used a' +
  86.           's backup destinations...'
  87.         Transparent = True
  88.         WordWrap = True
  89.       end
  90.       object pbFindDir: TProgressBar
  91.         Left = 20
  92.         Top = 88
  93.         Width = 373
  94.         Height = 21
  95.         Min = 0
  96.         Max = 100
  97.         TabOrder = 1
  98.       end
  99.       object lbDirs: TListBox
  100.         Left = 20
  101.         Top = 52
  102.         Width = 381
  103.         Height = 169
  104.         ItemHeight = 13
  105.         MultiSelect = True
  106.         PopupMenu = pmSelect
  107.         TabOrder = 0
  108.         Visible = False
  109.         OnClick = lbDirsClick
  110.       end
  111.       object btnSelect: TBitBtn
  112.         Left = 308
  113.         Top = 17
  114.         Width = 91
  115.         Height = 25
  116.         Caption = '&Select...'
  117.         TabOrder = 2
  118.         OnClick = btnSelectClick
  119.       end
  120.     end
  121.     object TPage
  122.       Left = 0
  123.       Top = 0
  124.       Caption = 'pgOptions'
  125.       object Label4: TLabel
  126.         Left = 20
  127.         Top = 20
  128.         Width = 349
  129.         Height = 21
  130.         AutoSize = False
  131.         Caption = 
  132.           'Which files would you like to remove from the destination direct' +
  133.           'ories?'
  134.         WordWrap = True
  135.       end
  136.       object ckbOldFiles: TCheckBox
  137.         Left = 44
  138.         Top = 136
  139.         Width = 301
  140.         Height = 24
  141.         Caption = 
  142.           'Files in selected directories more than                     days' +
  143.           ' old'
  144.         TabOrder = 4
  145.         OnClick = ckbOldFilesClick
  146.       end
  147.       object seDaysOld: TSpinEdit
  148.         Left = 242
  149.         Top = 138
  150.         Width = 55
  151.         Height = 22
  152.         Enabled = False
  153.         MaxValue = 3650
  154.         MinValue = 0
  155.         TabOrder = 5
  156.         Value = 180
  157.       end
  158.       object ckbHighNumber: TCheckBox
  159.         Left = 44
  160.         Top = 80
  161.         Width = 321
  162.         Height = 24
  163.         Caption = 'Backup files numbered higher than the current revision setting'
  164.         State = cbChecked
  165.         TabOrder = 1
  166.       end
  167.       object ckbNoOriginal: TCheckBox
  168.         Left = 44
  169.         Top = 52
  170.         Width = 313
  171.         Height = 24
  172.         Caption = 
  173.           'Files in selected directories with no corresponding original fil' +
  174.           'e'
  175.         State = cbChecked
  176.         TabOrder = 0
  177.       end
  178.       object ckbExtensions: TCheckBox
  179.         Left = 44
  180.         Top = 108
  181.         Width = 313
  182.         Height = 24
  183.         Caption = 'Backup and temporary files:'
  184.         State = cbChecked
  185.         TabOrder = 2
  186.         OnClick = ckbExtensionsClick
  187.       end
  188.       object ckbOldBackup: TCheckBox
  189.         Left = 44
  190.         Top = 164
  191.         Width = 309
  192.         Height = 24
  193.         Caption = 
  194.           'Backups more than                     days older than original f' +
  195.           'ile'
  196.         TabOrder = 6
  197.         OnClick = ckbOldBackupClick
  198.       end
  199.       object seOldBackup: TSpinEdit
  200.         Left = 158
  201.         Top = 166
  202.         Width = 55
  203.         Height = 22
  204.         Enabled = False
  205.         MaxValue = 3650
  206.         MinValue = 0
  207.         TabOrder = 7
  208.         Value = 180
  209.       end
  210.       object tbBackup: TEdit
  211.         Left = 198
  212.         Top = 110
  213.         Width = 155
  214.         Height = 21
  215.         TabOrder = 3
  216.         Text = '"*.BAK" "*.~*" "~*.*" "*.TMP"'
  217.       end
  218.       object ckbEmptyDirectories: TCheckBox
  219.         Left = 44
  220.         Top = 192
  221.         Width = 161
  222.         Height = 24
  223.         Caption = 'Directories containing no files'
  224.         State = cbChecked
  225.         TabOrder = 8
  226.       end
  227.     end
  228.     object TPage
  229.       Left = 0
  230.       Top = 0
  231.       Caption = 'pgFiles'
  232.       object Label8: TLabel
  233.         Left = 20
  234.         Top = 24
  235.         Width = 349
  236.         Height = 21
  237.         AutoSize = False
  238.         Caption = 'Please select the files you wish to remove, and click Next.'
  239.         WordWrap = True
  240.       end
  241.       object Label6: TLabel
  242.         Left = 20
  243.         Top = 56
  244.         Width = 381
  245.         Height = 45
  246.         AutoSize = False
  247.         Caption = 
  248.           'FileBack is building a list of files which match the criteria yo' +
  249.           'u have selected.  This may take a few minutes, depending on the ' +
  250.           'complexity of the backup entries and your cleanup request.'
  251.         WordWrap = True
  252.       end
  253.       object lbInfo: TLabel
  254.         Left = 24
  255.         Top = 220
  256.         Width = 381
  257.         Height = 13
  258.         Alignment = taCenter
  259.         AutoSize = False
  260.       end
  261.       object pbFindFiles: TProgressBar
  262.         Left = 20
  263.         Top = 104
  264.         Width = 385
  265.         Height = 21
  266.         Min = 0
  267.         Max = 100
  268.         TabOrder = 2
  269.       end
  270.       object btnSelectFiles: TBitBtn
  271.         Left = 312
  272.         Top = 17
  273.         Width = 91
  274.         Height = 25
  275.         Caption = '&Select...'
  276.         TabOrder = 0
  277.         Visible = False
  278.         OnClick = btnSelectFilesClick
  279.       end
  280.       object lvFiles: TListView
  281.         Left = 20
  282.         Top = 52
  283.         Width = 385
  284.         Height = 165
  285.         ColumnClick = False
  286.         Columns = <
  287.           item
  288.             Caption = 'File Name'
  289.             Width = 120
  290.           end
  291.           item
  292.             Caption = 'In Folder'
  293.             Width = 120
  294.           end
  295.           item
  296.             Alignment = taRightJustify
  297.             Caption = 'File Size'
  298.             Width = 70
  299.           end
  300.           item
  301.             Alignment = taRightJustify
  302.             Caption = 'Modification Date'
  303.             Width = 120
  304.           end
  305.           item
  306.             Caption = 'Original Location'
  307.             Width = 120
  308.           end
  309.           item
  310.             Alignment = taRightJustify
  311.             Caption = 'Current File Date'
  312.             Width = 120
  313.           end
  314.           item
  315.             Caption = 'Reasons'
  316.             Width = 200
  317.           end>
  318.         ReadOnly = True
  319.         HideSelection = False
  320.         MultiSelect = True
  321.         OnChange = lvFilesChange
  322.         PopupMenu = pmSelectFiles
  323.         TabOrder = 1
  324.         ViewStyle = vsReport
  325.         Visible = False
  326.       end
  327.     end
  328.     object TPage
  329.       Left = 0
  330.       Top = 0
  331.       Caption = 'pgCleanup'
  332.       object Label9: TLabel
  333.         Left = 20
  334.         Top = 22
  335.         Width = 102
  336.         Height = 13
  337.         Caption = 'File Cleanup Progress'
  338.       end
  339.       object lbStatus: TListBox
  340.         Left = 28
  341.         Top = 40
  342.         Width = 365
  343.         Height = 181
  344.         Color = clWhite
  345.         Font.Color = clBlue
  346.         Font.Height = -11
  347.         Font.Name = 'Arial'
  348.         Font.Style = []
  349.         ItemHeight = 14
  350.         ParentFont = False
  351.         TabOrder = 0
  352.         OnDblClick = lbStatusDblClick
  353.       end
  354.     end
  355.     object TPage
  356.       Left = 0
  357.       Top = 0
  358.       Caption = 'pgDone'
  359.       object Label13: TLabel
  360.         Left = 20
  361.         Top = 22
  362.         Width = 105
  363.         Height = 13
  364.         Caption = 'File Cleanup Complete'
  365.       end
  366.       object Label14: TLabel
  367.         Left = 20
  368.         Top = 50
  369.         Width = 381
  370.         Height = 39
  371.         AutoSize = False
  372.         Caption = 
  373.           'FileBack has finished cleaning up the directories you have selec' +
  374.           'ted, where possible.  You may cleanup more directories or return' +
  375.           ' to the main FileBack screen.  Make your selection and click '#39'Fi' +
  376.           'nish.'#39
  377.         WordWrap = True
  378.       end
  379.       object Label15: TLabel
  380.         Left = 20
  381.         Top = 106
  382.         Width = 381
  383.         Height = 23
  384.         AutoSize = False
  385.         Caption = 'Would you like to restore more files using the Cleanup process?'
  386.         WordWrap = True
  387.       end
  388.       object ckbYes: TRadioButton
  389.         Left = 56
  390.         Top = 136
  391.         Width = 241
  392.         Height = 17
  393.         Caption = 'Yes, I would like to cleanup more directories.'
  394.         TabOrder = 0
  395.       end
  396.       object ckbNo: TRadioButton
  397.         Left = 56
  398.         Top = 160
  399.         Width = 201
  400.         Height = 17
  401.         Caption = 'No, I would like to return to FileBack.'
  402.         Checked = True
  403.         TabOrder = 1
  404.         TabStop = True
  405.       end
  406.     end
  407.   end
  408.   object btnBack: TButton
  409.     Left = 224
  410.     Top = 256
  411.     Width = 75
  412.     Height = 25
  413.     Caption = '< &Back'
  414.     Enabled = False
  415.     TabOrder = 1
  416.     OnClick = btnBackClick
  417.   end
  418.   object btnNext: TButton
  419.     Left = 304
  420.     Top = 256
  421.     Width = 75
  422.     Height = 25
  423.     Caption = '&Next >'
  424.     TabOrder = 2
  425.     OnClick = btnNextClick
  426.   end
  427.   object btnCancel: TButton
  428.     Left = 400
  429.     Top = 256
  430.     Width = 75
  431.     Height = 25
  432.     Caption = 'C&ancel'
  433.     TabOrder = 3
  434.     OnClick = btnCancelClick
  435.   end
  436.   object pmSelect: TPopupMenu
  437.     OnPopup = pmSelectPopup
  438.     Left = 16
  439.     Top = 193
  440.     object AllFiles1: TMenuItem
  441.       Caption = '&All Available Directories'
  442.       ShortCut = 0
  443.       OnClick = AllFiles1Click
  444.     end
  445.     object AllFilesinDirectoryBelow1: TMenuItem
  446.       Caption = '&Subdirectories of Selected Directory'
  447.       ShortCut = 0
  448.       OnClick = AllFilesinDirectoryBelow1Click
  449.     end
  450.     object InvertSelection1: TMenuItem
  451.       Caption = '&Invert Selection'
  452.       ShortCut = 0
  453.       OnClick = InvertSelection1Click
  454.     end
  455.     object None1: TMenuItem
  456.       Caption = '&Clear Selection'
  457.       ShortCut = 0
  458.       OnClick = None1Click
  459.     end
  460.   end
  461.   object pmSelectFiles: TPopupMenu
  462.     OnPopup = pmSelectFilesPopup
  463.     Left = 16
  464.     Top = 161
  465.     object AllFiles2: TMenuItem
  466.       Caption = '&All Files'
  467.       ShortCut = 0
  468.       OnClick = AllFiles2Click
  469.     end
  470.     object FilesinSelectedDirectory2: TMenuItem
  471.       Caption = 'All Files in Selected &Directory'
  472.       ShortCut = 0
  473.       OnClick = FilesinSelectedDirectory2Click
  474.     end
  475.     object AllFilesInDirectoryBelow2: TMenuItem
  476.       Caption = 'All Files in Directory && &Below'
  477.       ShortCut = 0
  478.       OnClick = AllFilesInDirectoryBelow2Click
  479.     end
  480.     object InvertSelection2: TMenuItem
  481.       Caption = '&Invert Selection'
  482.       ShortCut = 0
  483.       OnClick = InvertSelection2Click
  484.     end
  485.     object ClearSelection2: TMenuItem
  486.       Caption = '&Clear Selection'
  487.       ShortCut = 0
  488.       OnClick = ClearSelection2Click
  489.     end
  490.   end
  491. end
  492.