Chip 2004 April/CMCD0404.ISO/Software/Shareware/Comunicatii/thebat/the_bat2.04.07.exe/thebat.exe/0/RCDATA/TFOLDERMAINTENANCER/TFOLDERMAINTENANCER.txt

Text File | 2004-02-23 | 9.0 KB | 380 lines

object FolderMaintenancer: TFolderMaintenancer
  Left = 270
  Top = 108
  HelpContext = 57000
  BorderIcons = [biSystemMenu]
  BorderStyle = bsDialog
  Caption = 'Folder Maintenance Centre'
  ClientHeight = 426
  ClientWidth = 497
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnClose = FormClose
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Book: TNotebook
    Left = 16
    Top = 8
    Width = 473
    Height = 377
    TabOrder = 0
    object TPage
      Left = 0
      Top = 0
      Caption = 'Setup'
      object Label1: TLabel
        Left = 0
        Top = 8
        Width = 125
        Height = 13
        Caption = 'Choose &Folders to process'
      end
      object GroupBox1: TGroupBox
        Left = 0
        Top = 280
        Width = 465
        Height = 97
        Caption = 'Actions to perform'
        TabOrder = 0
        object cbCompress: TCheckBox
          Left = 232
          Top = 48
          Width = 225
          Height = 17
          Caption = '&Compress (remove deleted messages)'
          TabOrder = 3
          OnClick = cbCheckIntegrityClick
        end
        object cbPurge: TCheckBox
          Left = 232
          Top = 24
          Width = 225
          Height = 17
          Caption = '&Purge old/exceeding messages'
          TabOrder = 1
          OnClick = cbCheckIntegrityClick
        end
        object cbCheckIntegrity: TCheckBox
          Left = 16
          Top = 24
          Width = 201
          Height = 17
          Caption = 'Check &Integrity/Repair'
          TabOrder = 0
          OnClick = cbCheckIntegrityClick
        end
        object cbKillDupes: TCheckBox
          Left = 16
          Top = 48
          Width = 201
          Height = 17
          Caption = 'Remove &Duplicates'
          TabOrder = 2
          OnClick = cbCheckIntegrityClick
        end
        object cbFindOrphans: TCheckBox
          Left = 16
          Top = 72
          Width = 441
          Height = 17
          Caption = 'Find "&Orphaned" files in the attachment directories'
          TabOrder = 4
          OnClick = cbFindOrphansClick
        end
      end
      object bSelectAll: TButton
        Tag = 1
        Left = 168
        Top = 250
        Width = 145
        Height = 25
        Caption = 'Select &All'
        TabOrder = 1
        OnClick = bSelectAllClick
      end
      object bUnSelectAll: TButton
        Left = 328
        Top = 250
        Width = 137
        Height = 25
        Caption = '&Unselect All'
        TabOrder = 2
        OnClick = bSelectAllClick
      end
      object Panel1: TPanel
        Left = 0
        Top = 24
        Width = 465
        Height = 217
        BevelOuter = bvLowered
        Caption = '~'
        TabOrder = 3
        object lFolders: TMLVGrid
          Left = 1
          Top = 18
          Width = 463
          Height = 198
          Align = alClient
          BorderStyle = bsNone
          DefaultRowHeight = 16
          DefaultDrawing = False
          FixedCols = 0
          RowCount = 1
          FixedRows = 0
          Options = [goThumbTracking]
          TabOrder = 0
          OnKeyDown = lFoldersKeyDown
          OnMouseDown = lFoldersMouseDown
          AltDrag = True
          AutoColResize = True
          AutoSearch = False
          MultiSelect = False
          Header = hFolders
          ImmediateSelect = False
          OnDrawItemImage = lFoldersDrawItemImage
        end
        object hFolders: THeaderControl
          Left = 1
          Top = 1
          Width = 463
          Height = 17
          Sections = <>
        end
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'Process'
      object lCurProcess: TLabel
        Left = 0
        Top = 9
        Width = 465
        Height = 33
        AutoSize = False
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object lOverall: TLabel
        Left = 0
        Top = 72
        Width = 79
        Height = 13
        Caption = 'Overall progress:'
      end
      object lReport: TLabel
        Left = 0
        Top = 120
        Width = 32
        Height = 13
        Caption = '&Report'
        FocusControl = eLog
      end
      object pbCurProgress: TProgressBar
        Left = 0
        Top = 42
        Width = 465
        Height = 23
        TabOrder = 0
      end
      object pbOverall: TProgressBar
        Left = 0
        Top = 88
        Width = 465
        Height = 25
        TabOrder = 1
      end
      object eLog: TMemo
        Left = 0
        Top = 136
        Width = 465
        Height = 161
        ScrollBars = ssBoth
        TabOrder = 2
      end
      object gbTotals: TGroupBox
        Left = 0
        Top = 304
        Width = 465
        Height = 73
        Caption = 'Total results'
        TabOrder = 3
        object lbDupes: TLabel
          Left = 69
          Top = 16
          Width = 83
          Height = 13
          Alignment = taRightJustify
          Caption = 'Duplicates found:'
        end
        object lbPurged: TLabel
          Left = 65
          Top = 32
          Width = 87
          Height = 13
          Alignment = taRightJustify
          Caption = 'Messages purged:'
        end
        object lbSaved: TLabel
          Left = 64
          Top = 48
          Width = 88
          Height = 13
          Alignment = taRightJustify
          Caption = 'Disk space saved:'
        end
        object lDupes: TLabel
          Left = 160
          Top = 16
          Width = 8
          Height = 13
          Caption = '0'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object lPurged: TLabel
          Left = 160
          Top = 32
          Width = 8
          Height = 13
          Caption = '0'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object lSaved: TLabel
          Left = 160
          Top = 48
          Width = 8
          Height = 13
          Caption = '0'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object lFoldersChecked: TLabel
          Left = 408
          Top = 16
          Width = 8
          Height = 13
          Caption = '0'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object lDamaged: TLabel
          Left = 408
          Top = 32
          Width = 8
          Height = 13
          Caption = '0'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
          Visible = False
        end
        object lRecovered: TLabel
          Left = 408
          Top = 48
          Width = 8
          Height = 13
          Caption = '0'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
          Visible = False
        end
        object lbRecovered: TLabel
          Left = 298
          Top = 48
          Width = 102
          Height = 13
          Alignment = taRightJustify
          Caption = 'Messages recovered:'
          Visible = False
        end
        object lbDamaged: TLabel
          Left = 287
          Top = 32
          Width = 113
          Height = 13
          Alignment = taRightJustify
          Caption = 'Damaged folders found:'
          Visible = False
        end
        object lbFoldersChecked: TLabel
          Left = 318
          Top = 16
          Width = 82
          Height = 13
          Alignment = taRightJustify
          Caption = 'Folders checked:'
        end
      end
    end
  end
  object bStart: TButton
    Left = 176
    Top = 392
    Width = 97
    Height = 25
    Caption = '&Start'
    Default = True
    Enabled = False
    TabOrder = 1
    OnClick = bStartClick
  end
  object bStop: TButton
    Left = 288
    Top = 392
    Width = 89
    Height = 25
    Caption = '&Stop'
    Enabled = False
    TabOrder = 2
    OnClick = bStopClick
  end
  object bClose: TButton
    Left = 392
    Top = 392
    Width = 91
    Height = 25
    Cancel = True
    Caption = 'Close'
    ModalResult = 2
    TabOrder = 3
  end
end