object AddForm: TAddForm Left = 91 Top = 86 Width = 630 Height = 440 Caption = 'Add Files' Font.Color = clWindowText Font.Height = -10 Font.Name = 'MS Sans Serif' Font.Style = [] Position = poScreenCenter OnCreate = FormCreate PixelsPerInch = 96 TextHeight = 13 object Panel1: TPanel Left = 173 Top = 0 Width = 449 Height = 413 Align = alClient TabOrder = 0 object Panel5: TPanel Left = 1 Top = 1 Width = 104 Height = 411 Align = alLeft TabOrder = 0 object Bevel1: TBevel Left = 3 Top = 39 Width = 99 Height = 53 end object Label2: TLabel Left = 32 Top = 20 Width = 44 Height = 13 Caption = 'Options' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object AddFileBut: TButton Left = 8 Top = 154 Width = 84 Height = 20 Caption = '&Add File ==>' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 0 OnClick = AddFileButClick end object RemoveBut: TButton Left = 8 Top = 186 Width = 84 Height = 21 Caption = '&Remove <==' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 1 OnClick = RemoveButClick end object OKBut: TButton Left = 12 Top = 257 Width = 77 Height = 20 Caption = 'Add To &Zip' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 2 OnClick = OKButClick end object CancelBut: TButton Left = 12 Top = 289 Width = 77 Height = 20 Caption = '&Cancel' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 3 OnClick = CancelButClick end object DirNameCB: TCheckBox Left = 6 Top = 48 Width = 95 Height = 14 Caption = 'Save DirNames' TabOrder = 4 end object RecurseCB: TCheckBox Left = 6 Top = 70 Width = 91 Height = 14 Caption = 'Recurse Dirs' TabOrder = 5 end object AddDirBut: TButton Left = 8 Top = 120 Width = 85 Height = 21 Caption = 'Add &Dir ==>' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 6 OnClick = AddDirButClick end end object Panel6: TPanel Left = 105 Top = 1 Width = 343 Height = 411 Align = alClient TabOrder = 1 object SelectedList: TListBox Left = 1 Top = 27 Width = 341 Height = 383 TabStop = False Align = alClient ItemHeight = 13 MultiSelect = True TabOrder = 0 end object Panel7: TPanel Left = 1 Top = 1 Width = 341 Height = 26 Align = alTop TabOrder = 1 object Label1: TLabel Left = 65 Top = 7 Width = 72 Height = 13 Caption = 'Files to Add:' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object SortBut: TButton Left = 172 Top = 5 Width = 37 Height = 15 Caption = '&Sort' TabOrder = 0 OnClick = SortButClick end end end end object Panel2: TPanel Left = 0 Top = 0 Width = 173 Height = 413 Align = alLeft TabOrder = 1 object Panel3: TPanel Left = 1 Top = 1 Width = 171 Height = 23 Align = alTop TabOrder = 0 object DriveComboBox1: TDriveComboBox Left = 3 Top = 3 Width = 157 Height = 19 DirList = DirectoryListBox1 TabOrder = 0 end end object FileListBox1: TFileListBox Left = 1 Top = 147 Width = 171 Height = 265 Align = alClient ItemHeight = 13 MultiSelect = True TabOrder = 1 end object Panel4: TPanel Left = 1 Top = 24 Width = 171 Height = 97 Align = alTop TabOrder = 2 object DirectoryListBox1: TDirectoryListBox Left = 1 Top = 1 Width = 169 Height = 95 Align = alClient FileList = FileListBox1 ItemHeight = 16 TabOrder = 0 end end object Panel8: TPanel Left = 1 Top = 121 Width = 171 Height = 26 Align = alTop TabOrder = 3 object SelectAllBut: TButton Left = 43 Top = 4 Width = 81 Height = 17 Caption = 'Select All Files' TabOrder = 0 OnClick = SelectAllButClick end end end end