home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 March / Chip_1998-03_cd.bin / zkuste / delphi / komprese / zip / DELZIP12.ZIP / DEMO1.ZIP / EXTRUNIT.DFM / EXTRUNIT.txt
Text File  |  1997-09-28  |  2KB  |  110 lines
  1. object Extract: TExtract
  2.   Left = 176
  3.   Top = 88
  4.   Width = 488
  5.   Height = 418
  6.   Caption = 'Select Extract Directory'
  7.   Font.Color = clWindowText
  8.   Font.Height = -10
  9.   Font.Name = 'MS Sans Serif'
  10.   Font.Style = []
  11.   Position = poScreenCenter
  12.   OnActivate = FormActivate
  13.   OnCreate = FormCreate
  14.   PixelsPerInch = 96
  15.   TextHeight = 13
  16.   object Panel1: TPanel
  17.     Left = 0
  18.     Top = 0
  19.     Width = 353
  20.     Height = 394
  21.     Align = alClient
  22.     TabOrder = 0
  23.     object DirectoryListBox1: TDirectoryListBox
  24.       Left = 1
  25.       Top = 20
  26.       Width = 351
  27.       Height = 373
  28.       Align = alClient
  29.       ItemHeight = 16
  30.       TabOrder = 0
  31.     end
  32.     object Panel3: TPanel
  33.       Left = 1
  34.       Top = 1
  35.       Width = 351
  36.       Height = 19
  37.       Align = alTop
  38.       TabOrder = 1
  39.       object DriveComboBox1: TDriveComboBox
  40.         Left = 2
  41.         Top = 0
  42.         Width = 259
  43.         Height = 19
  44.         DirList = DirectoryListBox1
  45.         TabOrder = 0
  46.         TextCase = tcUpperCase
  47.       end
  48.     end
  49.   end
  50.   object Panel2: TPanel
  51.     Left = 353
  52.     Top = 0
  53.     Width = 127
  54.     Height = 394
  55.     Align = alRight
  56.     TabOrder = 1
  57.     object OKBut: TButton
  58.       Left = 29
  59.       Top = 247
  60.       Width = 61
  61.       Height = 20
  62.       Caption = '&Ok'
  63.       TabOrder = 0
  64.       OnClick = OKButClick
  65.     end
  66.     object CancelBut: TButton
  67.       Left = 29
  68.       Top = 283
  69.       Width = 61
  70.       Height = 20
  71.       Caption = '&Cancel'
  72.       TabOrder = 1
  73.       OnClick = CancelButClick
  74.     end
  75.     object RadioGroup1: TRadioGroup
  76.       Left = 11
  77.       Top = 13
  78.       Width = 95
  79.       Height = 59
  80.       Caption = 'Expand ZIP Dirs'
  81.       Items.Strings = (
  82.         'No'
  83.         'Yes')
  84.       TabOrder = 2
  85.     end
  86.     object RadioGroup2: TRadioGroup
  87.       Left = 10
  88.       Top = 88
  89.       Width = 98
  90.       Height = 59
  91.       Caption = 'OverWrite Existing'
  92.       Items.Strings = (
  93.         'No'
  94.         'Yes')
  95.       TabOrder = 3
  96.     end
  97.     object RadioGroup3: TRadioGroup
  98.       Left = 10
  99.       Top = 163
  100.       Width = 98
  101.       Height = 62
  102.       Caption = 'Files to Extract'
  103.       Items.Strings = (
  104.         'All Files'
  105.         'Selected Files')
  106.       TabOrder = 4
  107.     end
  108.   end
  109. end
  110.