uviewzip.dfm

zip算法的源码

object fViewZip: TfViewZip
  Left = 317
  Top = 207
  Width = 647
  Height = 456
  Caption = 'Add comment to a ZIP file'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  PixelsPerInch = 96
  TextHeight = 13
  object Image1: TImage
    Left = 7
    Top = 0
    Width = 104
    Height = 41
    Picture.Data = {
      07544269746D61702E080000424D2E0800000000000076000000280000006400
      0000260000000100040000000000B80700000000000000000000100000000000
      0000000000000000800000800000008080008000000080008000808000008080
      8000C0C0C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFF
      FF00888888888888888888888888888888888888888888888888888888888888
      8888888888888888888888888888888888888888000088888888888888888888
      8880088888888888888888888888888888888888888888888888888888888888
      8888888888888888000088888888888888888888888007008888888888888888
      8888888888888888888888888888888888888888888888888888888800008888
      8888888888888888888007007008888888888888888888888888888888888888
      8888888888888888888888888888888800008888888888888888888888800700
      7007008888888888888888888888888888888888888888888888888888888888
      8888888800008888888888888888888888800700700700700888888000000000
      0000008888888888888888888888888888888888888888880000888888888888
      8888888888800700700700700700883333333333333330088888888888888888
      8888888888888888888888880000888888888888888888888880070070070070
      070083BBBBBBBBBBBBBBB3008888888888888888888888888888888888888888
      000088888888888888888888878787007007007007003BBBBBBBBBBBBBBBBB30
      8888888888888888888888888888888888888888000088888888888888888888
      787878787007007007003BBBBBBBBBBBBBBBBB30088888888888888888888888
      888888888888888800008888888888888888888787878787878700800703BBBB
      B3333333333BBBB3000888888888888888888888888888888888888800008888
      888888888888887878787878787878700703BBBB3BBBBBBBBBB3BBBB33000008
      8888888888888888888888888888888800008888888888888888888787878787
      878787878883BBB3BBBBBBBBBBBB3BBBBB333300888888888888888888888888
      888888880000888888888888888888787878787878787833333333333333333B
      BBBBB3BBBBBBBB30088888888888888888888888888888880000888888888888
      8888878787878787878783BBBBBBBBBBBBBBBB3BBBBBBB3BBBBBBBB300888888
      8888888888888888888888880000888888888888888888787878787878783BBB
      BBBBBBBBBBBBBB3BBBBBBBB333BBBBB300880080088008008800800888888888
      0000888888888888888887878787878787873BBBBBBBBBB33333BB3BBBBBBBBB
      BB3BBBBB30070070077007007700700888888888000088888888888888888878
      787878787873BBBBBBBBBB383333333333BBBBBBB33BBBBB3007007007700700
      7700700888888888000088888888888888888787878787878783BBFFFFFFBB33
      33333333333BBBBBBB3BBBBB3007007777700777770077788888888800008888
      8888888888888878787878787873B333333FFB3BBBBBBBBBB333BBBBBB3BBBBB
      3007007700700770070077008888888800008888888888888888878787878787
      8783B3888883FB3FBBBBBBBBBB33BBBBBB3BBBBB300700770070077007007700
      88888888000088888888888888888878787878787873F3888833FB3FFBBBBBBB
      BBB3BBBBBB3BBBBB300777770077777007777700888888880000888888888888
      88888787878787878783FB333333BB33FFFFBFBBBB3BBBBBBB3BBBBB30777007
      007700700770070088888888000088888888888888888878787878787873FBBB
      BBBBBB383333333333BBBBBBBB3BBBBB30777007007700700770070088888888
      0000888888888888888887878787878787883FBBBBBBBBB33333BB3BBBBBBBBB
      BB3BBBBB38888008008800800880080088888888000088888888888888888878
      7878787878783FBBBBBBBBBBBBBBBB3BBBBBBBBFFFBBBBB38888888888888888
      888888888888888800008888888888888888878787878787878783FFFFFFFFFF
      FFFFFF3BBBBBBBFBBBBBBBB38888888888888888888888888888888800008888
      88888888888888787878787878787833333333333333333BBBBBBFBBBBBBBB38
      8888888888888888888888888888888800008888888888888888878787878787
      878787878883BBBFBBBBBBBBBBBBFBBBBB333388888888888888888888888888
      8888888800008888888888888888887878787878787878787803BBBBFBBBBBBB
      BBBFBBBB33888888888888888888888888888888888888880000888888888888
      8888888787878787878788800703BBBBBFFFFFFFFFFBBBB38888888888888888
      8888888888888888888888880000888888888888888888887878787878780070
      07003BBBBBBBBBBBBBBBBB388888888888888888888888888888888888888888
      000088888888888888888888888887878007007007003BBBBBBBBBBBBBBBBB38
      8888888888888888888888888888888888888888000088888888888888888888
      8888888880070070070083BBBBBBBBBBBBBBB388888888888888888888888888
      8888888888888888000088888888888888888888888888888007007007008833
      3333333333333888888888888888888888888888888888888888888800008888
      8888888888888888888888888007007008888888888888888888888888888888
      8888888888888888888888888888888800008888888888888888888888888888
      8007008888888888888888888888888888888888888888888888888888888888
      8888888800008888888888888888888888888888800888888888888888888888
      8888888888888888888888888888888888888888888888880000}
  end
  object Label1: TLabel
    Left = 143
    Top = 13
    Width = 410
    Height = 18
    AutoSize = False
    Caption = 'ZipFileName'
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlack
    Font.Height = -15
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object FileListBox1: TFileListBox
    Left = 7
    Top = 64
    Width = 143
    Height = 353
    FileEdit = Edit1
    ItemHeight = 13
    Mask = '*.zip'
    TabOrder = 0
    OnChange = FileListBox1Change
    OnDblClick = FileListBox1DblClick
  end
  object DirectoryListBox1: TDirectoryListBox
    Left = 158
    Top = 90
    Width = 187
    Height = 327
    FileList = FileListBox1
    ItemHeight = 16
    TabOrder = 1
  end
  object DriveComboBox1: TDriveComboBox
    Left = 158
    Top = 67
    Width = 187
    Height = 19
    DirList = DirectoryListBox1
    TabOrder = 2
  end
  object Edit1: TEdit
    Left = 7
    Top = 40
    Width = 338
    Height = 21
    ReadOnly = True
    TabOrder = 3
    Text = '*.zip'
  end
  object GroupBox1: TGroupBox
    Left = 349
    Top = 40
    Width = 282
    Height = 377
    Caption = 'File_ID.diz Contents'
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = [fsBold, fsItalic]
    ParentFont = False
    TabOrder = 4
    object Memo: TMemo
      Left = 8
      Top = 16
      Width = 266
      Height = 321
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Lines.Strings = (
        ''
        '')
      ParentFont = False
      ScrollBars = ssVertical
      TabOrder = 0
    end
    object btnTilfoj: TButton
      Left = 14
      Top = 344
      Width = 65
      Height = 25
      Caption = 'Create Diz'
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      OnClick = btnTilfojClick
    end
    object btnOpdater: TButton
      Left = 115
      Top = 344
      Width = 68
      Height = 25
      Caption = 'Update Diz'
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 2
      OnClick = btnOpdaterClick
    end
    object btnSlet: TButton
      Left = 214
      Top = 344
      Width = 60
      Height = 25
      Caption = 'Erase Diz'
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 3
      OnClick = btnSletClick
    end
  end
  object btnAfslut: TButton
    Left = 562
    Top = 13
    Width = 63
    Height = 20
    Caption = '&Exit'
    TabOrder = 5
    OnClick = btnAfslutClick
  end
  object ZipBuilder1: TZipBuilder
    VersionInfo = '1.70 '
    AddStoreSuffixes = [assGIF, assPNG, assZ, assZIP, assZOO, assARC, assLZH, assARJ, assTAZ, assTGZ, assLHA, assRAR, assACE, assCAB, assGZ, assGZIP, assJAR]
    SFXOptions = [SFXCheckSize]
    SFXPath = 'ZipSFX.bin'
    SFXCaption = 'Self-extracting Archive'
    Left = 350
    Top = 5
  end
end