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

Text File | 1996-12-22 | 52.9 KB | 1,783 lines

object MainForm: TMainForm
  Left = 102
  Top = 56
  Width = 650
  Height = 431
  ActiveControl = SpeedSearch
  Caption = 'Szipw'
  Font.Color = clBlack
  Font.Height = -14
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {<image000.ico>}
  Menu = MainMenu1
  ShowHint = True
  OnClose = FormClose
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 120
  TextHeight = 16
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 642
    Height = 354
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 0
    object PageControl1: TPageControl
      Left = 316
      Top = 37
      Width = 326
      Height = 317
      ActivePage = TabSheet2
      Align = alClient
      TabOrder = 0
      OnChange = PageControl1Change
      object TabSheet4: TTabSheet
        Caption = 'Properties'
        object Panel13: TPanel
          Left = 0
          Top = 0
          Width = 464
          Height = 287
          Align = alTop
          BevelOuter = bvNone
          TabOrder = 0
          object GroupBox3: TGroupBox
            Left = 0
            Top = 0
            Width = 464
            Height = 287
            Align = alClient
            Caption = 'Archive comment'
            TabOrder = 0
            object ArchiveComment: TMemo
              Left = 2
              Top = 18
              Width = 460
              Height = 90
              Hint = '|Archive comment'
              Align = alClient
              ScrollBars = ssVertical
              TabOrder = 0
              OnExit = ArchiveCommentExit
            end
            object Panel18: TPanel
              Left = 2
              Top = 109
              Width = 373
              Height = 176
              Align = alBottom
              BevelOuter = bvNone
              TabOrder = 1
              OnResize = Panel18Resize
              object GroupBox1: TGroupBox
                Left = 0
                Top = 1
                Width = 459
                Height = 175
                Align = alBottom
                Caption = 'Selected File properties'
                TabOrder = 0
                object Panel21: TPanel
                  Left = 2
                  Top = 20
                  Width = 442
                  Height = 152
                  BevelOuter = bvNone
                  Caption = 'Panel21'
                  TabOrder = 0
                  object Label3: TLabel
                    Left = 1
                    Top = 5
                    Width = 69
                    Height = 16
                    Alignment = taRightJustify
                    AutoSize = False
                    Caption = 'Filename :'
                  end
                  object Label4: TLabel
                    Left = 1
                    Top = 38
                    Width = 69
                    Height = 16
                    Alignment = taRightJustify
                    AutoSize = False
                    Caption = 'File Date :'
                  end
                  object Label5: TLabel
                    Left = 1
                    Top = 68
                    Width = 69
                    Height = 16
                    Alignment = taRightJustify
                    AutoSize = False
                    Caption = 'File Time :'
                  end
                  object Label6: TLabel
                    Left = 1
                    Top = 97
                    Width = 69
                    Height = 16
                    Alignment = taRightJustify
                    AutoSize = False
                    Caption = 'Comp Size :'
                  end
                  object Label12: TLabel
                    Left = 1
                    Top = 128
                    Width = 69
                    Height = 16
                    Alignment = taRightJustify
                    AutoSize = False
                    Caption = 'File size :'
                  end
                  object Label11: TLabel
                    Left = 215
                    Top = 128
                    Width = 52
                    Height = 16
                    AutoSize = False
                    Caption = 'Method :'
                  end
                  object NameEdit: TEdit
                    Left = 76
                    Top = 0
                    Width = 356
                    Height = 21
                    Hint = '|Full path name of file'
                    Color = clWhite
                    TabOrder = 0
                    OnExit = NameEditExit
                  end
                  object DateEdit: TMaskEdit
                    Left = 76
                    Top = 34
                    Width = 114
                    Height = 21
                    Hint = '|File Date'
                    Color = clWhite
                    EditMask = '!99/99/00;1;0'
                    MaxLength = 8
                    TabOrder = 1
                    Text = '  /  /  '
                    OnExit = DateTimeExit
                  end
                  object TimeEdit: TMaskEdit
                    Left = 76
                    Top = 64
                    Width = 114
                    Height = 21
                    Hint = '|File Time'
                    Color = clWhite
                    EditMask = '!90:00:00;1;0'
                    MaxLength = 8
                    TabOrder = 2
                    Text = '  :  :  '
                    OnExit = DateTimeExit
                  end
                  object SizeEdit: TEdit
                    Left = 76
                    Top = 94
                    Width = 114
                    Height = 21
                    Hint = '|Compressed file size'
                    TabStop = False
                    Color = clBtnFace
                    ReadOnly = True
                    TabOrder = 3
                  end
                  object LengthEdit: TEdit
                    Left = 76
                    Top = 123
                    Width = 114
                    Height = 21
                    Hint = '|File size'
                    TabStop = False
                    Color = clBtnFace
                    ReadOnly = True
                    TabOrder = 4
                  end
                  object MethodEdit: TEdit
                    Left = 278
                    Top = 123
                    Width = 90
                    Height = 21
                    Hint = '|Compression method'
                    Color = clBtnFace
                    ReadOnly = True
                    TabOrder = 5
                  end
                  object RatioEdit: TEdit
                    Left = 372
                    Top = 123
                    Width = 60
                    Height = 21
                    Hint = '|Compression ratio'
                    Color = clBtnFace
                    ReadOnly = True
                    TabOrder = 6
                  end
                  object attributes: TGroupBox
                    Left = 197
                    Top = 28
                    Width = 235
                    Height = 93
                    Caption = 'File Attributes'
                    TabOrder = 7
                    object Label13: TLabel
                      Left = 153
                      Top = 70
                      Width = 59
                      Height = 16
                      Hint = '|Encrypted flag'
                      AutoSize = False
                      Caption = 'Encrypted'
                      Font.Color = clBlack
                      Font.Height = -15
                      Font.Name = 'MS Sans Serif'
                      Font.Style = []
                      ParentFont = False
                    end
                    object Label14: TLabel
                      Left = 34
                      Top = 70
                      Width = 60
                      Height = 16
                      Hint = '|Volume label attribute'
                      AutoSize = False
                      Caption = 'Volume label'
                    end
                    object RdCtrl: TCheckBox
                      Left = 12
                      Top = 43
                      Width = 105
                      Height = 21
                      Hint = '|Read Only attribute'
                      Caption = 'Read Only'
                      TabOrder = 2
                      OnMouseUp = AttrMouseUp
                    end
                    object ArcCtrl: TCheckBox
                      Left = 12
                      Top = 18
                      Width = 105
                      Height = 21
                      Hint = '|Archive attribute'
                      Caption = 'Archive'
                      TabOrder = 0
                      OnMouseUp = AttrMouseUp
                    end
                    object HidCtrl: TCheckBox
                      Left = 134
                      Top = 18
                      Width = 84
                      Height = 21
                      Hint = '|Hidden attribute'
                      Caption = 'Hidden'
                      TabOrder = 1
                      OnMouseUp = AttrMouseUp
                    end
                    object SysCtrl: TCheckBox
                      Left = 134
                      Top = 43
                      Width = 84
                      Height = 21
                      Hint = '|System attribute'
                      Caption = 'System'
                      TabOrder = 3
                      OnMouseUp = AttrMouseUp
                    end
                    object VolCtrl: TCheckBox
                      Left = 12
                      Top = 68
                      Width = 20
                      Height = 21
                      Hint = '|Volume label attribute'
                      Caption = 'VolCtrl'
                      Enabled = False
                      TabOrder = 4
                      OnMouseUp = AttrMouseUp
                    end
                    object CryptCtrl: TCheckBox
                      Left = 134
                      Top = 68
                      Width = 19
                      Height = 21
                      Hint = '|Encrypted flag'
                      Caption = 'CryptCtrl'
                      Enabled = False
                      TabOrder = 5
                    end
                  end
                end
              end
            end
          end
        end
        object FileComment: TMemo
          Left = 0
          Top = 287
          Width = 377
          Height = 12
          Hint = '|Comments associated with this file'
          Align = alClient
          ScrollBars = ssVertical
          TabOrder = 1
          OnExit = FileCommentExit
        end
      end
      object TabSheet3: TTabSheet
        Caption = 'Contents'
        object Memo1: TRichEdit
          Left = 0
          Top = 0
          Width = 464
          Height = 438
          Hint = 'Contents|Content of selected file'
          Align = alClient
          PlainText = True
          PopupMenu = PopupMenu2
          ScrollBars = ssBoth
          TabOrder = 0
          OnExit = Memo1Exit
        end
      end
      object TabSheet2: TTabSheet
        Caption = 'Extract'
        object Panel6: TPanel
          Left = 0
          Top = 0
          Width = 318
          Height = 152
          Align = alClient
          BevelOuter = bvNone
          TabOrder = 0
          object DirTree2: TDirTree
            Left = 0
            Top = 0
            Width = 318
            Height = 152
            Hint = '|Extract location, click the right mouse button for a popup menu'
            ReadOnly = True
            HideSelection = False
            Indent = 19
            Align = alClient
            ParentColor = False
            TabOrder = 0
            OnDragDrop = DirTree2DragDrop
            OnDragOver = DirTree2DragOver
            PopupMenu = DirTree2.
            Images = DirTree2.
          end
        end
        object Panel7: TPanel
          Left = 0
          Top = 152
          Width = 318
          Height = 134
          Align = alBottom
          BevelOuter = bvNone
          TabOrder = 1
          OnResize = Panel7Resize
          object Label2: TLabel
            Left = 2
            Top = 34
            Width = 98
            Height = 19
            AutoSize = False
            Caption = 'Extract mask :'
          end
          object Label8: TLabel
            Left = 2
            Top = 84
            Width = 98
            Height = 18
            AutoSize = False
            Caption = 'Password :'
          end
          object ExtractBtn: TButton
            Left = 101
            Top = 5
            Width = 92
            Height = 26
            Hint = '|Extract files'
            Caption = 'Extract &All'
            Default = True
            TabOrder = 1
            OnClick = All3Click
          end
          object Button4: TButton
            Left = 2
            Top = 5
            Width = 93
            Height = 26
            Hint = '|Extract files'
            Caption = '&Extract'
            TabOrder = 0
            OnClick = ExtractBtnClick
          end
          object MaskEdit1: TEdit
            Left = 2
            Top = 53
            Width = 216
            Height = 24
            Hint =
              'Extract mask|Type several masks by separating them with a '#39';'#39' (e' +
              'x : *.exe;*.lst;*.txt )'
            TabOrder = 2
            Text = '*.*'
          end
          object PasswordEdit3: TEdit
            Left = 2
            Top = 102
            Width = 216
            Height = 24
            Hint = 'Password|Pssword used do decrypt files'
            TabOrder = 3
          end
        end
      end
      object TabSheet1: TTabSheet
        Caption = 'Add'
        object Panel5: TPanel
          Left = 0
          Top = 0
          Width = 464
          Height = 262
          Align = alClient
          BevelOuter = bvNone
          Caption = 'Panel5'
          TabOrder = 0
          object Panel11: TPanel
            Left = 0
            Top = 0
            Width = 464
            Height = 262
            Align = alClient
            BevelOuter = bvNone
            TabOrder = 0
            object dirList1: TdirList
              Left = 208
              Top = 21
              Width = 256
              Height = 241
              Hint = '|Available files and subdirectories in the current directory'
              Align = alClient
              Columns = <>
              DragMode = dmAutomatic
              ReadOnly = True
              HideSelection = False
              MultiSelect = True
              PopupMenu = dirList1.
              TabOrder = 1
              ViewStyle = vsSmallIcon
              LargeImages = dirList1.
              SmallImages = dirList1.
            end
            object Header1: THeader
              Left = 0
              Top = 0
              Width = 464
              Height = 21
              Align = alTop
              BorderStyle = bsNone
              Sections.Sections = (
                #0'169'#0'Directories'
                #0'29'#0'Files')
              TabOrder = 2
              OnSized = Header1Sized
            end
            object DirTree1: TDirTree
              Left = 0
              Top = 21
              Width = 208
              Height = 241
              Hint = '|Available drives and directories'
              ReadOnly = True
              DragMode = dmAutomatic
              HideSelection = False
              Indent = 19
              Align = alLeft
              ParentColor = False
              TabOrder = 0
              PopupMenu = DirTree1.
              Images = DirTree1.
              DirList = dirList1
            end
          end
        end
        object Panel3: TPanel
          Left = 0
          Top = -110
          Width = 0
          Height = 110
          Align = alBottom
          BevelOuter = bvNone
          TabOrder = 1
          OnResize = Panel3Resize
          object Label1: TLabel
            Left = 5
            Top = 63
            Width = 81
            Height = 19
            Caption = 'Password :'
          end
          object StorePath1: TCheckBox
            Left = 103
            Top = 0
            Width = 120
            Height = 21
            Hint = '|Store full Path with filenames'
            Caption = '&Store Full Path'
            TabOrder = 0
            OnClick = StorePath1Click
          end
          object RecurseDirs: TCheckBox
            Left = 103
            Top = 20
            Width = 174
            Height = 21
            Hint = '|Recurse sub directories'
            Caption = '&Recurse sub directories'
            TabOrder = 1
            OnClick = RecurseDirsClick
          end
          object PasswordEdit: TEdit
            Left = 5
            Top = 82
            Width = 400
            Height = 21
            Hint = 'Password|Password used to encrypt the files'
            MaxLength = 80
            TabOrder = 5
          end
          object StoreVolume: TCheckBox
            Left = 103
            Top = 39
            Width = 149
            Height = 21
            Hint = '|Store volume label of drive in archive'
            Caption = 'Store &Volume label'
            TabOrder = 2
            OnClick = StoreVolumeClick
          end
          object AddBtn: TButton
            Left = 2
            Top = 5
            Width = 93
            Height = 26
            Hint = '|Add files to archive'
            Caption = '&Add'
            Default = True
            TabOrder = 7
            OnClick = AddBtnClick
          end
          object SpanDisks: TCheckBox
            Left = 103
            Top = 59
            Width = 120
            Height = 21
            Hint = '|Span disks'
            Caption = 'Span &Disks'
            Enabled = False
            TabOrder = 3
          end
          object MoveFiles: TCheckBox
            Left = 5
            Top = 34
            Width = 80
            Height = 21
            Hint = '|Move files (delete after compress)'
            Caption = 'Move'
            TabOrder = 6
            OnClick = MoveFilesClick
          end
          object GroupBox6: TGroupBox
            Left = 276
            Top = 0
            Width = 104
            Height = 80
            Caption = 'Action'
            TabOrder = 4
            object Add1: TRadioButton
              Left = 15
              Top = 15
              Width = 65
              Height = 21
              Hint = '|Add files'
              Caption = 'Add'
              TabOrder = 0
            end
            object Update1: TRadioButton
              Left = 15
              Top = 34
              Width = 80
              Height = 21
              Hint = '|Update files (Update changed files and add new files)'
              Caption = 'Update'
              Checked = True
              TabOrder = 1
              TabStop = True
            end
            object Freshen1: TRadioButton
              Left = 15
              Top = 54
              Width = 85
              Height = 21
              Hint = '|Freshen files (Only update changed files)'
              Caption = 'Freshen'
              TabOrder = 2
            end
          end
        end
      end
      object TabSheet5: TTabSheet
        Caption = 'Add with list'
        object Panel14: TPanel
          Left = 0
          Top = 233
          Width = 464
          Height = 139
          Align = alClient
          BevelOuter = bvNone
          TabOrder = 0
          object AddListBox1: TListBox
            Left = 0
            Top = 0
            Width = 464
            Height = 105
            Hint = '|List of search items'
            Align = alClient
            ItemHeight = 13
            TabOrder = 0
          end
          object Panel19: TPanel
            Left = 0
            Top = 105
            Width = 464
            Height = 34
            Align = alBottom
            TabOrder = 1
            OnResize = Panel19Resize
            object PasswordEdit2: TEdit
              Left = 5
              Top = 5
              Width = 149
              Height = 21
              Hint = 'Password|Password used to encrypt archives'
              TabOrder = 0
            end
          end
        end
        object Panel15: TPanel
          Left = 0
          Top = 0
          Width = 0
          Height = 233
          Align = alTop
          BevelOuter = bvNone
          TabOrder = 1
          object Panel16: TPanel
            Left = 134
            Top = 0
            Width = 330
            Height = 233
            Align = alClient
            BevelOuter = bvNone
            TabOrder = 0
            object Panel8: TPanel
              Left = 0
              Top = 172
              Width = 330
              Height = 61
              Align = alBottom
              BevelOuter = bvNone
              TabOrder = 1
              object AddListBtn: TButton
                Left = 5
                Top = 30
                Width = 75
                Height = 25
                Hint = '|Add search item'
                Caption = '&Include'
                TabOrder = 2
                OnClick = AddListBtnClick
              end
              object RemoveListBtn: TButton
                Left = 158
                Top = 30
                Width = 86
                Height = 25
                Hint = '|Remove search item'
                Caption = '&Remove'
                TabOrder = 3
                OnClick = RemoveListBtnClick
              end
              object SaveListBtn: TButton
                Left = 158
                Top = 5
                Width = 86
                Height = 26
                Hint = '|Save list to file'
                Caption = 'Sa&ve list'
                TabOrder = 1
                OnClick = SaveListBtnClick
              end
              object LoadListBtn: TButton
                Left = 64
                Top = 5
                Width = 86
                Height = 23
                Hint = '|Load list from file'
                Caption = '&Load list'
                TabOrder = 0
                OnClick = LoadListBtnClick
              end
              object ExcludeBtn: TButton
                Left = 81
                Top = 30
                Width = 68
                Height = 25
                Hint = '|Add search item'
                Caption = 'E&xclude'
                TabOrder = 4
                OnClick = ExcludeBtnClick
              end
            end
            object DirTree3: TDirTree
              Left = 0
              Top = 0
              Width = 330
              Height = 172
              Hint = '|Available drives and directories'
              ReadOnly = True
              HideSelection = False
              Indent = 19
              Align = alClient
              ParentColor = False
              TabOrder = 0
              PopupMenu = DirTree3.
              Images = DirTree3.
            end
          end
          object Panel17: TPanel
            Left = 0
            Top = 0
            Width = 134
            Height = 233
            Align = alLeft
            BevelOuter = bvNone
            TabOrder = 1
            object Label7: TLabel
              Left = 5
              Top = 0
              Width = 105
              Height = 20
              Caption = 'Search mask :'
            end
            object AddListToZipBtn: TButton
              Left = 0
              Top = 204
              Width = 92
              Height = 26
              Hint = '|Add files to archive'
              Caption = '<< A&dd to zip'
              Default = True
              Enabled = False
              TabOrder = 5
              OnClick = AddListToZipBtnClick
            end
            object SearchMaskEdit: TEdit
              Left = 6
              Top = 17
              Width = 104
              Height = 21
              Hint = '|Mask used for searching filenames (ex: *.exe;*.txt;*.lst)'
              TabOrder = 0
              Text = '*.*'
            end
            object RecurseDirs2: TCheckBox
              Left = 5
              Top = 162
              Width = 105
              Height = 21
              Hint = '|Recurse sub directories'
              Caption = 'R&ecurse dirs'
              TabOrder = 3
              OnClick = RecurseDirs2Click
            end
            object GroupBox5: TGroupBox
              Left = 5
              Top = 44
              Width = 105
              Height = 95
              Caption = 'Action'
              TabOrder = 1
              object Add2: TRadioButton
                Left = 10
                Top = 20
                Width = 65
                Height = 21
                Hint = '|Add files'
                Caption = '&Add'
                TabOrder = 0
              end
              object Update2: TRadioButton
                Left = 10
                Top = 44
                Width = 80
                Height = 21
                Hint = '|Update files (Update changed files and add new files)'
                Caption = '&Update'
                Checked = True
                TabOrder = 1
                TabStop = True
              end
              object Freshen2: TRadioButton
                Left = 10
                Top = 69
                Width = 85
                Height = 21
                Hint = '|Freshen files (Only update changed files)'
                Caption = '&Freshen'
                TabOrder = 2
              end
            end
            object SpanDisks2: TCheckBox
              Left = 5
              Top = 182
              Width = 100
              Height = 21
              Caption = 'S&pan disks'
              TabOrder = 4
            end
            object StorePath2: TCheckBox
              Left = 5
              Top = 143
              Width = 114
              Height = 21
              Hint = '|Store full Path with filenames'
              Caption = '&Store Full Path'
              TabOrder = 2
              OnClick = StorePath2Click
            end
          end
        end
      end
      object TabSheet6: TTabSheet
        Caption = 'Configuration'
        object Panel9: TPanel
          Left = 0
          Top = 0
          Width = 464
          Height = 438
          Align = alClient
          BevelOuter = bvNone
          TabOrder = 0
          OnResize = Panel9Resize
          object ConfigPanel: TPanel
            Left = 4
            Top = 2
            Width = 434
            Height = 432
            BevelOuter = bvNone
            TabOrder = 0
            object Label10: TLabel
              Left = 12
              Top = 57
              Width = 210
              Height = 19
              Caption = 'Extraction Overwrite options :'
            end
            object Label9: TLabel
              Left = 12
              Top = 7
              Width = 234
              Height = 20
              Caption = 'Test archive after compression :'
            end
            object GroupBox8: TGroupBox
              Left = 7
              Top = 239
              Width = 400
              Height = 183
              Caption = 'Directories'
              TabOrder = 8
              object Label17: TLabel
                Left = 10
                Top = 42
                Width = 148
                Height = 18
                AutoSize = False
                Caption = 'Default Open directory :'
              end
              object Label15: TLabel
                Left = 10
                Top = 87
                Width = 148
                Height = 19
                AutoSize = False
                Caption = 'Default Add directory :'
              end
              object Label16: TLabel
                Left = 10
                Top = 132
                Width = 148
                Height = 18
                AutoSize = False
                Caption = 'Default Extract directory :'
              end
              object DefopenDir: TEdit
                Left = 10
                Top = 60
                Width = 341
                Height = 21
                Hint = '|Default path when opening zip files'
                TabOrder = 2
              end
              object DefAddDir: TEdit
                Left = 10
                Top = 106
                Width = 341
                Height = 21
                Hint = '|Default path for adding files'
                TabOrder = 4
              end
              object DefExDir: TEdit
                Left = 10
                Top = 150
                Width = 341
                Height = 21
                Hint = '|Default path for extracting files'
                TabOrder = 6
              end
              object Button3: TButton
                Left = 354
                Top = 60
                Width = 31
                Height = 24
                Caption = '...'
                TabOrder = 3
                OnClick = Button3Click
              end
              object Button1: TButton
                Left = 354
                Top = 106
                Width = 31
                Height = 23
                Caption = '...'
                TabOrder = 5
                OnClick = Button1Click
              end
              object Button2: TButton
                Left = 354
                Top = 150
                Width = 31
                Height = 24
                Caption = '...'
                TabOrder = 7
                OnClick = Button2Click
              end
              object UseDefDirs: TRadioButton
                Left = 10
                Top = 20
                Width = 164
                Height = 21
                Caption = 'Use default directories'
                TabOrder = 0
                OnClick = UseDefDirsClick
              end
              object UseLastDirs: TRadioButton
                Left = 182
                Top = 20
                Width = 203
                Height = 21
                Caption = 'Use last accessed directories'
                Checked = True
                TabOrder = 1
                TabStop = True
                OnClick = UseLastDirsClick
              end
            end
            object SortArchive: TCheckBox
              Left = 12
              Top = 194
              Width = 400
              Height = 21
              Caption = 'Sort archive display (with big archives, loading will be slower)'
              TabOrder = 7
              OnClick = SortArchiveClick
            end
            object OnlyText: TCheckBox
              Left = 244
              Top = 175
              Width = 158
              Height = 21
              Caption = 'Only text files edit '
              TabOrder = 6
              OnClick = OnlyTextClick
            end
            object configrecurse: TCheckBox
              Left = 244
              Top = 150
              Width = 178
              Height = 21
              Hint = '|Recurse sub directories while searching for files'
              Caption = 'Recurse sub directories'
              TabOrder = 5
              OnClick = configrecurseClick
            end
            object configstorepath: TCheckBox
              Left = 244
              Top = 126
              Width = 163
              Height = 20
              Hint = '|Store full pathname of comrpessed files'
              Caption = 'Store full path Name'
              TabOrder = 4
              OnClick = configstorepathClick
            end
            object GroupBox7: TGroupBox
              Left = 12
              Top = 108
              Width = 218
              Height = 83
              Caption = 'Compression level'
              TabOrder = 2
              object Label19: TLabel
                Left = 170
                Top = 15
                Width = 31
                Height = 19
                Alignment = taRightJustify
                Caption = 'max'
              end
              object Label18: TLabel
                Left = 20
                Top = 15
                Width = 26
                Height = 19
                Caption = 'min'
              end
              object ComprLevel: TTrackBar
                Left = 5
                Top = 30
                Width = 208
                Height = 45
                Hint = '|Compression level (Minimum=Fastest to Maximum=Slowest)'
                Ctl3D = True
                Max = 3
                Orientation = trHorizontal
                ParentCtl3D = False
                PageSize = 1
                Frequency = 1
                Position = 0
                SelEnd = 0
                SelStart = 0
                TabOrder = 0
                TabStop = False
                TickMarks = tmTopLeft
                TickStyle = tsAuto
              end
            end
            object GroupBox2: TGroupBox
              Left = 244
              Top = 7
              Width = 134
              Height = 115
              Caption = 'Default Action'
              TabOrder = 3
              object ActionAdd: TRadioButton
                Left = 20
                Top = 25
                Width = 65
                Height = 21
                Hint = '|Add files'
                Caption = 'Add'
                TabOrder = 0
                OnClick = Add1Click
              end
              object ActionUpdate: TRadioButton
                Left = 20
                Top = 54
                Width = 80
                Height = 21
                Hint = '|Update files (Update changed files and add new files)'
                Caption = 'Update'
                Checked = True
                TabOrder = 1
                TabStop = True
                OnClick = ActionUpdateClick
              end
              object ActionFreshen: TRadioButton
                Left = 20
                Top = 84
                Width = 94
                Height = 21
                Hint = '|Freshen files (Only update changed files)'
                Caption = 'Freshen'
                TabOrder = 2
                OnClick = ActionFreshenClick
              end
            end
            object Overwrite: TComboBox
              Left = 12
              Top = 76
              Width = 184
              Height = 24
              Hint = '|Options for overwrite for extracting'
              Style = csDropDownList
              ItemHeight = 16
              Items.Strings = (
                'Always'
                'If newer'
                'Prompt')
              TabOrder = 1
              OnClick = OverwriteClick
            end
            object TestAfter: TComboBox
              Left = 12
              Top = 27
              Width = 184
              Height = 24
              Hint = '|Test after compression flag'
              Style = csDropDownList
              ItemHeight = 16
              Items.Strings = (
                'Never'
                'Prompt'
                'Always')
              TabOrder = 0
              OnClick = TestAfterClick
            end
            object AssociateFile: TCheckBox
              Left = 12
              Top = 214
              Width = 400
              Height = 21
              Hint = '|This enables Szipw to register zip files with itself'
              Caption = 'Enable ZIP file association and  Zip template with Szipw '
              TabOrder = 9
              OnClick = AssociateFileClick
            end
          end
        end
      end
    end
    object Panel10: TPanel
      Left = 0
      Top = 37
      Width = 316
      Height = 317
      Align = alLeft
      BevelOuter = bvNone
      TabOrder = 1
      object Splitter: TPanel
        Left = 310
        Top = 0
        Width = 6
        Height = 317
        Cursor = crHSplit
        Hint = '|Drag this to resize panels'
        Align = alRight
        TabOrder = 0
        OnMouseDown = SplitterMouseDown
      end
      object Panel12: TPanel
        Left = 0
        Top = 0
        Width = 310
        Height = 317
        Align = alClient
        BevelOuter = bvNone
        TabOrder = 1
        object Panel20: TPanel
          Left = 0
          Top = 288
          Width = 310
          Height = 29
          Align = alBottom
          BevelOuter = bvNone
          TabOrder = 0
          OnResize = Panel20Resize
          object SpeedSearch: TEdit
            Left = 0
            Top = 1
            Width = 149
            Height = 24
            Hint = 'Speed Search|Speed search names in zipfile'
            TabOrder = 0
            OnKeyUp = SpeedSearchKeyUp
          end
        end
        object zipViewer1: TzipViewer
          Left = 0
          Top = 0
          Width = 310
          Height = 288
          ReadOnly = True
          DragMode = dmAutomatic
          HideSelection = False
          Indent = 19
          Align = alClient
          ParentColor = False
          TabOrder = 1
          OnClick = zipViewer1Click
          OnDragDrop = zipViewer1DragDrop
          OnDragOver = zipViewer1DragOver
          OnDblClick = zipViewer1DblClick
          OnKeyUp = zipViewer1KeyUp
          OnProgress = zipViewer1Progress
          OnOverAllProgress = zipViewer1OverAllProgress
          OnStatusMessage = zipViewer1StatusMessage
        end
      end
    end
    object SpeedPanel: TPanel
      Left = 0
      Top = 0
      Width = 642
      Height = 37
      Align = alTop
      ParentShowHint = False
      ShowHint = True
      TabOrder = 2
      object OpenBtn: TSpeedButton
        Left = 81
        Top = 2
        Width = 31
        Height = 31
        Hint = 'Open zip|Open zip file'
        Glyph.Data = {
          06020000424D0602000000000000760000002800000028000000140000000100
          0400000000009001000000000000000000001000000000000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          3333333333333333333333333333333333333333333333333333333333333333
          3333333333333333333333333333333333333333333333333333333333333333
          333FFFFFFFFFFFFFF3333380000000000000333333888888888888883F333300
          7B7B7B7B7B7B033333883F33333333338F33330F07B7B7B7B7B70333338F8F33
          3333333383F3330B0B7B7B7B7B7B7033338F83F33333333338F3330FB0B7B7B7
          B7B7B033338F38F333333333383F330BF07B7B7B7B7B7B03338F383FFFFF3333
          338F330FBF000007B7B7B703338F33888883FFFFFF83330BFBFBFBF000000033
          338F3333333888888833330FBFBFBFBFBFB03333338F333333333338F333330B
          FBFBFBFBFBF03333338F33333FFFFFF83333330FBFBF0000000333333387FFFF
          8888888333333330000033333333333333388888333333333333333333333333
          3333333333333333333333333333333333333333333333333333333333333333
          3333333333333333333333333333333333333333333333333333333333333333
          33333333333333333333}
        NumGlyphs = 2
        OnClick = Open1Click
      end
      object SaveBtn: TSpeedButton
        Left = 116
        Top = 2
        Width = 30
        Height = 31
        Hint = 'Save changes|Writes all changes to the zip central directory'
        Glyph.Data = {
          06020000424D0602000000000000760000002800000028000000140000000100
          0400000000009001000000000000000000001000000000000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          3333333333333333333333333333333333333333333333333333333333333333
          3333333333333333333333333333FFFFFFFFFFFFFF3333380000000000008333
          333888F8FF888F888F333330CC08CCF770CC0333333888F8FF888F888F333330
          CC08CCF770CC0333333888F888888F888F333330CC07887770CC03333338888F
          FFFFF8888F333330CC60000006CC033333388888888888888F333330CCCCCCCC
          CCCC033333388888888888888F333330C6000000006C03333338888888888888
          8F333330C0FFFFFFFF0C0333333888FFFFFFFF888F333330C0FFFFFFFF0C0333
          333888FFFFFFFF888F333330C0FFFFFFFF0C0333333888FFFFFFFF888F333330
          C0FFFFFFFF0C0333333888FFFFFFFF888F33333000FFFFFFFF000333333888FF
          FFFFFF888F333330C0FFFFFFFF0C0333333888FFFFFFFF888F33333800000000
          0000833333388888888888888333333333333333333333333333333333333333
          3333333333333333333333333333333333333333333333333333333333333333
          33333333333333333333}
        NumGlyphs = 2
        OnClick = SaveItemClick
      end
      object ExitBtn: TSpeedButton
        Left = 151
        Top = 2
        Width = 31
        Height = 31
        Hint = 'Exit|Quit szipw'
        Glyph.Data = {
          06020000424D0602000000000000760000002800000028000000140000000100
          0400000000009001000000000000000000001000000000000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00377777777777
          777777773FFFFFFFFFFFF333333F888888888888F7F7F7888888888888883333
          33888888888888877F7F788888888888888F333FF88844444400888FFF444444
          88888888888333888883333334D5007FFF433333333338F888F3338F33333333
          345D50FFFF4333333333388788F3338F3333333334D5D0FFFF433333333338F8
          78F3338F33333333345D50FEFE4333333333388788F3338F3333333334D5D0FF
          FF433333333338F878F3338F33333333345D50FEFE4333333333388788F3338F
          3333333334D5D0FFFF433333333338F878F3338F33333333345D50FEFE433333
          3333388788F3338F3333333334D5D0EFEF433333333338F878F3338F33333333
          345D50FEFE4333333333388788F3338F3333333334D5D0EFEF433333333338F8
          F8FFFF8F33333333344444444443333333333888888888833333333333333333
          3333333333333333FFFFFF333333333333300000033333333333333888888F33
          333333333330AAAA0333333333333338FFFF8F33333333333330000003333333
          33333338888883333333}
        NumGlyphs = 2
        OnClick = Quit1Click
      end
      object NewBtn: TSpeedButton
        Left = 47
        Top = 2
        Width = 31
        Height = 31
        Hint = 'New zip|Create a new zip file'
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000130B0000130B00000000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033333333B333
          333B33FF33337F3333F73BB3777BB7777BB3377FFFF77FFFF77333B000000000
          0B3333777777777777333330FFFFFFFF07333337F33333337F333330FFFFFFFF
          07333337F33333337F333330FFFFFFFF07333337F33333337F333330FFFFFFFF
          07333FF7F33333337FFFBBB0FFFFFFFF0BB37777F3333333777F3BB0FFFFFFFF
          0BBB3777F3333FFF77773330FFFF000003333337F333777773333330FFFF0FF0
          33333337F3337F37F3333330FFFF0F0B33333337F3337F77FF333330FFFF003B
          B3333337FFFF77377FF333B000000333BB33337777777F3377FF3BB3333BB333
          3BB33773333773333773B333333B3333333B7333333733333337}
        NumGlyphs = 2
        OnClick = New1Click
      end
      object SpeedButton1: TSpeedButton
        Left = 12
        Top = 2
        Width = 31
        Height = 31
        Hint = 'Backup link wizard|Create a backup link'
        Glyph.Data = {
          78010000424D7801000000000000760000002800000020000000100000000100
          04000000000000000000120B0000120B00000000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00370777033333
          3330337F3F7F33333F3787070003333707303F737773333373F7007703333330
          700077337F3333373777887007333337007733F773F333337733700070333333
          077037773733333F7F37703707333300080737F373333377737F003333333307
          78087733FFF3337FFF7F33300033330008073F3777F33F777F73073070370733
          078073F7F7FF73F37FF7700070007037007837773777F73377FF007777700730
          70007733FFF77F37377707700077033707307F37773F7FFF7337080777070003
          3330737F3F7F777F333778080707770333333F7F737F3F7F3333080787070003
          33337F73FF7377733333078000770333333373377733733333330000}
        NumGlyphs = 2
        OnClick = Createbackuplink1Click
      end
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 354
    Width = 642
    Height = 31
    Align = alBottom
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 1
    object PanelMsg: TPanel
      Left = 2
      Top = 2
      Width = 427
      Height = 27
      Align = alClient
      Alignment = taLeftJustify
      BevelOuter = bvNone
      TabOrder = 0
      object MsgPanel: TPanel
        Left = 0
        Top = 0
        Width = 347
        Height = 27
        Align = alClient
        Alignment = taLeftJustify
        BevelOuter = bvLowered
        TabOrder = 0
      end
      object PanelCancel: TPanel
        Left = 347
        Top = 0
        Width = 80
        Height = 27
        Align = alRight
        BevelOuter = bvLowered
        TabOrder = 1
        Visible = False
        OnResize = PanelCancelResize
        object CancelButton: TButton
          Left = 1
          Top = 1
          Width = 78
          Height = 24
          Cancel = True
          Caption = 'Cancel'
          TabOrder = 0
          OnClick = CancelButtonClick
        end
      end
    end
    object Panel4: TPanel
      Left = 429
      Top = 2
      Width = 211
      Height = 27
      Align = alRight
      BevelOuter = bvLowered
      TabOrder = 1
      object Meter: TProgressBar
        Left = 109
        Top = 1
        Width = 101
        Height = 25
        Hint = 'Current file progress'
        Align = alRight
        Min = 0
        Max = 100
        TabOrder = 0
      end
      object OverAllMeter: TProgressBar
        Left = 1
        Top = 1
        Width = 108
        Height = 25
        Hint = 'Overall Progress'
        Align = alClient
        Min = 0
        Max = 100
        TabOrder = 1
      end
    end
  end
  object MainMenu1: TMainMenu
    Left = 20
    Top = 40
    object File1: TMenuItem
      Caption = '&File'
      ShortCut = 0
      object Open1: TMenuItem
        Caption = '&Open'
        Hint = '|Open zip file'
        ShortCut = 113
        OnClick = Open1Click
      end
      object New1: TMenuItem
        Caption = '&New'
        Hint = '|Create and open a new zip file'
        ShortCut = 114
        OnClick = New1Click
      end
      object SaveItem: TMenuItem
        Caption = '&Save changes'
        Enabled = False
        Hint = '|Update changes  in zip file'
        ShortCut = 0
        OnClick = SaveItemClick
      end
      object N9: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object Createbackuplink1: TMenuItem
        Caption = '&Create backup link'
        ShortCut = 0
        OnClick = Createbackuplink1Click
      end
      object RebuildFile: TMenuItem
        Caption = '&Rebuild using local info'
        Hint = '|Rebuild using local header information'
        ShortCut = 0
        OnClick = RebuildFileClick
      end
      object N6: TMenuItem
        Tag = 7
        Caption = '-'
        ShortCut = 0
      end
      object Newwindow1: TMenuItem
        Caption = '&New window'
        Hint = '|Launch new Zipw'
        ShortCut = 0
        OnClick = Newwindow1Click
      end
      object N1: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object Quit1: TMenuItem
        Caption = '&Exit'
        Hint = '|Exit szipw 32'
        ShortCut = 16472
        OnClick = Quit1Click
      end
    end
    object Archive1: TMenuItem
      Caption = '&Archive'
      ShortCut = 0
      object Test1: TMenuItem
        Caption = '&Test'
        Hint = '|Test zip file'
        ShortCut = 115
        OnClick = Test1Click
      end
      object Sort1: TMenuItem
        Caption = '&Sort'
        Hint = '|Sort filenames in zip file'
        ShortCut = 116
        OnClick = Sort1Click
      end
      object Recompress1: TMenuItem
        Caption = '&Recompress'
        Hint = '|Recompress file using different compression method'
        ShortCut = 0
        OnClick = Recompress1Click
      end
      object N8: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object RemovefilesthatfailCRCcheck1: TMenuItem
        Caption = 'Re&move files that fail CRC check'
        ShortCut = 0
        OnClick = RemovefilesthatfailCRCcheck1Click
      end
      object N7: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object MakeEXEfile1: TMenuItem
        Caption = '&Zip to EXE'
        ShortCut = 0
        OnClick = MakeEXEfile1Click
      end
      object MakeZipfile1: TMenuItem
        Caption = '&EXE to Zip'
        ShortCut = 0
        OnClick = MakeZipfile1Click
      end
    end
    object File2: TMenuItem
      Caption = 'Files in &Zip'
      ShortCut = 0
      object Extract1: TMenuItem
        Caption = '&Extract'
        ShortCut = 0
        object FileDir3: TMenuItem
          Caption = '&File/Dir'
          Hint = '|Extract selected file'
          ShortCut = 117
          OnClick = ExtractBtnClick
        end
        object All3: TMenuItem
          Caption = '&All'
          Hint = '|Extract all files'
          ShortCut = 0
          OnClick = All3Click
        end
      end
      object Remove1: TMenuItem
        Caption = '&Remove'
        ShortCut = 0
        object FileDir4: TMenuItem
          Caption = '&File/Dir'
          Hint = '|Remove selected file'
          ShortCut = 16430
          OnClick = FileDir4Click
        end
        object All4: TMenuItem
          Caption = '&All'
          Hint = '|Remove all files'
          ShortCut = 0
          OnClick = All4Click
        end
        object Bywildcard1: TMenuItem
          Caption = '&By wildcard'
          ShortCut = 0
          OnClick = Bywildcard1Click
        end
      end
    end
    object Help1: TMenuItem
      Caption = '&Help'
      ShortCut = 0
      object Help2: TMenuItem
        Caption = '&Help'
        ShortCut = 112
        OnClick = Help2Click
      end
      object N2: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object Commandlineoptions1: TMenuItem
        Caption = '&Command line options'
        ShortCut = 0
        OnClick = Commandlineoptions1Click
      end
      object Shareware1: TMenuItem
        Caption = '&Shareware'
        ShortCut = 0
        OnClick = Shareware1Click
      end
      object Registering1: TMenuItem
        Caption = '&Register'
        ShortCut = 0
        OnClick = Registering1Click
      end
      object N3: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object About1: TMenuItem
        Caption = '&About'
        ShortCut = 0
        OnClick = About1Click
      end
    end
  end
  object OpenDialog1: TOpenDialog
    FileEditStyle = fsEdit
    Filter = 'Zip files (*.zip;*.exe)|*.zip;*.exe'
    Options = [ofHideReadOnly, ofPathMustExist, ofFileMustExist, ofShareAware]
    Title = 'Open zip file'
    Left = 52
    Top = 40
  end
  object SaveDialog1: TSaveDialog
    DefaultExt = 'zip'
    FileEditStyle = fsEdit
    Filter = 'Zip files (*.zip;*.exe)|*.zip;*.exe'
    Options = [ofOverwritePrompt, ofHideReadOnly, ofPathMustExist, ofShareAware, ofNoReadOnlyReturn]
    Title = 'New zip file'
    Left = 80
    Top = 40
  end
  object popupmenu1: TPopupMenu
    Left = 108
    Top = 40
    object Extract3: TMenuItem
      Caption = 'Extract'
      ShortCut = 0
      object FileDir2: TMenuItem
        Caption = 'File/Dir'
        Hint = '|Extract selected file'
        ShortCut = 0
        OnClick = ExtractBtnClick
      end
      object All2: TMenuItem
        Caption = 'All'
        Hint = '|Extract all files'
        ShortCut = 0
        OnClick = All3Click
      end
    end
    object Extract2: TMenuItem
      Caption = 'Remove'
      ShortCut = 0
      object FileDir1: TMenuItem
        Caption = 'File/Dir'
        ShortCut = 0
        OnClick = FileDir4Click
      end
      object All1: TMenuItem
        Caption = 'All'
        ShortCut = 0
        OnClick = All4Click
      end
      object Bywildcard2: TMenuItem
        Caption = '&By wildcard'
        ShortCut = 0
        OnClick = Bywildcard1Click
      end
    end
    object Movetotop1: TMenuItem
      Caption = '&Move to top'
      Hint = '|Move direcory or file to the top of the tree'
      ShortCut = 0
      OnClick = Movetotop1Click
    end
    object N4: TMenuItem
      Caption = '-'
      ShortCut = 0
    end
    object Test2: TMenuItem
      Caption = 'Test'
      ShortCut = 0
      OnClick = Test1Click
    end
    object Sort2: TMenuItem
      Caption = 'Sort'
      Hint = '|Sort filenames in zip file'
      ShortCut = 0
      OnClick = Sort1Click
    end
    object Recompress2: TMenuItem
      Caption = 'Recompress'
      Hint = '|Recompress using different compression method'
      ShortCut = 0
      OnClick = Recompress1Click
    end
    object N5: TMenuItem
      Caption = '-'
      ShortCut = 0
    end
    object Exit1: TMenuItem
      Caption = 'Exit'
      Hint = '|Exit Szipw 32'
      ShortCut = 0
      OnClick = Quit1Click
    end
  end
  object PrintDialog1: TPrintDialog
    Left = 136
    Top = 40
  end
  object OpenDialog2: TOpenDialog
    DefaultExt = 'lst'
    FileEditStyle = fsEdit
    Filter = 'List files (*.lst)|*.lst'
    Options = [ofHideReadOnly, ofPathMustExist, ofFileMustExist]
    Title = 'Open path list'
    Left = 497
    Top = 320
  end
  object SaveDialog2: TSaveDialog
    DefaultExt = 'lst'
    FileEditStyle = fsEdit
    Filter = 'List files (*.lst)|*.lst'
    Options = [ofOverwritePrompt, ofHideReadOnly, ofPathMustExist]
    Title = 'Save path list'
    Left = 581
    Top = 304
  end
  object PopupMenu2: TPopupMenu
    OnPopup = PopupMenu2Popup
    Left = 521
    Top = 280
    object Copy1: TMenuItem
      Caption = 'Copy'
      ShortCut = 0
      OnClick = Copy1Click
    end
    object Print1: TMenuItem
      Caption = 'Print'
      ShortCut = 0
      OnClick = Print1Click
    end
    object N10: TMenuItem
      Caption = '-'
      ShortCut = 0
    end
    object Wordwrap1: TMenuItem
      Caption = 'Wordwrap'
      ShortCut = 0
      OnClick = Wordwrap1Click
    end
  end
end