Chip 2004 June/CHIP_CD_2004-06.iso/software/tuneup_hit/files/TU2004TrialEN.exe/Shredder.exe3/RCDATA/TFRMWIZARD/TFRMWIZARD.txt

Text File | 2004-03-31 | 23.0 KB | 885 lines

object frmWizard: TfrmWizard
  Left = 388
  Top = 296
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'TuneUp Shredder'
  ClientHeight = 368
  ClientWidth = 552
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  Icon.Data = {<image000.ico>}
  OldCreateOrder = False
  Position = poScreenCenter
  Scaled = False
  OnCreate = FormCreate
  OnPaint = FormPaint
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 165
    Height = 321
    HelpType = htKeyword
    Align = alLeft
    BevelOuter = bvNone
    TabOrder = 0
    object imgWizard: TTUPNGImage
      Left = 12
      Top = 15
      Width = 143
      Height = 292
      BackColor = clBlack
      BorderStyle = bstFlat
      TabOrder = 0
      AutoSize = False
      Data = {}
    end
  end
  object TopBottomGraphic1: TTopBottomGraphic
    Left = 0
    Top = 321
    Width = 552
    Height = 47
    Align = alBottom
    IconIndex = -1
    Style = TBSBottom
    Big = True
    FullWidthLine = False
    object btnForward: TButton
      Left = 300
      Top = 13
      Width = 75
      Height = 23
      HelpContext = 2
      Caption = 'Ne&xt >'
      Default = True
      TabOrder = 1
      OnClick = btnForwardClick
    end
    object btnBack: TButton
      Left = 225
      Top = 13
      Width = 75
      Height = 23
      HelpContext = 1
      Caption = '< &Back'
      Enabled = False
      TabOrder = 0
      OnClick = btnBackClick
    end
    object btnCancel: TButton
      Left = 385
      Top = 13
      Width = 75
      Height = 23
      HelpContext = 3
      Cancel = True
      Caption = 'Cancel'
      TabOrder = 2
      OnClick = btnCancelClick
    end
    object btnHelp: TButton
      Left = 468
      Top = 13
      Width = 75
      Height = 23
      HelpContext = 4
      Caption = 'Help'
      TabOrder = 3
      OnClick = btnHelpClick
    end
  end
  object PageControl1: TPageControl
    Left = 165
    Top = 0
    Width = 387
    Height = 321
    ActivePage = tsWelcome
    Align = alClient
    Style = tsFlatButtons
    TabOrder = 2
    object tsWelcome: TTabSheet
      Caption = 'Welcome'
      ImageIndex = 1
      TabVisible = False
      object pnlWelcome: TPanel
        Left = 0
        Top = 0
        Width = 379
        Height = 311
        Align = alClient
        BevelOuter = bvNone
        TabOrder = 0
        object Label1: TLabel
          Left = 3
          Top = 11
          Width = 191
          Height = 13
          Caption = 'Welcome to TuneUp Shredder'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = [fsBold]
          ParentFont = False
          ShowAccelChar = False
        end
        object lblDelWhat: TLabel
          Left = 23
          Top = 172
          Width = 155
          Height = 13
          Caption = 'What would you like to delete?'
          ShowAccelChar = False
        end
        object imgFiles: TImage
          Left = 24
          Top = 194
          Width = 32
          Height = 32
          AutoSize = True
          Picture.Data = {<image001.ico>}
        end
        object imgFolder2: TImage
          Left = 24
          Top = 218
          Width = 32
          Height = 32
          AutoSize = True
        end
        object imgRecycler: TImage
          Left = 25
          Top = 243
          Width = 32
          Height = 32
          HelpContext = 6016
          AutoSize = True
        end
        object TUHTMLViewer1: TTUHTMLViewer
          Left = 4
          Top = 36
          Width = 350
          Height = 132
          Hint = 'Opens the TuneUp Software website'
          OnHotSpotCovered = TUHTMLViewer1HotSpotCovered
          OnHotSpotClick = TUHTMLViewer1HotSpotClick
          TabOrder = 2
          BorderStyle = htNone
          HistoryMaxCount = 0
          DefFontName = 'Times New Roman'
          DefPreFontName = 'Courier New'
          DefFontColor = clWindowText
          DefHotSpotColor = clNavy
          NoSelect = True
          ScrollBars = ssNone
          CharSet = DEFAULT_CHARSET
          MarginHeight = 0
          MarginWidth = 0
          PrintMarginLeft = 2
          PrintMarginRight = 2
          PrintMarginTop = 2
          PrintMarginBottom = 2
          PrintScale = 1
          htOptions = [htOverLinksActive, htPrintTableBackground, htPrintMonochromeBlack]
          CSS.Strings = (
            'body'#9'{'
            #9'margin: 0 0 0 0;'
            #9'}'
            'p'#9'{'
            #9'margin: 0 0 0 0;'
            #9'font-family: Tahoma, Arial;'
            #9'font-size: 10px;'
            #9'}')
          HTML.Strings = (

              '<p>You can use TuneUp Shredder to delete your files and folders ' +
              'securely. Because your most recently deleted files can be recove' +
              'red even after you empty your Recycle Bin in order to obtain inf' +
              'ormation on your Internet surfing habits and the latest document' +
              's that you created.<br><br></p>'

              '<p>TuneUp Shredder uses a method developed by the US Department ' +
              'of Defense (DoD 5220.2-M). To find out more about secure deletio' +
              'n and the protection of your privacy, click <a href="Shredder">h' +
              'ere</a>.</p>')
        end
        object rbFiles: TRadioButton
          Left = 44
          Top = 195
          Width = 100
          Height = 17
          HelpContext = 6001
          Caption = '&Files'
          Checked = True
          TabOrder = 0
          TabStop = True
        end
        object rbFolder: TRadioButton
          Left = 44
          Top = 219
          Width = 100
          Height = 17
          HelpContext = 6005
          Caption = 'F&olders'
          TabOrder = 1
        end
        object rbRecycleBin: TRadioButton
          Left = 44
          Top = 243
          Width = 100
          Height = 17
          HelpContext = 6016
          Caption = '&Recycle Bin'
          TabOrder = 3
        end
      end
    end
    object tsChooseFolder: TTabSheet
      Caption = 'Choose Folders'
      ImageIndex = 3
      TabVisible = False
      object pnlChooseFolder: TPanel
        Left = 0
        Top = 0
        Width = 379
        Height = 311
        Align = alClient
        BevelOuter = bvNone
        TabOrder = 0
        object Label8: TLabel
          Left = 3
          Top = 11
          Width = 215
          Height = 13
          Caption = 'Which folder would you like to delete?'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = [fsBold]
          ParentFont = False
          ShowAccelChar = False
        end
        object Label9: TLabel
          Left = 4
          Top = 36
          Width = 367
          Height = 51
          AutoSize = False
          Caption =
            'TuneUp Shredder overwrites all the files in the selected folder.' +
            ' The directory entries and allocated free space will be overwrit' +
            'ten as well.'
          ShowAccelChar = False
          WordWrap = True
        end
        object lblFolderEdit: TLabel
          Left = 38
          Top = 90
          Width = 45
          Height = 16
          HelpContext = 6006
          AutoSize = False
          Caption = 'F&older:'
          Transparent = True
          WordWrap = True
        end
        object Label18: TLabel
          Left = 19
          Top = 155
          Width = 354
          Height = 33
          AutoSize = False
          Caption =
            'Select whether the allocated free disk space should also be dele' +
            'ted.'
          ShowAccelChar = False
          WordWrap = True
        end
        object Label16: TLabel
          Left = 19
          Top = 73
          Width = 238
          Height = 13
          Caption = 'Select the folder you want to delete.'
          ShowAccelChar = False
        end
        object lblTopic1: TLabel
          Left = 4
          Top = 73
          Width = 10
          Height = 13
          Caption = '1.'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = [fsBold]
          ParentFont = False
          ShowAccelChar = False
        end
        object lblTopic2: TLabel
          Left = 4
          Top = 155
          Width = 10
          Height = 13
          Caption = '2.'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = [fsBold]
          ParentFont = False
          ShowAccelChar = False
        end
        object imgFolder: TImage
          Left = 18
          Top = 89
          Width = 32
          Height = 32
          HelpContext = 6006
          AutoSize = True
        end
        object Label21: TLabel
          Left = 11
          Top = 216
          Width = 354
          Height = 36
          AutoSize = False
          Caption =
            'Select whether the subfolders and the allocated free disk space ' +
            'should also be deleted.'
          ShowAccelChar = False
          Visible = False
          WordWrap = True
        end
        object chkDeleteFileFreeSpaceFOLDER: TCheckBox
          Left = 19
          Top = 172
          Width = 234
          Height = 19
          HelpContext = 6002
          Caption = 'Ove&rwrite allocated free space'
          Checked = True
          State = cbChecked
          TabOrder = 2
        end
        object btnChooseFolder: TButton
          Left = 281
          Top = 106
          Width = 85
          Height = 24
          HelpContext = 6007
          Caption = '&Select...'
          TabOrder = 1
          OnClick = btnChooseFolderClick
        end
        object edtFolder: TEdit
          Left = 19
          Top = 107
          Width = 257
          Height = 21
          HelpContext = 6006
          TabOrder = 0
        end
        object chkIncludeSubFolders: TCheckBox
          Left = 19
          Top = 194
          Width = 206
          Height = 17
          HelpContext = 6008
          Caption = 'I&nclude subfolders'
          Checked = True
          State = cbChecked
          TabOrder = 3
          Visible = False
        end
      end
    end
    object tsChooseFiles: TTabSheet
      Caption = 'Choose Files'
      ImageIndex = 4
      TabVisible = False
      object pnlChooseFiles: TPanel
        Left = 172
        Top = 0
        Width = 380
        Height = 321
        Align = alClient
        BevelOuter = bvNone
        TabOrder = 0
        object Label4: TLabel
          Left = 3
          Top = 11
          Width = 213
          Height = 13
          Caption = 'Which files would you like to delete?'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = [fsBold]
          ParentFont = False
          ShowAccelChar = False
        end
        object Label5: TLabel
          Left = 3
          Top = 42
          Width = 336
          Height = 35
          AutoSize = False
          Caption =
            'TuneUp Shredder deletes file names, data and, if selected, the a' +
            'llocated free space for the files listed below.'
          ShowAccelChar = False
          WordWrap = True
        end
        object Label13: TLabel
          Left = 24
          Top = 163
          Width = 41
          Height = 13
          HelpContext = 6009
          Caption = '&Files:'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
        end
        object Label14: TLabel
          Left = 4
          Top = 127
          Width = 360
          Height = 35
          AutoSize = False
          Caption =
            'Click Add to select the files you want to delete, or drag and dr' +
            'op the files from the Explorer.'
          ShowAccelChar = False
          WordWrap = True
        end
        object Image6: TImage
          Left = 4
          Top = 162
          Width = 32
          Height = 32
          HelpContext = 6009
          AutoSize = True
          Picture.Data = {<image002.ico>}
        end
        object lvFiles: TListView
          Left = 4
          Top = 180
          Width = 366
          Height = 88
          HelpContext = 6009
          Columns = <
            item
              Width = 343
            end>
          HideSelection = False
          MultiSelect = True
          ReadOnly = True
          ShowColumnHeaders = False
          TabOrder = 0
          ViewStyle = vsReport
          OnSelectItem = lvFilesSelectItem
        end
        object btnAdd: TButton
          Left = 195
          Top = 275
          Width = 84
          Height = 24
          HelpContext = 6010
          Caption = 'Ad&d...'
          TabOrder = 1
          OnClick = btnAddClick
        end
        object btnRemove: TButton
          Left = 286
          Top = 275
          Width = 84
          Height = 24
          HelpContext = 6011
          Caption = 'R&emove'
          Enabled = False
          TabOrder = 2
          OnClick = btnRemoveClick
        end
        object chkDeleteFileFreeSpace: TCheckBox
          Left = 4
          Top = 72
          Width = 237
          Height = 19
          HelpContext = 6002
          Caption = 'Delete &allocated free space'
          Checked = True
          State = cbChecked
          TabOrder = 3
        end
      end
    end
    object tsDelMethod: TTabSheet
      Caption = 'Delete Method'
      ImageIndex = 2
      TabVisible = False
      object pnlDelMethod: TPanel
        Left = 0
        Top = 0
        Width = 379
        Height = 311
        Align = alClient
        BevelOuter = bvNone
        TabOrder = 0
        object Label6: TLabel
          Left = 3
          Top = 11
          Width = 216
          Height = 13
          Caption = 'How do you want to delete the data?'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = [fsBold]
          ParentFont = False
          ShowAccelChar = False
        end
        object lblPasses: TLabel
          Left = 22
          Top = 208
          Width = 182
          Height = 24
          HelpContext = 6012
          AutoSize = False
          Caption = 'Repeat the delete o&peration:'
          WordWrap = True
        end
        object lblNextStart: TLabel
          Left = 3
          Top = 281
          Width = 300
          Height = 13
          Caption = 'Click Next to delete the selected objects.'
          ShowAccelChar = False
        end
        object imgRepeat: TImage
          Left = 3
          Top = 208
          Width = 32
          Height = 32
          AutoSize = True
        end
        object gbDelMethod: TGroupBox
          Left = 3
          Top = 39
          Width = 378
          Height = 150
          Caption = 'Deletion method'
          TabOrder = 0
          object lblDeleteFastDesc: TLabel
            Left = 40
            Top = 42
            Width = 227
            Height = 13
            HelpContext = 6003
            Caption = 'Overwrites the files with a single character'
          end
          object lblDoDDesc: TLabel
            Left = 40
            Top = 86
            Width = 320
            Height = 38
            HelpContext = 6004
            AutoSize = False
            Caption =
              'Deletes files in compliance with US Department of Defense regula' +
              'tion DoD 5220.22-M'
            ShowAccelChar = False
            WordWrap = True
          end
          object rbDeleteFast: TRadioButton
            Left = 16
            Top = 23
            Width = 121
            Height = 17
            HelpContext = 6003
            Caption = 'Qu&ick delete'
            TabOrder = 0
            OnClick = rbDeleteFastClick
          end
          object rbDeleteDoD: TRadioButton
            Left = 16
            Top = 67
            Width = 273
            Height = 19
            HelpContext = 6004
            Caption = 'Sec&ure delete'
            Checked = True
            TabOrder = 1
            TabStop = True
            OnClick = rbDeleteFastClick
          end
        end
        object udPasses: TUpDownEdit
          Left = 169
          Top = 206
          Width = 49
          Height = 20
          HelpContext = 6012
          Min = 1
          Max = 999
          Position = 1
          TabOrder = 0
          TabStop = True
        end
      end
    end
    object tsFinal: TTabSheet
      Caption = 'Final'
      ImageIndex = 1
      TabVisible = False
      object pnlFinal: TPanel
        Left = 0
        Top = 0
        Width = 379
        Height = 311
        Align = alClient
        BevelOuter = bvNone
        TabOrder = 0
        object lblCompleteMsg: TLabel
          Left = 25
          Top = 44
          Width = 351
          Height = 51
          AutoSize = False
          Caption = '.'
          ShowAccelChar = False
          WordWrap = True
        end
        object lblTopicComplete: TLabel
          Left = 3
          Top = 11
          Width = 3
          Height = 13
          Caption = '.'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = [fsBold]
          ParentFont = False
          ShowAccelChar = False
        end
        object imgChecked: TImage
          Left = 4
          Top = 44
          Width = 32
          Height = 32
          AutoSize = True
        end
        object imgCross: TImage
          Left = 4
          Top = 47
          Width = 16
          Height = 16
        end
      end
    end
    object tsRecycler: TTabSheet
      Caption = 'Recycler'
      ImageIndex = 5
      TabVisible = False
      object Label2: TLabel
        Left = 3
        Top = 11
        Width = 298
        Height = 13
        Caption = 'How do you want to delete the contents of the Recycle Bin?'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = [fsBold]
        ParentFont = False
        ShowAccelChar = False
      end
      object Label3: TLabel
        Left = 4
        Top = 37
        Width = 367
        Height = 55
        AutoSize = False
        Caption =
          'TuneUp Shredder overwrites all files and folders in the Recycle ' +
          'Bin for your user account. The directory entries of the folders ' +
          'and files will be overwritten as well.'
        ShowAccelChar = False
        WordWrap = True
      end
      object Label17: TLabel
        Left = 4
        Top = 206
        Width = 354
        Height = 36
        AutoSize = False
        Caption =
          'Specify whether you also want to delete the allocated free disk ' +
          'space for the selected files.'
        ShowAccelChar = False
        WordWrap = True
      end
      object Label15: TLabel
        Left = 4
        Top = 92
        Width = 110
        Height = 13
        Caption = 'Recycle bin status'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
      end
      object chkDeleteFileFreeSpaceRB: TCheckBox
        Left = 3
        Top = 236
        Width = 234
        Height = 19
        HelpContext = 6002
        Caption = 'O&verwrite allocated free space'
        Checked = True
        State = cbChecked
        TabOrder = 0
      end
      object GroupBox1: TGroupBox
        Left = 4
        Top = 92
        Width = 361
        Height = 94
        Caption = 'Recycle bin status'
        TabOrder = 1
        object Label7: TLabel
          Left = 45
          Top = 35
          Width = 111
          Height = 13
          Caption = 'Used space:'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
        end
        object Label10: TLabel
          Left = 45
          Top = 17
          Width = 103
          Height = 13
          Caption = 'Items:'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
        end
        object lblRBUsedSpace: TLabel
          Left = 265
          Top = 35
          Width = 85
          Height = 13
          Alignment = taRightJustify
          AutoSize = False
          Caption = '0.0 MB'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
        end
        object lblRBElements: TLabel
          Left = 265
          Top = 17
          Width = 85
          Height = 13
          Alignment = taRightJustify
          AutoSize = False
          Caption = '0'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
        end
        object imgRecyclerLarge: TImage
          Left = 8
          Top = 19
          Width = 32
          Height = 32
          AutoSize = True
        end
        object btnShowRBContent: TButton
          Left = 252
          Top = 60
          Width = 98
          Height = 23
          Caption = 'Sho&w Contents'
          TabOrder = 0
          OnClick = btnShowRBContentClick
        end
      end
    end
  end
  object OpenDialog: TOpenDialog
    Filter = 'All files (*)|*'
    InitialDir = 'C:\'
    Options = [ofHideReadOnly, ofAllowMultiSelect, ofPathMustExist, ofFileMustExist, ofEnableSizing]
    Title = 'Select the files you want to delete'
    Left = 11
    Top = 330
  end
  object dfsFolderDialog: TdfsBrowseDirectoryDlg
    Title = 'Select the folder you want to delete and click OK.'
    Options = [bfDirectoriesOnly]
    Caption = 'Select the folder'
    ShowSelectionInStatus = False
    Left = 40
    Top = 330
  end
  object ThemeManager1: TThemeManager
    Options = [toAllowNonClientArea, toAllowControls, toAllowWebContent, toSubclassAnimate, toSubclassButtons, toSubclassFrame, toSubclassGroupBox, toSubclassListView, toSubclassPanel, toSubclassTabSheet, toSubclassSpeedButtons, toSubclassStatusBar, toSubclassTrackBar, toSubclassWinControl, toResetMouseCapture, toSetTransparency]
    Left = 69
    Top = 330
  end
  object WhatsThis1: TWhatsThis
    Active = True
    F1Action = goDefault
    Options = [wtNoContextHelp, wtInheritFormContext]
    PopupCaption = 'Direkt&hilfe'
    PopupHelpContext = 0
    Left = 60
    Top = 68
  end
  object HelpRouter1: THelpRouter
    HelpType = htMixedMode
    CHMPopupTopics = 'CSHelp.txt'
    OnHelp = HelpRouter1Help
    ValidateID = False
    Left = 92
    Top = 68
  end
end