Chip 1998 January/CHIPCD1_98.iso/software/tipwin/mbm/_setup.1/mBackupMaster.exe/0/RCDATA/TVIEWACHIVEFORM/TVIEWACHIVEFORM.txt

Text File | 1997-05-04 | 2KB | 109 lines

object ViewAchiveForm: TViewAchiveForm
  Left = 345
  Top = 130
  BorderStyle = bsToolWindow
  Caption = 'View Archive'
  ClientHeight = 195
  ClientWidth = 340
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = elMenu
  Position = poScreenCenter
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object elFileList: TFileListBox
    Left = 0
    Top = 0
    Width = 340
    Height = 173
    Hint = 'Archive Files...'
    Align = alClient
    ItemHeight = 16
    ParentShowHint = False
    ShowGlyphs = True
    ShowHint = True
    TabOrder = 0
    OnClick = elFileListClick
    OnDblClick = elFileListDblClick
  end
  object elStatusBar: TStatusBar
    Left = 0
    Top = 173
    Width = 340
    Height = 22
    Panels = <
      item
        Alignment = taCenter
        Width = 140
      end
      item
        Alignment = taCenter
        Width = 100
      end
      item
        Alignment = taCenter
        Width = 100
      end>
    SimplePanel = False
    SizeGrip = False
  end
  object elMenu: TMainMenu
    Left = 16
    Top = 16
    object Archive1: TMenuItem
      Caption = '&Archive'
      ShortCut = 0
      object OpenZip: TMenuItem
        Caption = '&Open Compressed (Zip) File'
        Enabled = False
        ShortCut = 0
        OnClick = OpenZipClick
      end
      object N3: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object Copy1: TMenuItem
        Caption = '&Copy'
        ShortCut = 0
        object SelectedFile2: TMenuItem
          Caption = '&Selected File'
          ShortCut = 0
          OnClick = SelectedFile2Click
        end
        object AllFiles2: TMenuItem
          Caption = '&All Files'
          ShortCut = 0
          OnClick = AllFiles2Click
        end
      end
      object Delete1: TMenuItem
        Caption = 'D&elete'
        ShortCut = 0
        object SelectedFile1: TMenuItem
          Caption = '&Selected File'
          ShortCut = 0
          OnClick = SelectedFile1Click
        end
        object AllFiles1: TMenuItem
          Caption = '&All Files'
          ShortCut = 0
          OnClick = AllFiles1Click
        end
      end
      object N2: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object Close1: TMenuItem
        Caption = '&Close'
        ShortCut = 0
        OnClick = Close1Click
      end
    end
  end
end