Chip 1998 March/Chip_1998-03_cd.bin/zkuste/delphi/komprese/zip/DELZIP12.ZIP/DEMO1.ZIP/ADDUNIT.DFM/ADDUNIT.txt

Text File | 1997-09-28 | 5KB | 253 lines

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