home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 March / Chip_1998-03_cd.bin / zkuste / delphi / komprese / zip / DELZIP12.ZIP / DEMO3.ZIP / EXTRUNIT.DFM / EXTRUNIT.txt
Text File  |  1997-09-28  |  2KB  |  98 lines
  1. object Extract: TExtract
  2.   Left = 43
  3.   Top = 217
  4.   Width = 481
  5.   Height = 396
  6.   Caption = 'Select Extract Directory'
  7.   Font.Charset = DEFAULT_CHARSET
  8.   Font.Color = clWindowText
  9.   Font.Height = -13
  10.   Font.Name = 'MS Sans Serif'
  11.   Font.Style = []
  12.   OnCreate = FormCreate
  13.   PixelsPerInch = 120
  14.   TextHeight = 16
  15.   object Panel1: TPanel
  16.     Left = 0
  17.     Top = 0
  18.     Width = 329
  19.     Height = 369
  20.     Align = alClient
  21.     TabOrder = 0
  22.     object DirectoryListBox1: TDirectoryListBox
  23.       Left = 1
  24.       Top = 25
  25.       Width = 327
  26.       Height = 343
  27.       Align = alClient
  28.       ItemHeight = 16
  29.       TabOrder = 0
  30.     end
  31.     object Panel3: TPanel
  32.       Left = 1
  33.       Top = 1
  34.       Width = 327
  35.       Height = 24
  36.       Align = alTop
  37.       TabOrder = 1
  38.       object DriveComboBox1: TDriveComboBox
  39.         Left = 2
  40.         Top = 0
  41.         Width = 325
  42.         Height = 22
  43.         DirList = DirectoryListBox1
  44.         TabOrder = 0
  45.         TextCase = tcUpperCase
  46.       end
  47.     end
  48.   end
  49.   object Panel2: TPanel
  50.     Left = 329
  51.     Top = 0
  52.     Width = 144
  53.     Height = 369
  54.     Align = alRight
  55.     TabOrder = 1
  56.     object OKBut: TButton
  57.       Left = 36
  58.       Top = 252
  59.       Width = 75
  60.       Height = 25
  61.       Caption = '&Ok'
  62.       TabOrder = 0
  63.       OnClick = OKButClick
  64.     end
  65.     object CancelBut: TButton
  66.       Left = 36
  67.       Top = 297
  68.       Width = 75
  69.       Height = 24
  70.       Caption = '&Cancel'
  71.       TabOrder = 1
  72.       OnClick = CancelButClick
  73.     end
  74.     object RadioGroup1: TRadioGroup
  75.       Left = 14
  76.       Top = 20
  77.       Width = 116
  78.       Height = 81
  79.       Caption = 'Expand ZIP Dirs'
  80.       Items.Strings = (
  81.         'No'
  82.         'Yes')
  83.       TabOrder = 2
  84.     end
  85.     object RadioGroup2: TRadioGroup
  86.       Left = 12
  87.       Top = 124
  88.       Width = 121
  89.       Height = 77
  90.       Caption = 'OverWrite Existing'
  91.       Items.Strings = (
  92.         'No'
  93.         'Yes')
  94.       TabOrder = 3
  95.     end
  96.   end
  97. end
  98.