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