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

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

object Mainform: TMainform
  Left = 80
  Top = 79
  Width = 620
  Height = 440
  ActiveControl = ZipOpenBut
  Caption = 'Delphi Zip Demo1'
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Position = poScreenCenter
  Scaled = False
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 120
  TextHeight = 16
  object Panel2: TPanel
    Left = 0
    Top = 0
    Width = 612
    Height = 125
    Align = alTop
    TabOrder = 0
    object Panel3: TPanel
      Left = 1
      Top = 1
      Width = 124
      Height = 123
      Align = alLeft
      TabOrder = 1
      object DeleteZipBut: TButton
        Left = 15
        Top = 83
        Width = 96
        Height = 26
        Caption = 'Destroy Zipfile'
        TabOrder = 0
        OnClick = DeleteZipButClick
      end
      object NewZipBut: TButton
        Left = 15
        Top = 48
        Width = 96
        Height = 26
        Caption = '&New Zipfile'
        TabOrder = 1
        OnClick = NewZipButClick
      end
      object ZipOpenBut: TButton
        Left = 15
        Top = 13
        Width = 96
        Height = 25
        Caption = '&Open Zip'
        TabOrder = 2
        OnClick = ZipOpenButClick
      end
    end
    object Panel1: TPanel
      Left = 508
      Top = 1
      Width = 103
      Height = 123
      Align = alRight
      TabOrder = 0
      object Bevel2: TBevel
        Left = 9
        Top = 72
        Width = 85
        Height = 33
      end
      object Label1: TLabel
        Left = 64
        Top = 79
        Width = 24
        Height = 16
        Caption = 'files'
      end
      object FilesLabel: TLabel
        Left = 27
        Top = 79
        Width = 7
        Height = 16
        Caption = '0'
      end
      object CloseBut: TButton
        Left = 9
        Top = 20
        Width = 85
        Height = 27
        Caption = 'E&xit'
        TabOrder = 0
        OnClick = CloseButClick
      end
    end
    object Panel4: TPanel
      Left = 125
      Top = 1
      Width = 383
      Height = 123
      Align = alClient
      TabOrder = 2
      object ZipFName: TLabel
        Left = 84
        Top = 86
        Width = 54
        Height = 18
        Caption = '<none>'
        Font.Charset = ANSI_CHARSET
        Font.Color = clBlack
        Font.Height = -15
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label2: TLabel
        Left = 8
        Top = 86
        Width = 69
        Height = 18
        Caption = 'Zip Name:'
        Font.Charset = ANSI_CHARSET
        Font.Color = clBlack
        Font.Height = -15
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Bevel1: TBevel
        Left = 7
        Top = 5
        Width = 369
        Height = 68
      end
      object DeleteBut: TButton
        Left = 250
        Top = 20
        Width = 111
        Height = 36
        Caption = '&Delete From Zip'
        TabOrder = 0
        OnClick = DeleteButClick
      end
      object AddBut: TButton
        Left = 142
        Top = 20
        Width = 85
        Height = 36
        Caption = '&Add  to Zip'
        TabOrder = 1
        OnClick = AddButClick
      end
      object ExtractBut: TButton
        Left = 15
        Top = 20
        Width = 102
        Height = 36
        Caption = '&Extract from Zip'
        TabOrder = 2
        OnClick = ExtractButClick
      end
    end
  end
  object StringGrid1: TSortGrid
    Left = 0
    Top = 125
    Width = 612
    Height = 288
    Align = alClient
    DefaultRowHeight = 18
    FixedCols = 0
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -15
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goColSizing, goRowSelect, goThumbTracking]
    ParentFont = False
    TabOrder = 1
    CaseSensitive = False
    AlignmentHorz = taLeftJustify
    AlignmentVert = taTopJustify
    ClickSorting = True
    BevelStyle = cbNone
    ProportionalScrollBars = True
    ExtendedKeys = False
  end
  object ZipMaster1: TZipMaster
    Verbose = False
    Trace = False
    AddCompLevel = 9
    AddOptions = []
    ExtrOptions = []
    OnDirUpdate = ZipMaster1DirUpdate
    OnProgress = ZipMaster1Progress
    OnMessage = ZipMaster1Message
    Left = 464
    Top = 80
  end
  object OpenDialog1: TOpenDialog
    Left = 424
    Top = 80
  end
end