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