PC World 1999 February/PCWorld_1999-02_cd.bin/temacd/WinRes/Rescue98.exe/0/RCDATA/TFORM8/TFORM8.txt

Text File | 1998-11-16 | 24KB | 942 lines

object Form8: TForm8
  Left = 167
  Top = 94
  HelpContext = 6
  ActiveControl = PageControl1
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'WinRescue 98 Preferences'
  ClientHeight = 282
  ClientWidth = 427
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {<image000.ico>}
  Position = poScreenCenter
  OnActivate = Form8Activate
  PixelsPerInch = 96
  TextHeight = 13
  object PageControl1: TPageControl
    Left = 8
    Top = 8
    Width = 409
    Height = 241
    HelpContext = 6
    ActivePage = TabSheet3
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = 'Backup and Restore'
      object GroupBox1: TGroupBox
        Left = 8
        Top = 2
        Width = 385
        Height = 109
        Caption = 'Permanent Backups'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 0
        object Bevel4: TBevel
          Left = 0
          Top = 42
          Width = 385
          Height = 2
        end
        object Label4: TLabel
          Left = 16
          Top = 78
          Width = 73
          Height = 30
          AutoSize = False
          Caption = 'Which Registry to Backup'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          Transparent = True
          WordWrap = True
        end
        object Bevel6: TBevel
          Left = 0
          Top = 72
          Width = 385
          Height = 2
        end
        object Bevel3: TBevel
          Left = 160
          Top = 43
          Width = 2
          Height = 30
        end
        object Label10: TLabel
          Left = 176
          Top = 51
          Width = 34
          Height = 13
          Caption = 'Ta&rget:'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object PreviousRadio1: TRadioButton
          Left = 104
          Top = 84
          Width = 105
          Height = 17
          Caption = 'Pre&vious (safest)'
          Checked = True
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 0
          TabStop = True
          OnClick = RadioGroup1Click
        end
        object CurrentRadio1: TRadioButton
          Left = 216
          Top = 84
          Width = 161
          Height = 17
          Caption = 'C&urrent (doesn'#39't always work)'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 1
          OnClick = RadioGroup1Click
        end
        object Panel1: TPanel
          Left = 8
          Top = 16
          Width = 369
          Height = 25
          BevelOuter = bvNone
          TabOrder = 2
          object Label1: TLabel
            Left = 264
            Top = 4
            Width = 70
            Height = 13
            AutoSize = False
            Caption = 'Dis&kette Drive:'
            Enabled = False
            FocusControl = Edit1
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlack
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
          end
          object Label12: TLabel
            Left = 8
            Top = 4
            Width = 52
            Height = 13
            Caption = '&Backup to:'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlack
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
          end
          object Edit1: TEdit
            Left = 338
            Top = 0
            Width = 15
            Height = 21
            Enabled = False
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlack
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            MaxLength = 1
            ParentFont = False
            TabOrder = 0
            Text = 'A'
          end
          object ComboBox5: TComboBox
            Left = 72
            Top = 0
            Width = 177
            Height = 21
            Style = csDropDownList
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlack
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ItemHeight = 13
            Items.Strings = (
              'Hard Drive (unlimited backups)'
              'Hard Drive (only one backup)'
              'Hard Drive (up to 3 backups)'
              'Hard Drive (up to 5 backups)'
              'Hard Drive (up to 10 backups)'
              'Diskette')
            ParentFont = False
            TabOrder = 1
            OnChange = PreferenceChange
          end
        end
        object TargetEdit: TEdit
          Left = 224
          Top = 48
          Width = 129
          Height = 21
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 3
          Text = 'TargetEdit'
        end
        object Button14: TButton
          Left = 353
          Top = 48
          Width = 17
          Height = 20
          Caption = '...'
          TabOrder = 4
          OnClick = LinkEditButtonClick
        end
        object ComboBox6: TComboBox
          Left = 8
          Top = 48
          Width = 147
          Height = 21
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ItemHeight = 13
          Items.Strings = (
            'Do Not Compress'
            'Low/Fast Compression'
            'Medium Compression'
            'High/Slow Compression')
          ParentFont = False
          TabOrder = 5
          Text = 'ComboBox6'
        end
      end
      object GroupBox4: TGroupBox
        Left = 8
        Top = 118
        Width = 385
        Height = 89
        Caption = 'Restore'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 1
        object Previous: TRadioButton
          Left = 8
          Top = 16
          Width = 161
          Height = 17
          Caption = 'Restore &Temporary Backup'
          Checked = True
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 0
          TabStop = True
          OnClick = PreferenceChange
        end
        object Spare: TRadioButton
          Left = 8
          Top = 40
          Width = 137
          Height = 17
          Caption = 'Restore Sp&are Registry'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 1
          OnClick = PreferenceChange
        end
        object Diskette: TRadioButton
          Left = 8
          Top = 64
          Width = 137
          Height = 17
          Caption = 'Restore from &Diskette'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 2
          OnClick = PreferenceChange
        end
        object Original: TRadioButton
          Left = 176
          Top = 64
          Width = 145
          Height = 17
          Caption = 'Restore &Original Registry'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 3
          OnClick = PreferenceChange
        end
        object Backup: TRadioButton
          Left = 176
          Top = 16
          Width = 169
          Height = 17
          Caption = 'Restore &Permanent Backup'
          Enabled = False
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 4
          OnClick = PreferenceChange
        end
        object ComboBox4: TComboBox
          Left = 192
          Top = 34
          Width = 185
          Height = 21
          Style = csDropDownList
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ItemHeight = 13
          Items.Strings = (
            'Restore Most Recent Backup')
          ParentFont = False
          TabOrder = 5
        end
        object Button13: TButton
          Left = 336
          Top = 71
          Width = 48
          Height = 17
          Caption = '&Help'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 6
          OnClick = Button13Click
        end
      end
    end
    object TabSheet4: TTabSheet
      HelpContext = 46
      Caption = 'Miscellaneous'
      object Shape2: TShape
        Left = 16
        Top = 166
        Width = 169
        Height = 44
        Brush.Color = clGray
      end
      object Label8: TLabel
        Left = 264
        Top = 174
        Width = 105
        Height = 29
        AutoSize = False
        Caption = '&Maximum Number of Temporary Backups'
        FocusControl = SpinEdit1
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        Transparent = True
        WordWrap = True
      end
      object Label9: TLabel
        Left = 24
        Top = 168
        Width = 153
        Height = 41
        Alignment = taCenter
        AutoSize = False
        Caption =
          'Temporary Backups are backups automatically produced daily when ' +
          'Windows starts.'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        Transparent = True
        WordWrap = True
      end
      object GroupBox2: TGroupBox
        Left = 16
        Top = 72
        Width = 369
        Height = 89
        Caption = 'Actions to Perform Regularly'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 0
        object Label2: TLabel
          Left = 24
          Top = 18
          Width = 161
          Height = 13
          AutoSize = False
          Caption = 'S&tart WinRescue 98 and Wait.'
          FocusControl = ComboBox1
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label5: TLabel
          Left = 24
          Top = 66
          Width = 161
          Height = 13
          AutoSize = False
          Caption = 'Automatically perform Reg&Pack.'
          FocusControl = ComboBox3
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label11: TLabel
          Left = 24
          Top = 42
          Width = 161
          Height = 13
          AutoSize = False
          Caption = 'Automatically perform B&ackup.'
          FocusControl = ComboBox2
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object ComboBox1: TComboBox
          Left = 200
          Top = 14
          Width = 145
          Height = 21
          Style = csDropDownList
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ItemHeight = 13
          Items.Strings = (
            'Daily'
            'Weekly'
            'Bi-Weekly'
            'Monthly'
            'Do Not Perform')
          ParentFont = False
          TabOrder = 0
          OnChange = FreqClick
        end
        object ComboBox3: TComboBox
          Left = 200
          Top = 62
          Width = 145
          Height = 21
          Style = csDropDownList
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ItemHeight = 13
          Items.Strings = (
            'Daily'
            'Weekly'
            'Bi-Weekly'
            'Monthly'
            'Do Not Perform')
          ParentFont = False
          TabOrder = 1
          OnChange = FreqClick
        end
        object ComboBox2: TComboBox
          Left = 200
          Top = 38
          Width = 145
          Height = 21
          Style = csDropDownList
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ItemHeight = 13
          Items.Strings = (
            'Daily'
            'Weekly'
            'Bi-Weekly'
            'Monthly'
            'Do Not Perform')
          ParentFont = False
          TabOrder = 2
          OnChange = FreqClick
        end
      end
      object GroupBox3: TGroupBox
        Left = 16
        Top = 8
        Width = 369
        Height = 57
        Caption = 'Default Directories'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 1
        object Button4: TTransparentButton
          Left = 11
          Top = 18
          Width = 58
          Height = 28
          Caption = '&Root'
          OnClick = DDirClick
        end
        object Button5: TTransparentButton
          Left = 69
          Top = 18
          Width = 58
          Height = 28
          Caption = '&Startup'
          OnClick = DDirClick
        end
        object Button8: TTransparentButton
          Left = 127
          Top = 18
          Width = 58
          Height = 28
          Caption = '&Windows'
          OnClick = DDirClick
        end
        object Button6: TTransparentButton
          Left = 185
          Top = 18
          Width = 58
          Height = 28
          Caption = 'S&ystem'
          OnClick = DDirClick
        end
        object Button7: TTransparentButton
          Left = 243
          Top = 18
          Width = 58
          Height = 28
          Caption = '&User'
          OnClick = DDirClick
        end
        object Button11: TTransparentButton
          Left = 301
          Top = 18
          Width = 58
          Height = 28
          Caption = '&Backup'
          OnClick = DDirClick
        end
      end
      object SpinEdit1: TSpinEdit
        Left = 208
        Top = 176
        Width = 41
        Height = 22
        MaxValue = 1000
        MinValue = 0
        TabOrder = 2
        Value = 0
      end
    end
    object TabSheet3: TTabSheet
      HelpContext = 45
      Caption = 'Backup Manager'
      object Bevel1: TBevel
        Left = 9
        Top = 8
        Width = 248
        Height = 197
        Style = bsRaised
      end
      object Bevel2: TBevel
        Left = 257
        Top = 8
        Width = 135
        Height = 197
        Style = bsRaised
      end
      object Label3: TLabel
        Left = 16
        Top = 16
        Width = 233
        Height = 13
        Alignment = taCenter
        AutoSize = False
        Caption = '&Permanent Backups'
        FocusControl = ListView1
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label6: TLabel
        Left = 264
        Top = 16
        Width = 121
        Height = 17
        Alignment = taCenter
        AutoSize = False
        Caption = '&Temporary Backups'
        FocusControl = ListView1
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        WordWrap = True
      end
      object ListView1: TListView
        Left = 16
        Top = 32
        Width = 233
        Height = 148
        Columns = <
          item
            Caption = 'Backup Set'
            Width = 75
          end
          item
            Caption = 'Full Path'
            Width = 300
          end>
        OnChange = ListView1Change
        OnEdited = ListViewEdited
        OnMouseDown = ListView1MouseDown
        TabOrder = 0
        ViewStyle = vsReport
      end
      object Button9: TButton
        Left = 133
        Top = 179
        Width = 116
        Height = 18
        Caption = '&Delete'
        TabOrder = 2
        OnClick = Button9Click
      end
      object Button10: TButton
        Left = 16
        Top = 179
        Width = 117
        Height = 18
        Caption = 'Re&name'
        TabOrder = 1
        OnClick = Button10Click
      end
      object ListBox1: TListView
        Left = 264
        Top = 32
        Width = 120
        Height = 148
        Columns = <
          item
            Caption = 'Previous Registries'
            Width = 0
          end>
        ReadOnly = True
        OnMouseDown = ListBox1MouseDown
        TabOrder = 3
        ViewStyle = vsReport
      end
      object Button12: TButton
        Left = 264
        Top = 179
        Width = 120
        Height = 18
        Caption = '&Delete'
        TabOrder = 4
        OnClick = Button12Click
      end
    end
    object TabSheet5: TTabSheet
      Caption = 'Files'
      object Shape1: TShape
        Left = 8
        Top = 32
        Width = 113
        Height = 153
        Brush.Color = clGray
      end
      object Label7: TLabel
        Left = 8
        Top = 8
        Width = 385
        Height = 13
        Alignment = taCenter
        AutoSize = False
        Caption = 'Files to Backup and Restore'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label13: TLabel
        Left = 16
        Top = 40
        Width = 97
        Height = 41
        Alignment = taCenter
        AutoSize = False
        Caption = 'To change a file'#39's status, click on it'#39's checkbox.'
        Transparent = True
        WordWrap = True
      end
      object Image1: TImage
        Left = 16
        Top = 120
        Width = 17
        Height = 17
        Picture.Data = {<image001.bmp>}
      end
      object Image2: TImage
        Left = 16
        Top = 88
        Width = 17
        Height = 17
        Picture.Data = {<image002.bmp>}
      end
      object Image3: TImage
        Left = 16
        Top = 104
        Width = 17
        Height = 17
        Picture.Data = {<image003.bmp>}
      end
      object Label14: TLabel
        Left = 32
        Top = 88
        Width = 54
        Height = 13
        Caption = 'Do Nothing'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        Transparent = True
      end
      object Label15: TLabel
        Left = 32
        Top = 104
        Width = 61
        Height = 13
        Caption = 'Backup Only'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        Transparent = True
      end
      object Label16: TLabel
        Left = 32
        Top = 120
        Width = 73
        Height = 25
        AutoSize = False
        Caption = 'Backup and Restore'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        Transparent = True
        WordWrap = True
      end
      object Label17: TLabel
        Left = 16
        Top = 152
        Width = 97
        Height = 33
        Alignment = taCenter
        AutoSize = False
        Caption = 'Click on Add to add a file to the List.'
        Transparent = True
        WordWrap = True
      end
      object FileList1: TCheckListBox
        Left = 128
        Top = 24
        Width = 265
        Height = 161
        OnClickCheck = FileList1ClickCheck
        AllowGrayed = True
        ItemHeight = 13
        Items.Strings = (
          'Registry'
          'Initiation Files'
          'Start Menu'
          'Desktop'
          'Favorites'
          'Recent')
        TabOrder = 0
        OnClick = FileList1Click
        OnMouseDown = FileListMouseDown
      end
      object Button16: TButton
        Left = 128
        Top = 184
        Width = 133
        Height = 17
        Caption = '&Add'
        TabOrder = 1
        OnClick = Button16Click
      end
      object Button17: TButton
        Left = 261
        Top = 184
        Width = 132
        Height = 17
        Caption = '&Delete'
        Enabled = False
        TabOrder = 2
        OnClick = Button17Click
      end
    end
  end
  object Button1: TButton
    Left = 184
    Top = 256
    Width = 73
    Height = 20
    Caption = 'O K'
    Default = True
    ModalResult = 1
    TabOrder = 1
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 264
    Top = 256
    Width = 73
    Height = 20
    Cancel = True
    Caption = 'Cancel'
    ModalResult = 2
    TabOrder = 2
    OnClick = Button2Click
  end
  object Button3: TButton
    Left = 344
    Top = 256
    Width = 73
    Height = 20
    Caption = '&Apply'
    Enabled = False
    TabOrder = 3
    OnClick = Button3Click
  end
  object PopupMenu1: TPopupMenu
    AutoPopup = False
    Left = 104
    Top = 256
    object Dir6: TMenuItem
      Caption = 'Dir'
      HelpContext = 810
    end
    object Browse6: TMenuItem
      Caption = '&Browse'
      HelpContext = 820
      OnClick = BrowseClick
    end
    object N7: TMenuItem
      Caption = '-'
      HelpContext = 830
    end
    object DefaultDirectory6: TMenuItem
      Caption = '&Default Directory'
      HelpContext = 840
      OnClick = DefaultDirectoryClick
    end
  end
  object DirectoryDialog1: TDirectoryDialog
    Left = 56
    Top = 256
  end
  object OpenDialog1: TOpenDialog
    Options = [ofHideReadOnly, ofPathMustExist, ofFileMustExist]
    Title = 'Find the Indicated File'
    Left = 22
    Top = 255
  end
end