addfiles.dfm

zip算法的源码

object AddFile: TAddFile
  Left = 233
  Top = 168
  Width = 547
  Height = 444
  Caption = 'Add Files'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -10
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 173
    Top = 0
    Width = 366
    Height = 410
    Align = alClient
    TabOrder = 0
    object Panel5: TPanel
      Left = 1
      Top = 1
      Width = 104
      Height = 408
      Align = alLeft
      TabOrder = 0
      object Bevel1: TBevel
        Left = 3
        Top = 27
        Width = 99
        Height = 142
      end
      object Label2: TLabel
        Left = 28
        Top = 36
        Width = 44
        Height = 13
        Caption = 'Options'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -12
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object AddFileBut: TButton
        Left = 11
        Top = 192
        Width = 85
        Height = 21
        Caption = '&Add File ==>'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -12
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 0
        OnClick = AddFileButClick
      end
      object RemoveBut: TButton
        Left = 11
        Top = 266
        Width = 85
        Height = 21
        Caption = '&Remove <=='
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -12
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 2
        OnClick = RemoveButClick
      end
      object OKBut: TButton
        Left = 11
        Top = 316
        Width = 85
        Height = 21
        Caption = 'START &NOW'
        Default = True
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -12
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 3
        OnClick = OKButClick
      end
      object CancelBut: TButton
        Left = 11
        Top = 349
        Width = 85
        Height = 21
        Cancel = True
        Caption = '&Cancel'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -12
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 4
        OnClick = CancelButClick
      end
      object DirNameCB: TCheckBox
        Left = 6
        Top = 68
        Width = 95
        Height = 14
        Caption = 'Save DirNames'
        TabOrder = 5
      end
      object RecurseCB: TCheckBox
        Left = 6
        Top = 91
        Width = 83
        Height = 14
        Caption = 'Recurse Dirs'
        TabOrder = 6
      end
      object AddDirBut: TButton
        Left = 11
        Top = 222
        Width = 85
        Height = 21
        Caption = 'Add &Dir  ==>'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -12
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 1
        OnClick = AddDirButClick
      end
      object EncryptCB: TCheckBox
        Left = 6
        Top = 112
        Width = 87
        Height = 17
        Caption = 'Encrypt Files'
        TabOrder = 7
      end
    end
    object Panel6: TPanel
      Left = 105
      Top = 1
      Width = 260
      Height = 408
      Align = alClient
      TabOrder = 1
      object SelectedList: TListBox
        Left = 1
        Top = 27
        Width = 258
        Height = 352
        TabStop = False
        Align = alClient
        ItemHeight = 13
        MultiSelect = True
        TabOrder = 1
      end
      object Panel7: TPanel
        Left = 1
        Top = 1
        Width = 258
        Height = 26
        Align = alTop
        TabOrder = 0
        object Label1: TLabel
          Left = 53
          Top = 7
          Width = 72
          Height = 13
          Caption = 'Files to Add:'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -12
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object SortBut: TButton
          Left = 192
          Top = 4
          Width = 63
          Height = 19
          Caption = '&Sort'
          TabOrder = 0
          OnClick = SortButClick
        end
      end
      object Panel9: TPanel
        Left = 1
        Top = 379
        Width = 258
        Height = 28
        Align = alBottom
        TabOrder = 2
        object Label3: TLabel
          Left = 4
          Top = 8
          Width = 45
          Height = 13
          Caption = '&Wildcard:'
        end
        object WildEdit: TEdit
          Left = 52
          Top = 4
          Width = 73
          Height = 21
          TabOrder = 0
        end
        object AddWildBttn: TButton
          Left = 127
          Top = 4
          Width = 46
          Height = 21
          Caption = 'Add ^'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -12
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 1
          OnClick = AddWildBttnClick
        end
        object AddWildPathBttn: TButton
          Left = 175
          Top = 4
          Width = 81
          Height = 21
          Caption = 'Add + path ^'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -12
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 2
          OnClick = AddWildPathBttnClick
        end
      end
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 0
    Width = 173
    Height = 410
    Align = alLeft
    TabOrder = 1
    object Panel3: TPanel
      Left = 1
      Top = 1
      Width = 171
      Height = 23
      Align = alTop
      TabOrder = 0
      object DriveComboBox1: TDriveComboBox
        Left = 3
        Top = 3
        Width = 157
        Height = 19
        DirList = DirectoryListBox1
        TabOrder = 0
      end
    end
    object FileListBox1: TFileListBox
      Left = 1
      Top = 193
      Width = 171
      Height = 216
      Align = alClient
      ItemHeight = 13
      MultiSelect = True
      TabOrder = 3
    end
    object Panel4: TPanel
      Left = 1
      Top = 24
      Width = 171
      Height = 145
      Align = alTop
      TabOrder = 1
      object DirectoryListBox1: TDirectoryListBox
        Left = 1
        Top = 1
        Width = 169
        Height = 143
        Align = alClient
        FileList = FileListBox1
        ItemHeight = 16
        TabOrder = 0
      end
    end
    object Panel8: TPanel
      Left = 1
      Top = 169
      Width = 171
      Height = 24
      Align = alTop
      TabOrder = 2
      object SelectAllBut: TButton
        Left = 43
        Top = 4
        Width = 81
        Height = 17
        Caption = 'Select All Files'
        TabOrder = 0
        OnClick = SelectAllButClick
      end
    end
  end
end