object Mainform: TMainform Left = 80 Top = 79 Width = 620 Height = 440 ActiveControl = ZipOpenBut Caption = 'Delphi Zip Demo1' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] Position = poScreenCenter Scaled = False OnCreate = FormCreate OnDestroy = FormDestroy PixelsPerInch = 120 TextHeight = 16 object Panel2: TPanel Left = 0 Top = 0 Width = 612 Height = 125 Align = alTop TabOrder = 0 object Panel3: TPanel Left = 1 Top = 1 Width = 124 Height = 123 Align = alLeft TabOrder = 1 object DeleteZipBut: TButton Left = 15 Top = 83 Width = 96 Height = 26 Caption = 'Destroy Zipfile' TabOrder = 0 OnClick = DeleteZipButClick end object NewZipBut: TButton Left = 15 Top = 48 Width = 96 Height = 26 Caption = '&New Zipfile' TabOrder = 1 OnClick = NewZipButClick end object ZipOpenBut: TButton Left = 15 Top = 13 Width = 96 Height = 25 Caption = '&Open Zip' TabOrder = 2 OnClick = ZipOpenButClick end end object Panel1: TPanel Left = 508 Top = 1 Width = 103 Height = 123 Align = alRight TabOrder = 0 object Bevel2: TBevel Left = 9 Top = 72 Width = 85 Height = 33 end object Label1: TLabel Left = 64 Top = 79 Width = 24 Height = 16 Caption = 'files' end object FilesLabel: TLabel Left = 27 Top = 79 Width = 7 Height = 16 Caption = '0' end object CloseBut: TButton Left = 9 Top = 20 Width = 85 Height = 27 Caption = 'E&xit' TabOrder = 0 OnClick = CloseButClick end end object Panel4: TPanel Left = 125 Top = 1 Width = 383 Height = 123 Align = alClient TabOrder = 2 object ZipFName: TLabel Left = 84 Top = 86 Width = 54 Height = 18 Caption = '' Font.Charset = ANSI_CHARSET Font.Color = clBlack Font.Height = -15 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end object Label2: TLabel Left = 8 Top = 86 Width = 69 Height = 18 Caption = 'Zip Name:' Font.Charset = ANSI_CHARSET Font.Color = clBlack Font.Height = -15 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end object Bevel1: TBevel Left = 7 Top = 5 Width = 369 Height = 68 end object DeleteBut: TButton Left = 250 Top = 20 Width = 111 Height = 36 Caption = '&Delete From Zip' TabOrder = 0 OnClick = DeleteButClick end object AddBut: TButton Left = 142 Top = 20 Width = 85 Height = 36 Caption = '&Add to Zip' TabOrder = 1 OnClick = AddButClick end object ExtractBut: TButton Left = 15 Top = 20 Width = 102 Height = 36 Caption = '&Extract from Zip' TabOrder = 2 OnClick = ExtractButClick end end end object StringGrid1: TSortGrid Left = 0 Top = 125 Width = 612 Height = 288 Align = alClient DefaultRowHeight = 18 FixedCols = 0 Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -15 Font.Name = 'MS Sans Serif' Font.Style = [] Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goColSizing, goRowSelect, goThumbTracking] ParentFont = False TabOrder = 1 CaseSensitive = False AlignmentHorz = taLeftJustify AlignmentVert = taTopJustify ClickSorting = True BevelStyle = cbNone ProportionalScrollBars = True ExtendedKeys = False end object ZipMaster1: TZipMaster Verbose = False Trace = False AddCompLevel = 9 AddOptions = [] ExtrOptions = [] OnDirUpdate = ZipMaster1DirUpdate OnProgress = ZipMaster1Progress OnMessage = ZipMaster1Message Left = 464 Top = 80 end object OpenDialog1: TOpenDialog Left = 424 Top = 80 end end