Visual Basic Controls/Visual Basic Controls.iso/vbcontrol/xceedzip/xceedzip.exe/Samples/Getting Started/Delphi3/Main.dfm/Main.txt

Text File | 1999-04-27 | 19.1 KB | 792 lines

object frmMain: TfrmMain
  Left = 292
  Top = 505
  Width = 633
  Height = 452
  Caption = 'Getting started with the Xceed Zip Compression Library 4.0'
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Position = poScreenCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 8
    Top = 8
    Width = 577
    Height = 33
    AutoSize = False
    Caption =
      'Use the tabs below to learn the basics of how to use the major X' +
      'ceed Zip v4.0 component methods. Each tab provides info on a dif' +
      'ferent method. Move the mouse over each field to obtain tips on ' +
      'using the corresponding Xceed Zip property.'
    WordWrap = True
  end
  object Label7: TLabel
    Left = 376
    Top = 48
    Width = 89
    Height = 17
    AutoSize = False
    Caption = 'Triggered events:'
  end
  object tabExamples: TPageControl
    Left = 8
    Top = 48
    Width = 361
    Height = 345
    ActivePage = shtZip
    TabOrder = 1
    object shtPreview: TTabSheet
      Caption = 'PreviewFiles'
      object Label3: TLabel
        Left = 8
        Top = 80
        Width = 81
        Height = 17
        AutoSize = False
        Caption = '&FilesToProcess:'
      end
      object Label4: TLabel
        Left = 8
        Top = 136
        Width = 81
        Height = 17
        AutoSize = False
        Caption = 'FilesTo&Exclude:'
      end
      object Label5: TLabel
        Left = 8
        Top = 216
        Width = 113
        Height = 17
        AutoSize = False
        Caption = '&RequiredFileAttributes:'
      end
      object Label6: TLabel
        Left = 128
        Top = 216
        Width = 113
        Height = 17
        AutoSize = False
        Caption = 'E&xcludedFileAttributes:'
      end
      object edtPFilesToProcess: TMemo
        Left = 8
        Top = 96
        Width = 337
        Height = 33
        ParentShowHint = False
        ShowHint = True
        TabOrder = 0
      end
      object edtPFilesToExclude: TMemo
        Left = 8
        Top = 152
        Width = 337
        Height = 33
        ParentShowHint = False
        ShowHint = True
        TabOrder = 1
      end
      object lstPRequiredFileAttributes: TCheckListBox
        Left = 8
        Top = 232
        Width = 105
        Height = 73
        ItemHeight = 13
        ParentShowHint = False
        ShowHint = True
        TabOrder = 3
      end
      object lstPExcludedFileAttributes: TCheckListBox
        Left = 128
        Top = 232
        Width = 105
        Height = 73
        ItemHeight = 13
        ParentShowHint = False
        ShowHint = True
        TabOrder = 4
      end
      object chkPProcessSubfolders: TCheckBox
        Left = 8
        Top = 192
        Width = 121
        Height = 17
        Caption = 'Process&Subfolders'
        ParentShowHint = False
        ShowHint = True
        TabOrder = 2
      end
      object btPreviewFiles: TButton
        Left = 272
        Top = 280
        Width = 75
        Height = 25
        Caption = '&Preview!'
        ParentShowHint = False
        ShowHint = True
        TabOrder = 5
        OnClick = btPreviewFilesClick
      end
      object Memo1: TMemo
        Left = 8
        Top = 8
        Width = 329
        Height = 73
        BorderStyle = bsNone
        Color = clBtnFace
        Ctl3D = True
        Lines.Strings = (

            'This method scans the disk and provides the list of files that w' +
            'ould be '
          'zipped if you would zip with the current property settings. The '
          'minimum you must do here is enter some files or wildcards (use '

            'absolute paths for now) in the FilesToProcess field and click Pr' +
            'eview! '
          'The Zip tab provides tips for using relative paths.')
        ParentCtl3D = False
        ReadOnly = True
        TabOrder = 6
      end
    end
    object shtZip: TTabSheet
      Caption = 'Zip'
      object Label8: TLabel
        Left = 8
        Top = 8
        Width = 337
        Height = 41
        AutoSize = False
        Caption =
          'This method lets you add files to a new or existing zip file. Ag' +
          'ain, you can use filtering properties. For FilesToProcess and Fi' +
          'lesToExclude, filenames and file masks can be relative to the Ba' +
          'sePath.'
        WordWrap = True
      end
      object Label9: TLabel
        Left = 8
        Top = 56
        Width = 65
        Height = 17
        AutoSize = False
        Caption = 'ZipFile&name:'
      end
      object Label10: TLabel
        Left = 8
        Top = 96
        Width = 57
        Height = 17
        AutoSize = False
        Caption = '&BasePath:'
      end
      object Label11: TLabel
        Left = 8
        Top = 136
        Width = 81
        Height = 17
        AutoSize = False
        Caption = '&FilesToProcess:'
      end
      object Label12: TLabel
        Left = 8
        Top = 192
        Width = 81
        Height = 17
        AutoSize = False
        Caption = 'FilesTo&Exclude:'
      end
      object Label13: TLabel
        Left = 32
        Top = 291
        Width = 65
        Height = 17
        AutoSize = False
        Caption = '&TempFolder:'
      end
      object edtZZipFilename: TEdit
        Left = 8
        Top = 72
        Width = 337
        Height = 21
        ParentShowHint = False
        ShowHint = True
        TabOrder = 0
      end
      object edtZBasePath: TEdit
        Left = 8
        Top = 112
        Width = 337
        Height = 21
        ParentShowHint = False
        ShowHint = True
        TabOrder = 1
      end
      object edtZFilesToProcess: TMemo
        Left = 8
        Top = 152
        Width = 337
        Height = 33
        ParentShowHint = False
        ShowHint = True
        TabOrder = 2
      end
      object edtZFilesToExclude: TMemo
        Left = 8
        Top = 208
        Width = 337
        Height = 33
        ParentShowHint = False
        ShowHint = True
        TabOrder = 3
      end
      object chkZPreservePaths: TCheckBox
        Left = 160
        Top = 256
        Width = 97
        Height = 17
        Caption = 'Preser&vePaths'
        ParentShowHint = False
        ShowHint = True
        TabOrder = 5
      end
      object chkZProcessSubfolders: TCheckBox
        Left = 8
        Top = 256
        Width = 113
        Height = 17
        Caption = 'Process&Subfolders'
        ParentShowHint = False
        ShowHint = True
        TabOrder = 4
      end
      object chkZUseTempFile: TCheckBox
        Left = 8
        Top = 272
        Width = 89
        Height = 17
        Caption = '&UseTempFile'
        ParentShowHint = False
        ShowHint = True
        TabOrder = 6
      end
      object edtZTempFolder: TEdit
        Left = 96
        Top = 288
        Width = 161
        Height = 21
        ParentShowHint = False
        ShowHint = True
        TabOrder = 7
      end
      object btZip: TButton
        Left = 272
        Top = 280
        Width = 75
        Height = 25
        Caption = '&Zip!'
        ParentShowHint = False
        ShowHint = True
        TabOrder = 8
        OnClick = btZipClick
      end
    end
    object shtList: TTabSheet
      Caption = 'ListZipContents'
      object Label14: TLabel
        Left = 8
        Top = 8
        Width = 329
        Height = 41
        AutoSize = False
        Caption =
          'This method lets you list the contents of an existing zip file. ' +
          'You can use the FilesToProcess property to list only certain fil' +
          'es, or leave it empty to list all the zip file'#39's contents.'
        WordWrap = True
      end
      object Label15: TLabel
        Left = 8
        Top = 56
        Width = 329
        Height = 57
        AutoSize = False
        Caption =
          'The ListingFile event is like the equivalent of the PreviewingFi' +
          'le event, but for previewing which files will be unzipped. The L' +
          'istingFile even'#39'ts bExcluded parameter indicates whether a file ' +
          'will be unzipped or not.'
        WordWrap = True
      end
      object Label16: TLabel
        Left = 8
        Top = 112
        Width = 329
        Height = 57
        AutoSize = False
        Caption =
          'Keep in mind that when you are using the ListingFile event for p' +
          'reviewing purposes, only the FilesToProcess and the filtering pr' +
          'operties are checked. The SkipIf* group of properties have no ef' +
          'fect for the ListZipContents method.'
        WordWrap = True
      end
      object Label17: TLabel
        Left = 8
        Top = 176
        Width = 65
        Height = 17
        AutoSize = False
        Caption = 'ZipFile&name:'
      end
      object Label18: TLabel
        Left = 8
        Top = 224
        Width = 105
        Height = 17
        AutoSize = False
        Caption = 'Min&DateToProcess:'
      end
      object Label19: TLabel
        Left = 8
        Top = 264
        Width = 105
        Height = 17
        AutoSize = False
        Caption = 'Max&DateToProcess:'
      end
      object Label20: TLabel
        Left = 120
        Top = 224
        Width = 97
        Height = 17
        AutoSize = False
        Caption = 'Min&SizeToProcess:'
      end
      object Label21: TLabel
        Left = 120
        Top = 264
        Width = 97
        Height = 17
        AutoSize = False
        Caption = 'Max&SizeToProcess:'
      end
      object edtLZipFilename: TEdit
        Left = 8
        Top = 192
        Width = 337
        Height = 21
        ParentShowHint = False
        ShowHint = True
        TabOrder = 0
      end
      object edtLMinSizeToProcess: TEdit
        Left = 120
        Top = 240
        Width = 97
        Height = 21
        ParentShowHint = False
        ShowHint = True
        TabOrder = 1
      end
      object edtLMaxSizeToProcess: TEdit
        Left = 120
        Top = 280
        Width = 97
        Height = 21
        ParentShowHint = False
        ShowHint = True
        TabOrder = 2
      end
      object btList: TButton
        Left = 272
        Top = 280
        Width = 75
        Height = 25
        Caption = '&List!'
        ParentShowHint = False
        ShowHint = True
        TabOrder = 3
        OnClick = btListClick
      end
      object dtLMinDateToProcess: TDateTimePicker
        Left = 8
        Top = 240
        Width = 97
        Height = 21
        CalAlignment = dtaLeft
        Date = 29221.642943622700000000
        Time = 29221.642943622700000000
        DateFormat = dfShort
        DateMode = dmComboBox
        Kind = dtkDate
        ParseInput = False
        ParentShowHint = False
        ShowHint = True
      end
      object dtLMaxDateToProcess: TDateTimePicker
        Left = 8
        Top = 280
        Width = 97
        Height = 21
        CalAlignment = dtaLeft
        Date = 55153.643223078700000000
        Time = 55153.643223078700000000
        DateFormat = dfShort
        DateMode = dmComboBox
        Kind = dtkDate
        ParseInput = False
        ParentShowHint = False
        ShowHint = True
      end
    end
    object shtUnzip: TTabSheet
      Caption = 'Unzip'
      object Label23: TLabel
        Left = 8
        Top = 80
        Width = 65
        Height = 17
        AutoSize = False
        Caption = 'ZipFile&name:'
      end
      object Label24: TLabel
        Left = 8
        Top = 120
        Width = 81
        Height = 17
        AutoSize = False
        Caption = 'UnzipTo&Folder:'
      end
      object Label25: TLabel
        Left = 8
        Top = 160
        Width = 81
        Height = 17
        AutoSize = False
        Caption = 'FilesTo&Process:'
      end
      object Label26: TLabel
        Left = 8
        Top = 216
        Width = 81
        Height = 17
        AutoSize = False
        Caption = 'FilesTo&Exclude:'
      end
      object edtUZipFilename: TEdit
        Left = 8
        Top = 96
        Width = 337
        Height = 21
        ParentShowHint = False
        ShowHint = True
        TabOrder = 0
      end
      object edtUUnzipToFolder: TEdit
        Left = 8
        Top = 136
        Width = 337
        Height = 21
        ParentShowHint = False
        ShowHint = True
        TabOrder = 1
      end
      object edtUFilesToProcess: TMemo
        Left = 8
        Top = 176
        Width = 337
        Height = 33
        ParentShowHint = False
        ShowHint = True
        TabOrder = 2
      end
      object edtUFilesToExclude: TMemo
        Left = 8
        Top = 232
        Width = 337
        Height = 33
        ParentShowHint = False
        ShowHint = True
        TabOrder = 3
      end
      object chkUSkipIfExisting: TCheckBox
        Left = 8
        Top = 272
        Width = 89
        Height = 17
        Caption = 'SkipIfE&xisting'
        ParentShowHint = False
        ShowHint = True
        TabOrder = 4
      end
      object chkUSkipIfNotExisting: TCheckBox
        Left = 8
        Top = 288
        Width = 105
        Height = 17
        Caption = 'SkipIfN&otExisting'
        ParentShowHint = False
        ShowHint = True
        TabOrder = 5
      end
      object chkUSkipIfOlderDate: TCheckBox
        Left = 136
        Top = 272
        Width = 105
        Height = 17
        Caption = 'SkipIfOlder&Date'
        ParentShowHint = False
        ShowHint = True
        TabOrder = 6
      end
      object chkUSkipIfOlderVersion: TCheckBox
        Left = 136
        Top = 288
        Width = 113
        Height = 17
        Caption = 'SkipIfOlder&Version'
        ParentShowHint = False
        ShowHint = True
        TabOrder = 7
      end
      object btUnzip: TButton
        Left = 272
        Top = 280
        Width = 75
        Height = 25
        Caption = '&Unzip!'
        ParentShowHint = False
        ShowHint = True
        TabOrder = 8
        OnClick = btUnzipClick
      end
      object Memo2: TMemo
        Left = 8
        Top = 8
        Width = 329
        Height = 73
        BorderStyle = bsNone
        Color = clBtnFace
        Lines.Strings = (

            'This method unzips files. The destination unzipping folder must ' +
            'be '

            'specified with the UnzipToFolder. The files to unzip must be spe' +
            'cified '

            'to the FilesToProcess property. You can leave FilesToProcess emp' +
            'ty '

            'to unzip all files, or specify the filenames or file masks to un' +
            'zip. When '
          'listing or unzipping, the BasePath property is ignored.')
        ReadOnly = True
        TabOrder = 9
      end
    end
    object shtSFX: TTabSheet
      Caption = 'SFX'
      object Label29: TLabel
        Left = 8
        Top = 80
        Width = 65
        Height = 17
        AutoSize = False
        Caption = 'ZipFile&name:'
      end
      object Label30: TLabel
        Left = 8
        Top = 120
        Width = 81
        Height = 17
        AutoSize = False
        Caption = 'FilesTo&Process:'
      end
      object Label31: TLabel
        Left = 8
        Top = 176
        Width = 89
        Height = 17
        AutoSize = False
        Caption = 'Sfx&BinaryModule:'
      end
      object Label32: TLabel
        Left = 8
        Top = 216
        Width = 105
        Height = 17
        AutoSize = False
        Caption = 'SfxStrings[ xss&Title ]:'
      end
      object Label33: TLabel
        Left = 8
        Top = 256
        Width = 121
        Height = 17
        AutoSize = False
        Caption = 'SfxMessages[ xsm&Intro ]:'
      end
      object edtSZipFilename: TEdit
        Left = 8
        Top = 96
        Width = 337
        Height = 21
        ParentShowHint = False
        ShowHint = True
        TabOrder = 0
      end
      object edtSFilesToProcess: TMemo
        Left = 8
        Top = 136
        Width = 337
        Height = 33
        ParentShowHint = False
        ShowHint = True
        TabOrder = 1
      end
      object edtSSfxBinaryModule: TEdit
        Left = 8
        Top = 192
        Width = 337
        Height = 21
        ParentShowHint = False
        ShowHint = True
        TabOrder = 2
      end
      object edtSTitle: TEdit
        Left = 8
        Top = 232
        Width = 337
        Height = 21
        ParentShowHint = False
        ShowHint = True
        TabOrder = 3
      end
      object btZipSfx: TButton
        Left = 272
        Top = 280
        Width = 75
        Height = 25
        Caption = '&Zip SFX!'
        ParentShowHint = False
        ShowHint = True
        TabOrder = 5
        OnClick = btZipSfxClick
      end
      object edtSIntro: TMemo
        Left = 8
        Top = 272
        Width = 249
        Height = 33
        ParentShowHint = False
        ShowHint = True
        TabOrder = 4
      end
      object Memo3: TMemo
        Left = 8
        Top = 8
        Width = 329
        Height = 73
        BorderStyle = bsNone
        Color = clBtnFace
        Lines.Strings = (

            'Creating a self-extracting zip file is identical to creating a n' +
            'ormal zip '

            'file, except that a binary module is prepended to the zip file. ' +
            'This '

            'binary module (specified with the SfxBinaryModule property) cont' +
            'ains '

            'all the necessary code to extract its appended zip file. The onl' +
            'y thing '

            'left is to change the look and feel with the Sfx* group of prope' +
            'rties.')
        ReadOnly = True
        TabOrder = 6
      end
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 400
    Width = 625
    Height = 25
    Align = alNone
    Panels = <
      item
        Text = 'File:'
        Width = 305
      end
      item
        Text = 'Global:'
        Width = 50
      end>
    SimplePanel = False
    SizeGrip = False
  end
  object edtResults: TMemo
    Left = 376
    Top = 64
    Width = 241
    Height = 329
    TabOrder = 2
  end
  object barFile: TProgressBar
    Left = 40
    Top = 408
    Width = 257
    Height = 12
    Min = 0
    Max = 100
    TabOrder = 4
  end
  object barGlobal: TProgressBar
    Left = 360
    Top = 408
    Width = 257
    Height = 12
    Min = 0
    Max = 100
    TabOrder = 3
  end
  object xZip: TXceedZip
    Left = 585
    Top = 5
    Width = 30
    Height = 30
    OnListingFile = xZipListingFile
    OnPreviewingFile = xZipPreviewingFile
    OnInsertDisk = xZipInsertDisk
    OnSkippingFile = xZipSkippingFile
    OnFileStatus = xZipFileStatus
    OnGlobalStatus = xZipGlobalStatus
    OnProcessCompleted = xZipProcessCompleted
    OnWarning = xZipWarning
    OnReplacingFile = xZipReplacingFile
    OnZipContentsStatus = xZipZipContentsStatus
    ControlData = {
      0003000008000200000000000300060000000800020000000000030000000000
      0300180000000800020000000000080002000000000007000000000000000040
      070000000080409246410300000000000300000000000300000000000B00FFFF
      0B0000000B0000000B0000000B0000000B00000008000200000000000B00FFFF
      0800020000000000080002000000000003000200000003000A0000000B000000
      0B00000008000200000000000800020000000000080002000000000003000000
      0000080002000000000008000200000000000B00000008000200000000000800
      02000000000008000200000000000800020000000000}
  end
end