home *** CD-ROM | disk | FTP | other *** search
- object ViewZipFileForm: TViewZipFileForm
- Left = 225
- Top = 157
- BorderStyle = bsToolWindow
- Caption = 'Examine...'
- ClientHeight = 283
- ClientWidth = 596
- Font.Color = clWindowText
- Font.Height = -14
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Menu = elZipMenu
- Position = poScreenCenter
- PixelsPerInch = 120
- TextHeight = 16
- object elStatusBar: TStatusBar
- Left = 0
- Top = 260
- Width = 596
- Height = 23
- Panels = <>
- SimplePanel = False
- end
- object elStringList: TStringGrid
- Left = 0
- Top = 0
- Width = 596
- Height = 260
- Hint = 'List of Files in Archive'
- Align = alClient
- ColCount = 6
- Ctl3D = True
- DefaultColWidth = 70
- DefaultRowHeight = 20
- FixedCols = 0
- RowCount = 10
- Options = [goFixedVertLine, goFixedHorzLine, goColSizing, goRowSelect]
- ParentCtl3D = False
- ParentShowHint = False
- ShowHint = True
- TabOrder = 1
- end
- object elZipMenu: TMainMenu
- Left = 16
- Top = 16
- object elZipFileName1: TMenuItem
- Caption = 'el Zip File Name'
- ShortCut = 0
- object Add1: TMenuItem
- Caption = '&Add'
- ShortCut = 0
- OnClick = Add1Click
- end
- object Delete1: TMenuItem
- Caption = '&Delete'
- ShortCut = 0
- OnClick = Delete1Click
- end
- object Extract1: TMenuItem
- Caption = '&Extract'
- ShortCut = 0
- OnClick = Extract1Click
- end
- object N1: TMenuItem
- Caption = '-'
- ShortCut = 0
- end
- object Fix1: TMenuItem
- Caption = '&Fix'
- ShortCut = 0
- OnClick = Fix1Click
- end
- object Test1: TMenuItem
- Caption = '&Test'
- ShortCut = 0
- OnClick = Test1Click
- end
- object N2: TMenuItem
- Caption = '-'
- ShortCut = 0
- end
- object Comment1: TMenuItem
- Caption = '&Comment'
- ShortCut = 0
- OnClick = Comment1Click
- end
- object N3: TMenuItem
- Caption = '-'
- ShortCut = 0
- end
- object Close1: TMenuItem
- Caption = '&Close'
- ShortCut = 0
- OnClick = Close1Click
- end
- end
- end
- object elZip: TXceedZip
- Compression = 6
- StoredExtensions = '.ZIP;.LZH;.ARC;.ARJ;.ZOO'
- UsePaths = False
- OnListing = elZipListing
- Left = 56
- Top = 16
- end
- object AddFileToZip: TOpenDialog
- FileEditStyle = fsEdit
- Filter = 'All Files|*.*'
- Title = 'Add File To Archive'
- Left = 104
- Top = 16
- end
- end
-