object UnzipForm: TUnzipForm Left = 245 Top = 236 BorderIcons = [biSystemMenu] BorderStyle = bsSingle Caption = 'Extract files' ClientHeight = 115 ClientWidth = 358 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Icon.Data = {} Position = poScreenCenter OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object Label1: TLabel Left = 10 Top = 13 Width = 48 Height = 13 Caption = 'Extract to:' end object ALabel1: TALabel Left = 40 Top = 74 Width = 82 Height = 29 AutoSize = False Caption = 'Extract' Font.Charset = ANSI_CHARSET Font.Color = clRed Font.Height = -19 Font.Name = 'Comic Sans MS' Font.Style = [fsBold] ParentFont = False end object Image1: TImage Left = 8 Top = 72 Width = 32 Height = 32 AutoSize = True Picture.Data = {} Stretch = True end object DoveUnzip: TEdit Left = 65 Top = 9 Width = 192 Height = 21 TabOrder = 0 Text = 'C:\TEMP' end object B_OK: TBitBtn Left = 175 Top = 79 Width = 88 Height = 23 Font.Charset = DEFAULT_CHARSET Font.Color = clBlue Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 1 OnClick = B_OKClick Kind = bkOK end object B_Abort: TBitBtn Left = 267 Top = 79 Width = 89 Height = 23 Font.Charset = DEFAULT_CHARSET Font.Color = clBlue Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 2 OnClick = B_AbortClick Kind = bkAbort end object ListaDir: TDirectoryListBox Left = 64 Top = 32 Width = 192 Height = 70 ItemHeight = 16 TabOrder = 3 Visible = False OnChange = ListaDirChange end object B_ScegliDir: TBitBtn Left = 266 Top = 10 Width = 88 Height = 20 Caption = 'Directory...' Font.Charset = DEFAULT_CHARSET Font.Color = clBlue Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 4 OnClick = B_ScegliDirClick Style = bsNew end object ListaDrive: TDriveComboBox Left = 64 Top = 10 Width = 192 Height = 19 DirList = ListaDir TabOrder = 5 Visible = False end object MarsCaption1: TMarsCaption ActiveBeginColor = clBlue ActiveEndColor = clNavy ActiveFontColor = clWhite InactiveBeginColor = clGray InactiveEndColor = clSilver InactiveFontColor = clSilver ApplicationNameFont.Charset = DEFAULT_CHARSET ApplicationNameFont.Color = clWindowText ApplicationNameFont.Height = -11 ApplicationNameFont.Name = 'MS Sans Serif' ApplicationNameFont.Style = [fsBold] CaptionFont.Charset = DEFAULT_CHARSET CaptionFont.Color = clWindowText CaptionFont.Height = -11 CaptionFont.Name = 'MS Sans Serif' CaptionFont.Style = [] NumColors = 64 AutoSize = False Left = 8 Top = 41 end end