arch1.dfm

用于Delphi和BCB的高速压缩组件库

object MainForm: TMainForm
  Left = 215
  Top = 161
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  ClientHeight = 419
  ClientWidth = 503
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  Position = poScreenCenter
  OnActivate = FormActivate
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 16
    Top = 56
    Width = 417
    Height = 305
    BevelInner = bvLowered
    BevelOuter = bvNone
    BorderStyle = bsSingle
    TabOrder = 0
    object Label2: TLabel
      Left = 224
      Top = 64
      Width = 49
      Height = 13
      Caption = 'Select file:'
    end
    object Label3: TLabel
      Left = 24
      Top = 64
      Width = 76
      Height = 13
      Caption = 'Select directory:'
    end
    object Label4: TLabel
      Left = 24
      Top = 8
      Width = 65
      Height = 13
      Caption = 'Choose drive:'
    end
    object FileListBox1: TFileListBox
      Left = 224
      Top = 80
      Width = 169
      Height = 185
      BevelKind = bkFlat
      ItemHeight = 16
      MultiSelect = True
      PopupMenu = AddMenu
      ShowGlyphs = True
      TabOrder = 0
      OnChange = FileListBox1Change
      OnDblClick = FileListBox1DblClick
    end
    object DirectoryListBox1: TDirectoryListBox
      Left = 24
      Top = 80
      Width = 169
      Height = 185
      BevelKind = bkFlat
      FileList = FileListBox1
      ItemHeight = 16
      PopupMenu = AddMenu
      TabOrder = 1
      OnContextPopup = DirectoryListBox1ContextPopup
    end
    object DriveComboBox1: TDriveComboBox
      Left = 24
      Top = 24
      Width = 169
      Height = 19
      DirList = DirectoryListBox1
      TabOrder = 2
    end
    object mComment: TMemo
      Left = 224
      Top = -80
      Width = 185
      Height = 89
      BevelKind = bkFlat
      ReadOnly = True
      TabOrder = 3
      Visible = False
    end
    object Label1: TEdit
      Left = 24
      Top = 48
      Width = 377
      Height = 13
      BevelEdges = []
      BevelInner = bvNone
      BevelOuter = bvNone
      BorderStyle = bsNone
      Color = clBtnFace
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      ReadOnly = True
      TabOrder = 4
    end
  end
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
    Width = 503
    Height = 36
    ButtonHeight = 32
    ButtonWidth = 32
    Caption = 'ToolBar1'
    Images = ImageList1
    TabOrder = 1
    object ToolButton8: TToolButton
      Left = 0
      Top = 2
      Action = ANew
      Caption = '&Create archive'
      ParentShowHint = False
      ShowHint = True
    end
    object ToolButton2: TToolButton
      Left = 32
      Top = 2
      Action = AOpen
      ParentShowHint = False
      ShowHint = True
    end
    object ToolButton3: TToolButton
      Left = 64
      Top = 2
      Width = 8
      Caption = 'ToolButton3'
      ImageIndex = 2
      Style = tbsSeparator
    end
    object ToolButton4: TToolButton
      Left = 72
      Top = 2
      Action = AAdd
      ParentShowHint = False
      ShowHint = True
    end
    object ToolButton5: TToolButton
      Left = 104
      Top = 2
      Action = AExtract
      ParentShowHint = False
      ShowHint = True
    end
    object ToolButton7: TToolButton
      Left = 136
      Top = 2
      Hint = 'Update files in archive'
      Action = AUpdate
      ParentShowHint = False
      ShowHint = True
    end
    object ToolButton1: TToolButton
      Left = 168
      Top = 2
      Width = 8
      Caption = 'ToolButton1'
      ImageIndex = 3
      Style = tbsSeparator
    end
    object ToolButton6: TToolButton
      Left = 176
      Top = 2
      Action = AClose
      ParentShowHint = False
      ShowHint = True
    end
  end
  object MainMenu1: TMainMenu
    Images = ImageList1
    Left = 312
    Top = 16
    object File1: TMenuItem
      Caption = 'File'
      object Createarchive1: TMenuItem
        Action = ANew
        Caption = '&Create archive'
      end
      object Open1: TMenuItem
        Action = AOpen
      end
      object Close1: TMenuItem
        Action = AClose
      end
      object Separator: TMenuItem
        Caption = '-'
      end
      object Exit1: TMenuItem
        Action = ACloseApp
      end
    end
    object Actions1: TMenuItem
      Caption = 'Actions'
      object Add1: TMenuItem
        Action = AAdd
      end
      object Extract1: TMenuItem
        Action = AExtract
      end
      object Updatearchive2: TMenuItem
        Action = AUpdate
      end
    end
    object Help1: TMenuItem
      Caption = 'Help'
      object About1: TMenuItem
        Action = AAbout
      end
    end
  end
  object ActionList1: TActionList
    Images = ImageList1
    Left = 280
    Top = 16
    object AOpen: TAction
      Caption = '&Open Archive'
      Hint = 'Open an existing archive'
      ImageIndex = 4
      OnExecute = AOpenExecute
    end
    object AClose: TAction
      Caption = '&Close Archive'
      Enabled = False
      Hint = 'Close archive'
      ImageIndex = 1
      OnExecute = ACloseExecute
    end
    object AAdd: TAction
      Caption = '&Add...'
      Hint = 'Add files to the archive'
      ImageIndex = 3
      OnExecute = AAddExecute
    end
    object AExtract: TAction
      Caption = '&Extract...'
      Enabled = False
      Hint = 'Extract files from the archive'
      ImageIndex = 2
      OnExecute = AExtractExecute
    end
    object ACloseApp: TAction
      Caption = '&Exit'
      ImageIndex = 6
      OnExecute = ACloseAppExecute
    end
    object AAbout: TAction
      Caption = '&About...'
      OnExecute = AAboutExecute
    end
    object AUpdate: TAction
      Caption = '&Update archive...'
      Enabled = False
      Hint = 'Update selected archive'
      ImageIndex = 7
      OnExecute = AUpdateExecute
    end
    object ANew: TAction
      Caption = 'ANew'
      Hint = 'Create a new archive...'
      ImageIndex = 8
      OnExecute = ANewExecute
    end
  end
  object ImageList1: TImageList
    Left = 344
    Top = 16
    Bitmap = {
      494C010109000E00040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
      0000000000003600000028000000400000004000000001001000000000000020
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000