unit1.dfm

这是一套全面的网络组件

object Form1: TForm1
  Left = 192
  Top = 114
  BorderStyle = bsDialog
  Caption = 'GZip / Deflate'
  ClientHeight = 255
  ClientWidth = 381
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 8
    Top = 8
    Width = 353
    Height = 33
    AutoSize = False
    Caption = 
      'This sample demonstrates using the TclGZip component for deflati' +
      'ng / inflating data stream.'
    WordWrap = True
  end
  object Label2: TLabel
    Left = 16
    Top = 112
    Width = 53
    Height = 13
    Caption = 'Source File'
  end
  object Label3: TLabel
    Left = 16
    Top = 144
    Width = 72
    Height = 13
    Caption = 'Destination File'
  end
  object Label4: TLabel
    Left = 7
    Top = 56
    Width = 354
    Height = 33
    AutoSize = False
    Caption = 
      'The deflated file is not compatible with WinZip file format sinc' +
      'e it does not contain the description header.'
    WordWrap = True
  end
  object btnCompress: TButton
    Left = 48
    Top = 192
    Width = 121
    Height = 25
    Caption = 'Compress File'
    TabOrder = 4
    OnClick = btnCompressClick
  end
  object btnUncompress: TButton
    Left = 216
    Top = 192
    Width = 121
    Height = 25
    Caption = 'Uncompress File'
    TabOrder = 5
    OnClick = btnUncompressClick
  end
  object edtSource: TEdit
    Left = 96
    Top = 112
    Width = 241
    Height = 21
    TabOrder = 0
  end
  object btnSource: TButton
    Left = 344
    Top = 112
    Width = 25
    Height = 25
    Caption = '...'
    TabOrder = 1
    OnClick = btnSourceClick
  end
  object edtDestination: TEdit
    Left = 96
    Top = 144
    Width = 241
    Height = 21
    TabOrder = 2
  end
  object btnDestination: TButton
    Left = 344
    Top = 144
    Width = 25
    Height = 25
    Caption = '...'
    TabOrder = 3
    OnClick = btnDestinationClick
  end
  object ProgressBar1: TProgressBar
    Left = 0
    Top = 238
    Width = 381
    Height = 17
    Align = alBottom
    TabOrder = 6
  end
  object OpenDialog1: TOpenDialog
    Options = [ofHideReadOnly, ofFileMustExist, ofEnableSizing]
    Left = 272
    Top = 112
  end
  object SaveDialog1: TSaveDialog
    Left = 272
    Top = 144
  end
  object clGZip1: TclGZip
    OnProgress = clGZip1Progress
    Left = 208
    Top = 80
  end
end