PC World Komputer 1998 January/Pcwk0198.iso/Warsztat/Compress/SUPERZIP/SZIPW40.EXE/_SETUP.1/ZIPWIZ.exe/0/RCDATA/TMAINFORM/TMAINFORM.txt

Text File | 1996-12-29 | 22KB | 939 lines

object MainForm: TMainForm
  Left = 235
  Top = 124
  BorderIcons = [biSystemMenu]
  BorderStyle = bsDialog
  Caption = 'ASTEC ZipWizard'
  ClientHeight = 273
  ClientWidth = 427
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Position = poScreenCenter
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object PageControl1: TPageControl
    Left = 0
    Top = 0
    Width = 427
    Height = 273
    ActivePage = Third
    Align = alClient
    ParentShowHint = False
    ShowHint = True
    TabOrder = 0
    object First: TTabSheet
      Caption = 'First'
      TabVisible = False
      OnEnter = FirstEnter
      object Image1: TImage
        Left = 94
        Top = 14
        Width = 305
        Height = 91
        Picture.Data = {<image000.bmp>}
        Stretch = True
      end
      object Label1: TLabel
        Left = 238
        Top = 110
        Width = 160
        Height = 29
        Caption = 'ZipWizard 1.0'
        Font.Color = clBlack
        Font.Height = -24
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label2: TLabel
        Left = 14
        Top = 156
        Width = 339
        Height = 13
        Caption =
          'Please select a Zip file to work with or click on the "CreateNew' +
          '" Button.'
      end
      object ZipFileName: TEdit
        Left = 13
        Top = 174
        Width = 324
        Height = 21
        TabOrder = 0
        OnChange = ZipFileNameChange
      end
      object BrowseButton1: TButton
        Left = 341
        Top = 174
        Width = 65
        Height = 21
        Caption = '&Browse'
        TabOrder = 1
        OnClick = BrowseButton1Click
      end
      object CreateNewBtn: TButton
        Left = 341
        Top = 198
        Width = 65
        Height = 21
        Caption = 'CreateNe&w'
        TabOrder = 2
        OnClick = CreateNewBtnClick
      end
      object Panel2: TPanel
        Left = 0
        Top = -33
        Width = 0
        Height = 33
        Align = alBottom
        BevelOuter = bvLowered
        Caption = 'Panel1'
        TabOrder = 3
        object Button3: TButton
          Left = 336
          Top = 6
          Width = 75
          Height = 21
          Caption = '&Close'
          TabOrder = 0
          OnClick = CloseClick
        end
        object Button4: TButton
          Left = 180
          Top = 6
          Width = 75
          Height = 21
          Caption = '<< &Previous'
          Enabled = False
          TabOrder = 1
        end
        object Button5: TButton
          Left = 258
          Top = 6
          Width = 75
          Height = 21
          Caption = '&Next >>'
          Default = True
          Enabled = False
          TabOrder = 2
          OnClick = Button5Click
        end
      end
      object Button21: TButton
        Left = 232
        Top = 198
        Width = 106
        Height = 21
        Caption = '&Open with Szipw32'
        Enabled = False
        TabOrder = 4
        OnClick = Button21Click
      end
      object RegBox: TCheckBox
        Left = 12
        Top = 200
        Width = 185
        Height = 17
        Caption = 'Register ZipWizard with Zip files'
        State = cbChecked
        TabOrder = 5
      end
    end
    object Second: TTabSheet
      Caption = 'Second'
      TabVisible = False
      OnEnter = SecondEnter
      object Label3: TLabel
        Left = 59
        Top = 52
        Width = 305
        Height = 16
        Caption = 'Please select the action you want to perform'
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object AddToZip: TRadioButton
        Left = 130
        Top = 108
        Width = 135
        Height = 17
        Caption = '&Add files to the Zip file'
        TabOrder = 0
      end
      object ExtractFromZip: TRadioButton
        Left = 130
        Top = 135
        Width = 163
        Height = 17
        Caption = '&Extract files from the Zip file'
        Checked = True
        TabOrder = 1
        TabStop = True
      end
      object Panel3: TPanel
        Left = 0
        Top = 230
        Width = 419
        Height = 33
        Align = alBottom
        BevelOuter = bvLowered
        Caption = 'Panel1'
        TabOrder = 2
        object Button6: TButton
          Left = 336
          Top = 6
          Width = 75
          Height = 21
          Caption = '&Close'
          TabOrder = 0
          OnClick = CloseClick
        end
        object Button7: TButton
          Left = 180
          Top = 6
          Width = 75
          Height = 21
          Caption = '<< &Previous'
          TabOrder = 1
          OnClick = Button7Click
        end
        object Button8: TButton
          Left = 258
          Top = 6
          Width = 75
          Height = 21
          Caption = '&Next >>'
          Default = True
          TabOrder = 2
          OnClick = Button8Click
        end
      end
      object TestZip: TRadioButton
        Left = 130
        Top = 162
        Width = 163
        Height = 17
        Caption = '&Test files in the Zip file'
        TabOrder = 3
      end
    end
    object Third: TTabSheet
      Caption = 'Third'
      TabVisible = False
      OnEnter = ThirdEnter
      object Label4: TLabel
        Left = 6
        Top = 6
        Width = 378
        Height = 13
        Caption =
          'Select the file to extract and the extract location then click o' +
          'n the extract button.'
      end
      object zipViewer1: TzipViewer
        Left = 12
        Top = 32
        Width = 203
        Height = 168
        Hint = 'Zip file Contents'
        Indent = 19
        ParentColor = False
        TabOrder = 0
        OnStatusMessage = zipViewer1StatusMessage
      end
      object DirTree1: TDirTree
        Left = 226
        Top = 56
        Width = 181
        Height = 144
        Hint = 'Extract location'
        ReadOnly = True
        Indent = 19
        ParentColor = False
        TabOrder = 1
        PopupMenu = DirTree1.
        Images = DirTree1.
      end
      object Button1: TButton
        Left = 228
        Top = 32
        Width = 85
        Height = 21
        Caption = '&Extract'
        TabOrder = 2
        OnClick = Button1Click
      end
      object Button2: TButton
        Left = 320
        Top = 32
        Width = 85
        Height = 21
        Caption = 'Extract &All'
        Default = True
        TabOrder = 3
        OnClick = Button2Click
      end
      object Panel4: TPanel
        Left = 0
        Top = 230
        Width = 419
        Height = 33
        Align = alBottom
        BevelOuter = bvLowered
        Caption = 'Panel1'
        TabOrder = 4
        object Button9: TButton
          Left = 336
          Top = 6
          Width = 75
          Height = 21
          Caption = '&Close'
          TabOrder = 0
          OnClick = CloseClick
        end
        object Button10: TButton
          Left = 180
          Top = 6
          Width = 75
          Height = 21
          Caption = '<< &Previous'
          TabOrder = 1
          OnClick = Button10Click
        end
        object Button11: TButton
          Left = 258
          Top = 6
          Width = 75
          Height = 21
          Caption = '&Next >>'
          Enabled = False
          TabOrder = 2
        end
      end
      object Panel8: TPanel
        Left = 12
        Top = 203
        Width = 395
        Height = 22
        BevelOuter = bvLowered
        TabOrder = 5
        object Panel9: TPanel
          Left = 274
          Top = 1
          Width = 120
          Height = 20
          Align = alRight
          TabOrder = 0
          object ProgressBar1: TProgressBar
            Left = 1
            Top = 1
            Width = 118
            Height = 18
            Align = alClient
            Min = 0
            Max = 100
            TabOrder = 0
          end
        end
        object Status: TPanel
          Left = 1
          Top = 1
          Width = 273
          Height = 20
          Align = alClient
          Alignment = taLeftJustify
          TabOrder = 1
        end
      end
    end
    object Fourth: TTabSheet
      Caption = 'Fourth'
      TabVisible = False
      object GroupBox1: TGroupBox
        Left = 186
        Top = 98
        Width = 187
        Height = 125
        Caption = 'Filename storage options'
        TabOrder = 0
        object Recurse: TCheckBox
          Left = 12
          Top = 20
          Width = 141
          Height = 17
          Caption = '&Recurse sub directories'
          State = cbChecked
          TabOrder = 0
          OnClick = RecurseClick
        end
        object FullPath: TCheckBox
          Left = 12
          Top = 40
          Width = 147
          Height = 17
          Caption = '&Store full path information'
          Enabled = False
          State = cbChecked
          TabOrder = 1
        end
        object Volume: TCheckBox
          Left = 12
          Top = 60
          Width = 119
          Height = 17
          Caption = 'Store &volume label '
          TabOrder = 2
        end
        object Span: TCheckBox
          Left = 12
          Top = 100
          Width = 163
          Height = 17
          Caption = 'Span across several &diskettes'
          TabOrder = 3
        end
        object MoveCtrl: TCheckBox
          Left = 12
          Top = 80
          Width = 163
          Height = 17
          Caption = '&Move (delete files afterward)'
          TabOrder = 4
        end
      end
      object GroupBox2: TGroupBox
        Left = 46
        Top = 2
        Width = 327
        Height = 91
        Caption = 'Action options'
        TabOrder = 1
        object AddCtrl: TRadioButton
          Left = 10
          Top = 20
          Width = 163
          Height = 17
          Caption = '&Add all files matching criteria'
          TabOrder = 0
        end
        object UpdateCtrl: TRadioButton
          Left = 10
          Top = 42
          Width = 279
          Height = 17
          Caption = 'Add all new files and &update files that have changed'
          Checked = True
          TabOrder = 1
          TabStop = True
        end
        object FreshenCtrl: TRadioButton
          Left = 10
          Top = 66
          Width = 289
          Height = 17
          Caption = '&Freshen files that have changed, do not add new files'
          TabOrder = 2
        end
      end
      object Panel5: TPanel
        Left = 0
        Top = 230
        Width = 419
        Height = 33
        Align = alBottom
        BevelOuter = bvLowered
        Caption = 'Panel1'
        TabOrder = 2
        object Button12: TButton
          Left = 336
          Top = 6
          Width = 75
          Height = 21
          Caption = '&Close'
          TabOrder = 0
          OnClick = CloseClick
        end
        object Button13: TButton
          Left = 180
          Top = 6
          Width = 75
          Height = 21
          Caption = '<< &Previous'
          TabOrder = 1
          OnClick = Button13Click
        end
        object Button14: TButton
          Left = 258
          Top = 6
          Width = 75
          Height = 21
          Caption = '&Next >>'
          Default = True
          TabOrder = 2
          OnClick = Button14Click
        end
      end
      object Iconized: TCheckBox
        Left = 50
        Top = 104
        Width = 127
        Height = 17
        Caption = 'Run SZIPW &Iconized'
        State = cbChecked
        TabOrder = 3
      end
    end
    object Fifth: TTabSheet
      Caption = 'Fifth'
      TabVisible = False
      object Label5: TLabel
        Left = 6
        Top = 2
        Width = 336
        Height = 16
        Caption = 'Please select the files, group of files to add to the Zip file. '
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object GroupBox3: TGroupBox
        Left = 170
        Top = 106
        Width = 245
        Height = 121
        Caption = 'List of search criteria'
        TabOrder = 0
        object ListBox1: TListBox
          Left = 9
          Top = 14
          Width = 231
          Height = 77
          ItemHeight = 13
          TabOrder = 0
        end
        object Remove: TButton
          Left = 160
          Top = 96
          Width = 81
          Height = 21
          Caption = '&Remove '
          TabOrder = 1
          OnClick = RemoveClick
        end
      end
      object DirTree2: TDirTree
        Left = 4
        Top = 26
        Width = 161
        Height = 199
        ReadOnly = True
        Indent = 19
        ParentColor = False
        TabOrder = 1
        PopupMenu = DirTree2.
        Images = DirTree2.
      end
      object GroupBox4: TGroupBox
        Left = 170
        Top = 22
        Width = 245
        Height = 83
        Caption = 'Create criteria'
        TabOrder = 2
        object Label6: TLabel
          Left = 6
          Top = 14
          Width = 217
          Height = 15
          AutoSize = False
          Caption = 'Enter a search criteria (*-*, data?.dta, ect...)'
        end
        object Label7: TLabel
          Left = 6
          Top = 28
          Width = 147
          Height = 25
          AutoSize = False
          Caption = 'Click Include to add files, Exclude files to skip.'
        end
        object Pattern: TEdit
          Left = 6
          Top = 56
          Width = 147
          Height = 21
          TabOrder = 0
          Text = '*.*'
          OnChange = PatternChange
        end
        object Include: TButton
          Left = 158
          Top = 58
          Width = 81
          Height = 21
          Caption = '&Include criteria'
          Default = True
          TabOrder = 1
          OnClick = IncludeClick
        end
        object Exclude: TButton
          Left = 158
          Top = 34
          Width = 81
          Height = 21
          Caption = '&Exclude criteria'
          TabOrder = 2
          OnClick = ExcludeClick
        end
      end
      object Panel1: TPanel
        Left = 0
        Top = -33
        Width = 0
        Height = 33
        Align = alBottom
        BevelOuter = bvLowered
        Caption = 'Panel1'
        TabOrder = 3
        object FinishBtn: TButton
          Left = 336
          Top = 6
          Width = 75
          Height = 21
          Caption = '&Close'
          TabOrder = 0
          OnClick = CloseClick
        end
        object BackBtn: TButton
          Left = 180
          Top = 6
          Width = 75
          Height = 21
          Caption = '<< &Previous'
          TabOrder = 1
          OnClick = BackBtnClick
        end
        object NextBtn: TButton
          Left = 258
          Top = 6
          Width = 75
          Height = 21
          Caption = '&Next >>'
          TabOrder = 2
          OnClick = NextBtnClick
        end
      end
    end
    object Sixth: TTabSheet
      Caption = 'Sixth'
      TabVisible = False
      OnEnter = SixthEnter
      object Label8: TLabel
        Left = 10
        Top = 6
        Width = 399
        Height = 47
        AutoSize = False
        Caption =
          'You are now ready to add files to your Zip files.  Please verify' +
          ' the Zipping options below.'
        Font.Color = clBlack
        Font.Height = -16
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label9: TLabel
        Left = 17
        Top = 60
        Width = 63
        Height = 13
        Caption = 'Zip filename :'
      end
      object Label10: TLabel
        Left = 27
        Top = 84
        Width = 52
        Height = 13
        Caption = 'Operation :'
      end
      object Panel6: TPanel
        Left = 0
        Top = 230
        Width = 419
        Height = 33
        Align = alBottom
        BevelOuter = bvLowered
        Caption = 'Panel1'
        TabOrder = 0
        object Button15: TButton
          Left = 336
          Top = 6
          Width = 75
          Height = 21
          Caption = '&Finish'
          Default = True
          TabOrder = 0
          OnClick = Button15Click
        end
        object Button16: TButton
          Left = 180
          Top = 6
          Width = 75
          Height = 21
          Caption = '<< &Previous'
          TabOrder = 1
          OnClick = Button16Click
        end
        object Button17: TButton
          Left = 258
          Top = 6
          Width = 75
          Height = 21
          Caption = '&Next >>'
          TabOrder = 2
        end
      end
      object Edit1: TEdit
        Left = 85
        Top = 58
        Width = 317
        Height = 21
        Color = clSilver
        ReadOnly = True
        TabOrder = 1
      end
      object Edit2: TEdit
        Left = 85
        Top = 82
        Width = 317
        Height = 21
        Color = clSilver
        ReadOnly = True
        TabOrder = 2
      end
      object GroupBox6: TGroupBox
        Left = 206
        Top = 114
        Width = 199
        Height = 107
        Caption = 'List of search criteria'
        TabOrder = 4
        object ListBox2: TListBox
          Left = 8
          Top = 18
          Width = 180
          Height = 83
          ItemHeight = 13
          TabOrder = 0
        end
      end
      object GroupBox5: TGroupBox
        Left = 14
        Top = 114
        Width = 187
        Height = 107
        Caption = 'Filename storage options'
        TabOrder = 3
        object ListBox3: TListBox
          Left = 6
          Top = 18
          Width = 173
          Height = 83
          ItemHeight = 13
          TabOrder = 0
        end
      end
    end
    object Seventh: TTabSheet
      Caption = 'Seventh'
      TabVisible = False
      OnEnter = SeventhEnter
      object Label11: TLabel
        Left = 280
        Top = 108
        Width = 118
        Height = 29
        Caption = 'ZipWizard'
        Font.Color = clBlack
        Font.Height = -24
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Image2: TImage
        Left = 94
        Top = 14
        Width = 305
        Height = 91
        Picture.Data = {<image001.bmp>}
        Stretch = True
      end
      object Label12: TLabel
        Left = 10
        Top = 178
        Width = 397
        Height = 31
        AutoSize = False
        Caption =
          'ZipWizard is now running SZIPW32 to process your commands, this ' +
          'might take a few minutes.'
      end
      object Panel7: TPanel
        Left = 0
        Top = -33
        Width = 0
        Height = 33
        Align = alBottom
        BevelOuter = bvLowered
        TabOrder = 0
        object Button18: TButton
          Left = 336
          Top = 6
          Width = 75
          Height = 21
          Caption = '&Close'
          TabOrder = 0
          OnClick = CloseClick
        end
      end
    end
    object Eigth: TTabSheet
      Caption = 'Eigth'
      TabVisible = False
      OnEnter = EigthEnter
      object Label13: TLabel
        Left = 238
        Top = 110
        Width = 160
        Height = 29
        Caption = 'ZipWizard 1.0'
        Font.Color = clBlack
        Font.Height = -24
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Image3: TImage
        Left = 94
        Top = 14
        Width = 305
        Height = 91
        Picture.Data = {<image002.bmp>}
        Stretch = True
      end
      object Label14: TLabel
        Left = 6
        Top = 188
        Width = 41
        Height = 13
        Caption = 'Testing :'
      end
      object Panel10: TPanel
        Left = 6
        Top = 204
        Width = 407
        Height = 22
        BevelOuter = bvLowered
        Caption = 'Panel10'
        TabOrder = 0
        object Panel11: TPanel
          Left = 286
          Top = 1
          Width = 120
          Height = 20
          Align = alRight
          Caption = 'Panel11'
          TabOrder = 0
          object ProgressBar2: TProgressBar
            Left = 1
            Top = 1
            Width = 118
            Height = 18
            Align = alClient
            Min = 0
            Max = 100
            TabOrder = 0
          end
        end
        object Panel12: TPanel
          Left = 1
          Top = 1
          Width = 285
          Height = 20
          Align = alClient
          Alignment = taLeftJustify
          TabOrder = 1
        end
      end
      object Panel13: TPanel
        Left = 0
        Top = -33
        Width = 0
        Height = 33
        Align = alBottom
        BevelOuter = bvLowered
        TabOrder = 1
        object Button19: TButton
          Left = 336
          Top = 6
          Width = 75
          Height = 21
          Caption = '&Close'
          Default = True
          TabOrder = 0
          OnClick = CloseClick
        end
        object Button20: TButton
          Left = 178
          Top = 6
          Width = 75
          Height = 21
          Caption = '<< &Previous'
          TabOrder = 1
          OnClick = Button20Click
        end
        object Button22: TButton
          Left = 258
          Top = 6
          Width = 75
          Height = 21
          Caption = '&Next >>'
          Enabled = False
          TabOrder = 2
        end
      end
    end
  end
  object OpenDialog1: TOpenDialog
    FileEditStyle = fsEdit
    Filter = 'Zip files (*.zip;*.exe)|*.zip;*.exe'
    Options = [ofHideReadOnly, ofPathMustExist, ofFileMustExist, ofNoReadOnlyReturn]
    Title = 'Open existing Zip file'
    Left = 94
    Top = 156
  end
  object SaveDialog1: TSaveDialog
    DefaultExt = 'zip'
    FileEditStyle = fsEdit
    Filter = 'Zip files (*.zip;*.exe)|*.zip;*.exe'
    Options = [ofOverwritePrompt, ofHideReadOnly, ofPathMustExist]
    Title = 'Create New Zip file'
    Left = 124
    Top = 166
  end
  object ZipFile1: TZipFile
    Left = 14
    Top = 26
  end
end