PC World Komputer 1998 January/Pcwk0198.iso/Wtestowe/CALYPSO/_SETUP.1/unzip.dll/0/RCDATA/TZIPFORM/TZIPFORM.txt

Text File | 1997-07-17 | 8KB | 371 lines

object ZIPForm: TZIPForm
  Left = 257
  Top = 151
  ActiveControl = hcbZIPFileName
  BorderIcons = [biSystemMenu]
  BorderStyle = bsDialog
  Caption = 'ZIP file(s) ...'
  ClientHeight = 313
  ClientWidth = 447
  Font.Color = clBlack
  Font.Height = -12
  Font.Name = 'Arial'
  Font.Style = []
  KeyPreview = True
  Position = poScreenCenter
  Scaled = False
  OnCreate = FormCreate
  OnKeyPress = FormKeyPress
  PixelsPerInch = 96
  TextHeight = 15
  object pnZIPSettings: TPanel
    Left = 0
    Top = 0
    Width = 447
    Height = 231
    BevelOuter = bvNone
    TabOrder = 0
    object lbZIPFileName: TLabel
      Left = 9
      Top = 7
      Width = 80
      Height = 15
      AutoSize = False
      Caption = 'ZIP file &name:'
      FocusControl = hcbZIPFileName
    end
    object sbBrowseDir: TSpeedButton
      Left = 422
      Top = 6
      Width = 20
      Height = 19
      Caption = '�'
      OnClick = sbBrowseDirClick
    end
    object Label1: TLabel
      Left = 151
      Top = 50
      Width = 72
      Height = 15
      AutoSize = False
      Caption = 'Co&mment: '
      FocusControl = edZIPComment
    end
    object Label2: TLabel
      Left = 151
      Top = 90
      Width = 73
      Height = 15
      AutoSize = False
      Caption = 'P&assword: '
      FocusControl = edZIPEncryptCode
    end
    object Label3: TLabel
      Left = 8
      Top = 31
      Width = 79
      Height = 15
      Alignment = taRightJustify
      AutoSize = False
      Caption = 'Destination: '
    end
    object lbDestinationInfo: TLabel
      Left = 90
      Top = 31
      Width = 94
      Height = 15
      Caption = 'lbDestinationInfo'
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = 'Arial'
      Font.Style = [fsItalic]
      ParentFont = False
    end
    object hcbZIPFileName: THistoryComboBox
      Left = 89
      Top = 4
      Width = 329
      Height = 23
      DropDownCount = 15
      ItemHeight = 15
      TabOrder = 0
      OnChange = hcbZIPFileNameChange
      OnKeyDown = hcbZIPFileNameKeyDown
      OnFocusLost = hcbZIPFileNameFocusLost
      OnChoice = hcbZIPFileNameChange
      CanEdit = True
      IniSection = 'ZIPFiles'
      MaxHistoryLength = 25
    end
    object cbZIPRecurseDirs: TCheckBox
      Left = 9
      Top = 50
      Width = 140
      Height = 17
      Caption = '&Recurse directories'
      TabOrder = 1
    end
    object cbZIPPackDirNames: TCheckBox
      Left = 9
      Top = 68
      Width = 140
      Height = 17
      Caption = '&Pack path names'
      TabOrder = 2
    end
    object cbZIPMoveToZIP: TCheckBox
      Left = 9
      Top = 86
      Width = 140
      Height = 17
      Caption = 'Mo&ve to archive'
      TabOrder = 3
    end
    object gbZIPCompression: TGroupBox
      Left = 151
      Top = 133
      Width = 293
      Height = 60
      Caption = ' &ZIP Compression '
      TabOrder = 7
      object mlbFastest: TMMLabel
        Left = 3
        Top = 17
        Width = 50
        Height = 15
        Alignment = taCenter
        AutoSize = False
        Caption = 'Fastest'
        Font.Color = clBlack
        Font.Height = -12
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        Transparent = True
        OnClick = mlbFastestClick
        ColorNoFocus = clWindowText
      end
      object mlbNormal: TMMLabel
        Left = 119
        Top = 17
        Width = 50
        Height = 15
        Alignment = taCenter
        AutoSize = False
        Caption = 'Normal'
        Font.Color = clBlack
        Font.Height = -12
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        Transparent = True
        OnClick = mlbNormalClick
        ColorNoFocus = clWindowText
      end
      object MMLabel1: TMMLabel
        Left = 230
        Top = 17
        Width = 60
        Height = 15
        Alignment = taCenter
        AutoSize = False
        Caption = 'Maximum'
        Font.Color = clBlack
        Font.Height = -12
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        Transparent = True
        OnClick = MMLabel1Click
        ColorNoFocus = clWindowText
      end
      object trZIPCompression: TTrackBar
        Left = 18
        Top = 32
        Width = 251
        Height = 22
        Max = 9
        Min = 1
        Orientation = trHorizontal
        ParentShowHint = False
        PageSize = 1
        Frequency = 1
        Position = 1
        SelEnd = 0
        SelStart = 0
        ShowHint = False
        TabOrder = 0
        TickMarks = tmTopLeft
        TickStyle = tsAuto
      end
    end
    object pnMultiple: TPanel
      Left = 3
      Top = 106
      Width = 143
      Height = 87
      BevelInner = bvRaised
      BevelOuter = bvLowered
      TabOrder = 4
      object cbZIPMultipleDisks: TCheckBox
        Left = 6
        Top = 3
        Width = 135
        Height = 21
        Caption = 'M&ultiple disk archive'
        TabOrder = 0
        OnClick = cbZIPMultipleDisksClick
      end
      object rgPrepDestDisk: TRadioGroup
        Left = 6
        Top = 22
        Width = 131
        Height = 59
        Caption = ' Destination '
        ItemIndex = 1
        Items.Strings = (
          '&Format disk'
          '&Wipe disk')
        TabOrder = 1
      end
    end
    object btnOK: TButton
      Left = 49
      Top = 200
      Width = 75
      Height = 25
      Caption = '&OK'
      Default = True
      TabOrder = 8
      OnClick = btnOKClick
    end
    object btnCancel: TButton
      Left = 139
      Top = 200
      Width = 75
      Height = 25
      Cancel = True
      Caption = '&Cancel'
      ModalResult = 2
      TabOrder = 9
    end
    object btnZIPOptions: TButton
      Left = 231
      Top = 200
      Width = 75
      Height = 25
      Caption = 'Op&tions ...'
      TabOrder = 10
      OnClick = btnZIPOptionsClick
    end
    object btnHelp: TButton
      Left = 322
      Top = 200
      Width = 75
      Height = 25
      Caption = '&Help'
      TabOrder = 11
      OnClick = btnHelpClick
    end
    object edZIPComment: TEdit
      Left = 151
      Top = 66
      Width = 292
      Height = 23
      TabOrder = 5
    end
    object edZIPEncryptCode: TEdit
      Left = 151
      Top = 106
      Width = 292
      Height = 23
      PasswordChar = '*'
      TabOrder = 6
    end
  end
  object pnGauges: TPanel
    Left = 0
    Top = 231
    Width = 447
    Height = 82
    Align = alBottom
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 1
    object lbMajor: TLabel
      Left = 8
      Top = 41
      Width = 365
      Height = 15
      Caption = 'Please wait...'
    end
    object lbMinor: TLabel
      Left = 8
      Top = 4
      Width = 365
      Height = 14
      AutoSize = False
      Caption = 'Please wait...'
    end
    object btnStop: TButton
      Left = 388
      Top = 34
      Width = 49
      Height = 25
      Caption = '&Stop'
      TabOrder = 0
      OnClick = btnStopClick
    end
    object MinorGauge: TPercentBar3D
      Left = 8
      Top = 19
      Width = 371
      Height = 20
      BarColor = clRed
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
    end
    object MajorGauge: TPercentBar3D
      Left = 8
      Top = 56
      Width = 371
      Height = 20
      BarColor = clGreen
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
    end
  end
  object ZIPBrowseDirectory: TBrowseDirectoryDlg
    Root = idDrives
    Options = [bfDirectoriesOnly]
    EnableOKButton = False
    Left = 276
    Top = 216
  end
  object ZipFileVCL: TZipFile
    OnMajorCallback = ZipFileVCLMajorCallback
    OnMinorCallback = ZipFileVCLMinorCallback
    CompFactor = 1
    ZipFormats = [DosifyFlag]
    wZipSubOptions = [ZSO_MINORCANCEL]
    Options = [zfRecurseFlag, zfNoDirectoryNamesFlag, zfNoDirectoryEntriesFlag]
    Left = 119
    Top = 216
  end
  object UnZIPFileVCL: TUnzipFile
    OnMajorCallback = ZipFileVCLMajorCallback
    OnMinorCallback = ZipFileVCLMinorCallback
    IndexofItem = 0
    Options = [ufNoDirectoryNamesFlag, ufRecurseFlag, ufNoDirectoryItemsFlag]
    wUnzipSubOptions = [USO_MINORCANCEL]
    Left = 187
    Top = 216
  end
end