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

Text File | 1997-09-28 | 6KB | 277 lines

object Form1: TForm1
  Left = 236
  Top = 128
  Width = 621
  Height = 464
  Caption = 'ZIP Demo 3'
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -14
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Position = poScreenCenter
  Visible = True
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 120
  TextHeight = 16
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 613
    Height = 222
    Align = alTop
    BevelInner = bvRaised
    TabOrder = 0
    object Label1: TLabel
      Left = 128
      Top = 50
      Width = 88
      Height = 16
      Caption = 'ZIP File Name:'
    end
    object Label2: TLabel
      Left = 130
      Top = 85
      Width = 70
      Height = 16
      Caption = 'File Spec 1:'
    end
    object Label3: TLabel
      Left = 130
      Top = 119
      Width = 70
      Height = 16
      Caption = 'File Spec 2:'
    end
    object ZipFName: TLabel
      Left = 233
      Top = 49
      Width = 76
      Height = 21
      Caption = '< none >'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -18
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object RadioTraceOpt: TRadioGroup
      Left = 255
      Top = 150
      Width = 98
      Height = 60
      Caption = 'Trace DLL'
      Columns = 2
      Items.Strings = (
        'No'
        'Yes')
      TabOrder = 0
    end
    object RadioVerboseOpt: TRadioGroup
      Left = 43
      Top = 150
      Width = 102
      Height = 60
      Caption = 'Verbose Status'
      Columns = 2
      Items.Strings = (
        'No'
        'Yes')
      TabOrder = 1
    end
    object Edit1: TEdit
      Left = 208
      Top = 79
      Width = 385
      Height = 25
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -15
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      TabOrder = 2
    end
    object Edit2: TEdit
      Left = 208
      Top = 116
      Width = 385
      Height = 25
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -15
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      TabOrder = 3
    end
    object RadioRecurse: TRadioGroup
      Left = 442
      Top = 150
      Width = 132
      Height = 60
      Caption = 'Recurse Directories'
      Columns = 2
      Items.Strings = (
        'No'
        'Yes')
      TabOrder = 4
    end
    object NewBut: TButton
      Left = 17
      Top = 55
      Width = 81
      Height = 25
      Caption = '&New ZIP'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -15
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 5
      OnClick = NewButClick
    end
    object OpenBut: TButton
      Left = 18
      Top = 12
      Width = 80
      Height = 25
      Caption = '&Open ZIP'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -15
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 6
      OnClick = OpenButClick
    end
    object VersionBut: TButton
      Left = 16
      Top = 100
      Width = 81
      Height = 26
      Caption = 'DLL &Version'
      TabOrder = 7
      OnClick = VersionButClick
    end
    object ListBut: TButton
      Left = 128
      Top = 12
      Width = 62
      Height = 25
      Caption = '&List'
      TabOrder = 8
      OnClick = ListButClick
    end
    object AddBut: TButton
      Left = 208
      Top = 12
      Width = 62
      Height = 25
      Caption = '&Add'
      TabOrder = 9
      OnClick = AddButClick
    end
    object DeleteBut: TButton
      Left = 288
      Top = 12
      Width = 62
      Height = 25
      Caption = '&Delete'
      TabOrder = 10
      OnClick = DeleteButClick
    end
    object ExtractBut: TButton
      Left = 368
      Top = 12
      Width = 62
      Height = 25
      Caption = '&Extract'
      TabOrder = 11
      OnClick = ExtractButClick
    end
    object AbortBut: TButton
      Left = 484
      Top = 12
      Width = 53
      Height = 25
      Caption = 'A&bort'
      TabOrder = 12
      OnClick = AbortButClick
    end
    object ExitBut: TButton
      Left = 553
      Top = 12
      Width = 53
      Height = 25
      Caption = 'E&xit'
      TabOrder = 13
      OnClick = ExitButClick
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 222
    Width = 613
    Height = 215
    Align = alClient
    BevelInner = bvRaised
    TabOrder = 1
    object Panel3: TPanel
      Left = 2
      Top = 46
      Width = 609
      Height = 167
      Align = alClient
      TabOrder = 0
      object Memo1: TMemo
        Left = 1
        Top = 1
        Width = 607
        Height = 165
        Align = alClient
        Lines.Strings = (
          '')
        ScrollBars = ssVertical
        TabOrder = 0
      end
    end
    object Panel4: TPanel
      Left = 2
      Top = 2
      Width = 609
      Height = 44
      Align = alTop
      BevelInner = bvLowered
      BevelOuter = bvLowered
      TabOrder = 1
      object FileBeingZipped: TLabel
        Left = 246
        Top = 12
        Width = 106
        Height = 16
        Alignment = taRightJustify
        Caption = 'File Being Zipped'
      end
      object ProgressBar1: TProgressBar
        Left = 361
        Top = 12
        Width = 232
        Height = 16
        Min = 0
        Max = 100
        TabOrder = 0
      end
    end
  end
  object OpenDialog: TOpenDialog
    Title = 'Open Existing ZIP file'
    Left = 554
    Top = 345
  end
end