object MainForm: TMainForm Left = 235 Top = 124 BorderIcons = [biSystemMenu] BorderStyle = bsDialog Caption = 'ASTEC ZipWizard' ClientHeight = 273 ClientWidth = 427 Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Position = poScreenCenter OnCloseQuery = FormCloseQuery OnCreate = FormCreate OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object PageControl1: TPageControl Left = 0 Top = 0 Width = 427 Height = 273 ActivePage = Third Align = alClient ParentShowHint = False ShowHint = True TabOrder = 0 object First: TTabSheet Caption = 'First' TabVisible = False OnEnter = FirstEnter object Image1: TImage Left = 94 Top = 14 Width = 305 Height = 91 Picture.Data = {} Stretch = True end object Label1: TLabel Left = 238 Top = 110 Width = 160 Height = 29 Caption = 'ZipWizard 1.0' Font.Color = clBlack Font.Height = -24 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Label2: TLabel Left = 14 Top = 156 Width = 339 Height = 13 Caption = 'Please select a Zip file to work with or click on the "CreateNew' + '" Button.' end object ZipFileName: TEdit Left = 13 Top = 174 Width = 324 Height = 21 TabOrder = 0 OnChange = ZipFileNameChange end object BrowseButton1: TButton Left = 341 Top = 174 Width = 65 Height = 21 Caption = '&Browse' TabOrder = 1 OnClick = BrowseButton1Click end object CreateNewBtn: TButton Left = 341 Top = 198 Width = 65 Height = 21 Caption = 'CreateNe&w' TabOrder = 2 OnClick = CreateNewBtnClick end object Panel2: TPanel Left = 0 Top = -33 Width = 0 Height = 33 Align = alBottom BevelOuter = bvLowered Caption = 'Panel1' TabOrder = 3 object Button3: TButton Left = 336 Top = 6 Width = 75 Height = 21 Caption = '&Close' TabOrder = 0 OnClick = CloseClick end object Button4: TButton Left = 180 Top = 6 Width = 75 Height = 21 Caption = '<< &Previous' Enabled = False TabOrder = 1 end object Button5: TButton Left = 258 Top = 6 Width = 75 Height = 21 Caption = '&Next >>' Default = True Enabled = False TabOrder = 2 OnClick = Button5Click end end object Button21: TButton Left = 232 Top = 198 Width = 106 Height = 21 Caption = '&Open with Szipw32' Enabled = False TabOrder = 4 OnClick = Button21Click end object RegBox: TCheckBox Left = 12 Top = 200 Width = 185 Height = 17 Caption = 'Register ZipWizard with Zip files' State = cbChecked TabOrder = 5 end end object Second: TTabSheet Caption = 'Second' TabVisible = False OnEnter = SecondEnter object Label3: TLabel Left = 59 Top = 52 Width = 305 Height = 16 Caption = 'Please select the action you want to perform' Font.Color = clBlack Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object AddToZip: TRadioButton Left = 130 Top = 108 Width = 135 Height = 17 Caption = '&Add files to the Zip file' TabOrder = 0 end object ExtractFromZip: TRadioButton Left = 130 Top = 135 Width = 163 Height = 17 Caption = '&Extract files from the Zip file' Checked = True TabOrder = 1 TabStop = True end object Panel3: TPanel Left = 0 Top = 230 Width = 419 Height = 33 Align = alBottom BevelOuter = bvLowered Caption = 'Panel1' TabOrder = 2 object Button6: TButton Left = 336 Top = 6 Width = 75 Height = 21 Caption = '&Close' TabOrder = 0 OnClick = CloseClick end object Button7: TButton Left = 180 Top = 6 Width = 75 Height = 21 Caption = '<< &Previous' TabOrder = 1 OnClick = Button7Click end object Button8: TButton Left = 258 Top = 6 Width = 75 Height = 21 Caption = '&Next >>' Default = True TabOrder = 2 OnClick = Button8Click end end object TestZip: TRadioButton Left = 130 Top = 162 Width = 163 Height = 17 Caption = '&Test files in the Zip file' TabOrder = 3 end end object Third: TTabSheet Caption = 'Third' TabVisible = False OnEnter = ThirdEnter object Label4: TLabel Left = 6 Top = 6 Width = 378 Height = 13 Caption = 'Select the file to extract and the extract location then click o' + 'n the extract button.' end object zipViewer1: TzipViewer Left = 12 Top = 32 Width = 203 Height = 168 Hint = 'Zip file Contents' Indent = 19 ParentColor = False TabOrder = 0 OnStatusMessage = zipViewer1StatusMessage end object DirTree1: TDirTree Left = 226 Top = 56 Width = 181 Height = 144 Hint = 'Extract location' ReadOnly = True Indent = 19 ParentColor = False TabOrder = 1 PopupMenu = DirTree1. Images = DirTree1. end object Button1: TButton Left = 228 Top = 32 Width = 85 Height = 21 Caption = '&Extract' TabOrder = 2 OnClick = Button1Click end object Button2: TButton Left = 320 Top = 32 Width = 85 Height = 21 Caption = 'Extract &All' Default = True TabOrder = 3 OnClick = Button2Click end object Panel4: TPanel Left = 0 Top = 230 Width = 419 Height = 33 Align = alBottom BevelOuter = bvLowered Caption = 'Panel1' TabOrder = 4 object Button9: TButton Left = 336 Top = 6 Width = 75 Height = 21 Caption = '&Close' TabOrder = 0 OnClick = CloseClick end object Button10: TButton Left = 180 Top = 6 Width = 75 Height = 21 Caption = '<< &Previous' TabOrder = 1 OnClick = Button10Click end object Button11: TButton Left = 258 Top = 6 Width = 75 Height = 21 Caption = '&Next >>' Enabled = False TabOrder = 2 end end object Panel8: TPanel Left = 12 Top = 203 Width = 395 Height = 22 BevelOuter = bvLowered TabOrder = 5 object Panel9: TPanel Left = 274 Top = 1 Width = 120 Height = 20 Align = alRight TabOrder = 0 object ProgressBar1: TProgressBar Left = 1 Top = 1 Width = 118 Height = 18 Align = alClient Min = 0 Max = 100 TabOrder = 0 end end object Status: TPanel Left = 1 Top = 1 Width = 273 Height = 20 Align = alClient Alignment = taLeftJustify TabOrder = 1 end end end object Fourth: TTabSheet Caption = 'Fourth' TabVisible = False object GroupBox1: TGroupBox Left = 186 Top = 98 Width = 187 Height = 125 Caption = 'Filename storage options' TabOrder = 0 object Recurse: TCheckBox Left = 12 Top = 20 Width = 141 Height = 17 Caption = '&Recurse sub directories' State = cbChecked TabOrder = 0 OnClick = RecurseClick end object FullPath: TCheckBox Left = 12 Top = 40 Width = 147 Height = 17 Caption = '&Store full path information' Enabled = False State = cbChecked TabOrder = 1 end object Volume: TCheckBox Left = 12 Top = 60 Width = 119 Height = 17 Caption = 'Store &volume label ' TabOrder = 2 end object Span: TCheckBox Left = 12 Top = 100 Width = 163 Height = 17 Caption = 'Span across several &diskettes' TabOrder = 3 end object MoveCtrl: TCheckBox Left = 12 Top = 80 Width = 163 Height = 17 Caption = '&Move (delete files afterward)' TabOrder = 4 end end object GroupBox2: TGroupBox Left = 46 Top = 2 Width = 327 Height = 91 Caption = 'Action options' TabOrder = 1 object AddCtrl: TRadioButton Left = 10 Top = 20 Width = 163 Height = 17 Caption = '&Add all files matching criteria' TabOrder = 0 end object UpdateCtrl: TRadioButton Left = 10 Top = 42 Width = 279 Height = 17 Caption = 'Add all new files and &update files that have changed' Checked = True TabOrder = 1 TabStop = True end object FreshenCtrl: TRadioButton Left = 10 Top = 66 Width = 289 Height = 17 Caption = '&Freshen files that have changed, do not add new files' TabOrder = 2 end end object Panel5: TPanel Left = 0 Top = 230 Width = 419 Height = 33 Align = alBottom BevelOuter = bvLowered Caption = 'Panel1' TabOrder = 2 object Button12: TButton Left = 336 Top = 6 Width = 75 Height = 21 Caption = '&Close' TabOrder = 0 OnClick = CloseClick end object Button13: TButton Left = 180 Top = 6 Width = 75 Height = 21 Caption = '<< &Previous' TabOrder = 1 OnClick = Button13Click end object Button14: TButton Left = 258 Top = 6 Width = 75 Height = 21 Caption = '&Next >>' Default = True TabOrder = 2 OnClick = Button14Click end end object Iconized: TCheckBox Left = 50 Top = 104 Width = 127 Height = 17 Caption = 'Run SZIPW &Iconized' State = cbChecked TabOrder = 3 end end object Fifth: TTabSheet Caption = 'Fifth' TabVisible = False object Label5: TLabel Left = 6 Top = 2 Width = 336 Height = 16 Caption = 'Please select the files, group of files to add to the Zip file. ' Font.Color = clBlack Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object GroupBox3: TGroupBox Left = 170 Top = 106 Width = 245 Height = 121 Caption = 'List of search criteria' TabOrder = 0 object ListBox1: TListBox Left = 9 Top = 14 Width = 231 Height = 77 ItemHeight = 13 TabOrder = 0 end object Remove: TButton Left = 160 Top = 96 Width = 81 Height = 21 Caption = '&Remove ' TabOrder = 1 OnClick = RemoveClick end end object DirTree2: TDirTree Left = 4 Top = 26 Width = 161 Height = 199 ReadOnly = True Indent = 19 ParentColor = False TabOrder = 1 PopupMenu = DirTree2. Images = DirTree2. end object GroupBox4: TGroupBox Left = 170 Top = 22 Width = 245 Height = 83 Caption = 'Create criteria' TabOrder = 2 object Label6: TLabel Left = 6 Top = 14 Width = 217 Height = 15 AutoSize = False Caption = 'Enter a search criteria (*-*, data?.dta, ect...)' end object Label7: TLabel Left = 6 Top = 28 Width = 147 Height = 25 AutoSize = False Caption = 'Click Include to add files, Exclude files to skip.' end object Pattern: TEdit Left = 6 Top = 56 Width = 147 Height = 21 TabOrder = 0 Text = '*.*' OnChange = PatternChange end object Include: TButton Left = 158 Top = 58 Width = 81 Height = 21 Caption = '&Include criteria' Default = True TabOrder = 1 OnClick = IncludeClick end object Exclude: TButton Left = 158 Top = 34 Width = 81 Height = 21 Caption = '&Exclude criteria' TabOrder = 2 OnClick = ExcludeClick end end object Panel1: TPanel Left = 0 Top = -33 Width = 0 Height = 33 Align = alBottom BevelOuter = bvLowered Caption = 'Panel1' TabOrder = 3 object FinishBtn: TButton Left = 336 Top = 6 Width = 75 Height = 21 Caption = '&Close' TabOrder = 0 OnClick = CloseClick end object BackBtn: TButton Left = 180 Top = 6 Width = 75 Height = 21 Caption = '<< &Previous' TabOrder = 1 OnClick = BackBtnClick end object NextBtn: TButton Left = 258 Top = 6 Width = 75 Height = 21 Caption = '&Next >>' TabOrder = 2 OnClick = NextBtnClick end end end object Sixth: TTabSheet Caption = 'Sixth' TabVisible = False OnEnter = SixthEnter object Label8: TLabel Left = 10 Top = 6 Width = 399 Height = 47 AutoSize = False Caption = 'You are now ready to add files to your Zip files. Please verify' + ' the Zipping options below.' Font.Color = clBlack Font.Height = -16 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Label9: TLabel Left = 17 Top = 60 Width = 63 Height = 13 Caption = 'Zip filename :' end object Label10: TLabel Left = 27 Top = 84 Width = 52 Height = 13 Caption = 'Operation :' end object Panel6: TPanel Left = 0 Top = 230 Width = 419 Height = 33 Align = alBottom BevelOuter = bvLowered Caption = 'Panel1' TabOrder = 0 object Button15: TButton Left = 336 Top = 6 Width = 75 Height = 21 Caption = '&Finish' Default = True TabOrder = 0 OnClick = Button15Click end object Button16: TButton Left = 180 Top = 6 Width = 75 Height = 21 Caption = '<< &Previous' TabOrder = 1 OnClick = Button16Click end object Button17: TButton Left = 258 Top = 6 Width = 75 Height = 21 Caption = '&Next >>' TabOrder = 2 end end object Edit1: TEdit Left = 85 Top = 58 Width = 317 Height = 21 Color = clSilver ReadOnly = True TabOrder = 1 end object Edit2: TEdit Left = 85 Top = 82 Width = 317 Height = 21 Color = clSilver ReadOnly = True TabOrder = 2 end object GroupBox6: TGroupBox Left = 206 Top = 114 Width = 199 Height = 107 Caption = 'List of search criteria' TabOrder = 4 object ListBox2: TListBox Left = 8 Top = 18 Width = 180 Height = 83 ItemHeight = 13 TabOrder = 0 end end object GroupBox5: TGroupBox Left = 14 Top = 114 Width = 187 Height = 107 Caption = 'Filename storage options' TabOrder = 3 object ListBox3: TListBox Left = 6 Top = 18 Width = 173 Height = 83 ItemHeight = 13 TabOrder = 0 end end end object Seventh: TTabSheet Caption = 'Seventh' TabVisible = False OnEnter = SeventhEnter object Label11: TLabel Left = 280 Top = 108 Width = 118 Height = 29 Caption = 'ZipWizard' Font.Color = clBlack Font.Height = -24 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Image2: TImage Left = 94 Top = 14 Width = 305 Height = 91 Picture.Data = {} Stretch = True end object Label12: TLabel Left = 10 Top = 178 Width = 397 Height = 31 AutoSize = False Caption = 'ZipWizard is now running SZIPW32 to process your commands, this ' + 'might take a few minutes.' end object Panel7: TPanel Left = 0 Top = -33 Width = 0 Height = 33 Align = alBottom BevelOuter = bvLowered TabOrder = 0 object Button18: TButton Left = 336 Top = 6 Width = 75 Height = 21 Caption = '&Close' TabOrder = 0 OnClick = CloseClick end end end object Eigth: TTabSheet Caption = 'Eigth' TabVisible = False OnEnter = EigthEnter object Label13: TLabel Left = 238 Top = 110 Width = 160 Height = 29 Caption = 'ZipWizard 1.0' Font.Color = clBlack Font.Height = -24 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Image3: TImage Left = 94 Top = 14 Width = 305 Height = 91 Picture.Data = {} Stretch = True end object Label14: TLabel Left = 6 Top = 188 Width = 41 Height = 13 Caption = 'Testing :' end object Panel10: TPanel Left = 6 Top = 204 Width = 407 Height = 22 BevelOuter = bvLowered Caption = 'Panel10' TabOrder = 0 object Panel11: TPanel Left = 286 Top = 1 Width = 120 Height = 20 Align = alRight Caption = 'Panel11' TabOrder = 0 object ProgressBar2: TProgressBar Left = 1 Top = 1 Width = 118 Height = 18 Align = alClient Min = 0 Max = 100 TabOrder = 0 end end object Panel12: TPanel Left = 1 Top = 1 Width = 285 Height = 20 Align = alClient Alignment = taLeftJustify TabOrder = 1 end end object Panel13: TPanel Left = 0 Top = -33 Width = 0 Height = 33 Align = alBottom BevelOuter = bvLowered TabOrder = 1 object Button19: TButton Left = 336 Top = 6 Width = 75 Height = 21 Caption = '&Close' Default = True TabOrder = 0 OnClick = CloseClick end object Button20: TButton Left = 178 Top = 6 Width = 75 Height = 21 Caption = '<< &Previous' TabOrder = 1 OnClick = Button20Click end object Button22: TButton Left = 258 Top = 6 Width = 75 Height = 21 Caption = '&Next >>' Enabled = False TabOrder = 2 end end end end object OpenDialog1: TOpenDialog FileEditStyle = fsEdit Filter = 'Zip files (*.zip;*.exe)|*.zip;*.exe' Options = [ofHideReadOnly, ofPathMustExist, ofFileMustExist, ofNoReadOnlyReturn] Title = 'Open existing Zip file' Left = 94 Top = 156 end object SaveDialog1: TSaveDialog DefaultExt = 'zip' FileEditStyle = fsEdit Filter = 'Zip files (*.zip;*.exe)|*.zip;*.exe' Options = [ofOverwritePrompt, ofHideReadOnly, ofPathMustExist] Title = 'Create New Zip file' Left = 124 Top = 166 end object ZipFile1: TZipFile Left = 14 Top = 26 end end