PC-Online 1998 February/PCOnline_02_1998.iso/filesbbs/win3x/second.exe/SC97.EXE/0/RCDATA/TFRMZVIEWER/TFRMZVIEWER.txt

Text File | 1997-10-26 | 26.5 KB | 749 lines

object frmZViewer: TfrmZViewer
  Left = 255
  Top = 155
  Width = 502
  Height = 300
  Caption = 'SC97 Zip File Viewer'
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = mnuMain
  Position = poDefaultPosOnly
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnHide = FormHide
  OnKeyDown = FormKeyDown
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object sbtnSelectAll: TSpeedButton
    Left = 48
    Top = 4
    Width = 25
    Height = 25
    Hint = 'Select All|'
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      0400000000000001000000000000000000001000000010000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
      5555555555555555555555555590555555555555557F55555555555559990555
      555555555777F55555555555999990555555555577777F555555555899059905
      5555555777F577F5555555890555599055555577F555577F5555555555555899
      0555555555555777F55555555555558999555555555555777755555555555555
      5555555555555555555555555590555555555555557F55555555555559990555
      555555555777F55555555555999990555555555577777F555555555899059905
      5555555777F577F5555555890555599055555577F555577F5555555555555899
      0555555555555777F55555555555558999555555555555777755}
    NumGlyphs = 2
    ParentShowHint = False
    ShowHint = True
  end
  object ToolBar: TPanel
    Left = 0
    Top = 0
    Width = 494
    Height = 30
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 0
    object sbtnLarge: TSpeedButton
      Left = 72
      Top = 4
      Width = 25
      Height = 25
      Hint = 'Large Icons|'
      GroupIndex = 1
      Glyph.Data = {
        76020000424D7602000000000000760000002800000040000000100000000100
        0400000000000002000000000000000000001000000010000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        333333333333333333333333333333444443FFFFFFFFFF44444F333333333444
        4433333333333FFFFF333333333333333333FFFFFFFFFFFFFFFF333333333333
        333333333333333333333333333333444443FFFFFFFFFF44444F333333333444
        4433333333333FFFFF3333333333334FFF43FFFFFFFFFF4FFF4F3333333334FF
        F433333333333FFFFF3333333333334FFF43FFFFFFFFFF4FFF4F3333333334FF
        F433333333333FFFFF3333333333334FF443FFFFFFFFFF4FF44F3333333334FF
        4433333333333FFFFF333334444433444433FFF44444FF4444FF334444433444
        433333FFFFF33FFFF3333333333333333333FFFFFFFFFFFFFFFF333333333333
        333333333333333333333334444433333333FFF44444FFFFFFFF334444433333
        333333FFFFF3333333333334FFF433333333FFF4FFF4FFFFFFFF334FFF433333
        333333FFFFF3333333333334FFF433333333FFF4FFF4FFFFFFFF334FFF433333
        333333FFFFF3333333333334FF4433333333FFF4FF44FFFFFFFF334FF4433333
        333333FFFFF3333333333334444333333333FFF4444FFFFFFFFF334444333333
        333333FFFF33333333333333333333333333FFFFFFFFFFFFFFFF333333333333
        333333333333333333333333333333333333FFFFFFFFFFFFFFFF333333333333
        333333333333333333333333333333333333FFFFFFFFFFFFFFFF}
      NumGlyphs = 4
      ParentShowHint = False
      ShowHint = True
      OnClick = ChangeListViewStyle
    end
    object sbtnSmall: TSpeedButton
      Tag = 1
      Left = 97
      Top = 4
      Width = 25
      Height = 25
      Hint = 'Small Icons|'
      GroupIndex = 1
      Glyph.Data = {
        76020000424D7602000000000000760000002800000040000000100000000100
        0400000000000002000000000000000000001000000010000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        333333333333333333333333333333333333FFFFFFFFFFFFFFFF333333333333
        333333333333333333333333344433333333FFFFF444FFFFFFFF333344433333
        33333333FFF333333333333334F434433333FFFFF4F4F44FFFFF33334F434433
        33333333FFF3FF3333333333344333333333FFFFF44FFFFFFFFF333344333333
        33333333FF33333333333333333333333333FFFFFFFFFFFFFFFF333333333333
        333333333333333333333333333333333333FFFFFFFFFFFFFFFF333333333333
        333333333333333333333333333344433333FFFFFFFF444FFFFF333333344433
        33333333333FFF333333333333334F434433FFFFFFFF4F4F44FF33333334F434
        43333333333FFF3FF3333333333344333333FFFFFFFF44FFFFFF333333344333
        33333333333FF33333333333333333333333FFFFFFFFFFFFFFFF333333333333
        333333333333333333333334443333333333FFF444FFFFFFFFFF334443333333
        333333FFF333333333333334F43443333333FFF4F4F44FFFFFFF334F43443333
        333333FFF3FF333333333334433333333333FFF44FFFFFFFFFFF334433333333
        333333FF3333333333333333333333333333FFFFFFFFFFFFFFFF333333333333
        333333333333333333333333333333333333FFFFFFFFFFFFFFFF333333333333
        333333333333333333333333333333333333FFFFFFFFFFFFFFFF}
      NumGlyphs = 4
      ParentShowHint = False
      ShowHint = True
      OnClick = ChangeListViewStyle
    end
    object sbtnDetails: TSpeedButton
      Tag = 3
      Left = 147
      Top = 4
      Width = 25
      Height = 25
      Hint = 'Details|'
      GroupIndex = 1
      Down = True
      Glyph.Data = {
        76020000424D7602000000000000760000002800000040000000100000000100
        0400000000000002000000000000000000001000000010000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        333333333333333333333333333333333333FFFFFFFFFFFFFFFF333333333333
        333333333333333333333343000300030003FF4F000F000F000F343000300030
        00333F3FFF3FFF3FFF333333333333333333FFFFFFFFFFFFFFFF333333333333
        333333333333333333333343000300030003FF4F000F000F000F343000300030
        00333F3FFF3FFF3FFF333333333333333333FFFFFFFFFFFFFFFF333333333333
        333333333333333333333343000300030003FF4F000F000F000F343000300030
        00333F3FFF3FFF3FFF333333333333333333FFFFFFFFFFFFFFFF333333333333
        333333333333333333333343000300030003FF4F000F000F000F343000300030
        00333F3FFF3FFF3FFF333333333333333333FFFFFFFFFFFFFFFF333333333333
        333333333333333333333343000300030003FF4F000F000F000F343000300030
        00333F3FFF3FFF3FFF333333333333333333FFFFFFFFFFFFFFFF333333333333
        333333333333333333333344444444444444FF44444444444444344444444444
        44433FFFFFFFFFFFFFF33333333333333333FFFFFFFFFFFFFFFF333333333333
        333333333333333333333333000300030003FFFF000F000F000F333000300030
        0033333FFF3FFF3FFF333333333333333333FFFFFFFFFFFFFFFF333333333333
        333333333333333333333333333333333333FFFFFFFFFFFFFFFF}
      NumGlyphs = 4
      ParentShowHint = False
      ShowHint = True
      OnClick = ChangeListViewStyle
    end
    object sbtnList: TSpeedButton
      Tag = 2
      Left = 122
      Top = 4
      Width = 25
      Height = 25
      Hint = 'List|'
      GroupIndex = 1
      Glyph.Data = {
        76020000424D7602000000000000760000002800000040000000100000000100
        0400000000000002000000000000000000001000000010000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        333333333333333333333333333333333333FFFFFFFFFFFFFFFF333333333333
        333333333333333333333334443333444333FFF444FFFF444FFF334443333444
        333333FFF3333FFF33333334F434434F4344FFF4F4F44F4F4F44334F434434F4
        344333FFF3FF3FFF3FF33334433333443333FFF44FFFFF44FFFF334433333443
        333333FF33333FF333333333333333333333FFFFFFFFFFFFFFFF333333333333
        333333333333333333333333333333333333FFFFFFFFFFFFFFFF333333333333
        333333333333333333333334443333444333FFF444FFFF444FFF334443333444
        333333FFF3333FFF33333334F434434F4344FFF4F4F44F4F4F44334F434434F4
        344333FFF3FF3FFF3FF33334433333443333FFF44FFFFF44FFFF334433333443
        333333FF33333FF333333333333333333333FFFFFFFFFFFFFFFF333333333333
        333333333333333333333334443333444333FFF444FFFF444FFF334443333444
        333333FFF3333FFF33333334F434434F4344FFF4F4F44F4F4F44334F434434F4
        344333FFF3FF3FFF3FF33334433333443333FFF44FFFFF44FFFF334433333443
        333333FF33333FF333333333333333333333FFFFFFFFFFFFFFFF333333333333
        333333333333333333333333333333333333FFFFFFFFFFFFFFFF333333333333
        333333333333333333333333333333333333FFFFFFFFFFFFFFFF}
      NumGlyphs = 4
      ParentShowHint = False
      ShowHint = True
      OnClick = ChangeListViewStyle
    end
    object sbtnDelete: TSpeedButton
      Left = 8
      Top = 4
      Width = 25
      Height = 25
      Hint = 'Delete|'
      Glyph.Data = {
        F6010000424DF601000000000000760000002800000030000000100000000100
        0400000000008001000000000000000000001000000010000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333333333333333330333333333303330333333333303333F33333333
        33F33330003333333333330003333333333333FFF33333333333333000033333
        3303330000333333303333FFFF3333333F333333000333333033333000333333
        0333333FFF333333F333333330003333003333330003333003333333FFF3333F
        F3333333330003300333333330003300333333333FFF33FF3333333333300000
        33333333330000033333333333FFFFF333333333333300033333333333300033
        33333333333FFF33333333333330000033333333330000033333333333FFFFF3
        33333333330003300333333330003300333333333FFF33FF3333333300003333
        00333330000333300333333FFFF3333FF3333330000333333003330000333333
        003333FFFF333333FF333330003333333330330003333333330333FFF3333333
        33F3333333333333333333333333333333333333333333333333333333333333
        3333333333333333333333333333333333333333333333333333}
      NumGlyphs = 3
      ParentShowHint = False
      ShowHint = True
      OnClick = DeleteFiles
    end
    object sbtnStop: TSpeedButton
      Left = 377
      Top = 4
      Width = 25
      Height = 25
      Hint = 'Stop Copy|'
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        0400000000000001000000000000000000001000000010000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333111111333333333111111333333333319999991333333319999991
        3333333319999999913333319999999913333331999999999913331999999999
        9133331999F9999F999131999F9999F9991333199FFF99FFF9913199FFF99FFF
        9913331999FFFFFF999131999FFFFFF999133319999FFFF99991319999FFFF99
        9913331999FFFFFF999131999FFFFFF9991333199FFF99FFF9913199FFF99FFF
        9913333199F9999F991333199F9999F991333333199999999133333199999999
        1333333331999999133333331999999133333333331111113333333331111113
        3333333333333333333333333333333333333333333333333333}
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      Visible = False
      OnClick = StopIt
    end
    object Bevel1: TBevel
      Left = 0
      Top = 0
      Width = 494
      Height = 2
      Align = alTop
    end
    object SpeedButton1: TSpeedButton
      Left = 33
      Top = 4
      Width = 25
      Height = 25
      Hint = 'Select All|'
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        0400000000000001000000000000000000001000000010000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
        5555555555555555555555555520555555555555558F55555555555552220555
        555555555888F55555555555222220555555555588888F555555555722052205
        5555555888F588F5555555720555522055555588F555588F5555555555555722
        0555555555555888F55555555555557222555555555555888855555555555555
        5555555555555555555555555520555555555555558F55555555555552220555
        555555555888F55555555555222220555555555588888F555555555722052205
        5555555888F588F5555555720555522055555588F555588F5555555555555722
        0555555555555888F55555555555557222555555555555888855}
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      OnClick = SelectAllFiles
    end
    object sbtnExtract: TSpeedButton
      Left = 192
      Top = 4
      Width = 25
      Height = 25
      Hint = 'Extract|'
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        0400000000000001000000000000000000001000000010000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333330080
        8800333333338888888833333333007077003333333388F83388333333330077
        77003333333388FFFF8833333333000000003FFFFFFF88888888000000000000
        000088888888888888880FFFFFFF0FFFFFF08F3333338F3333380FFFFFFF0FFF
        FFF08F3FF3FF8FFFFFF80F00F0070CCC9CC08F883883888888880FFFFFFFF039
        99338F3FFFF3F8F888F30F0000F0F09999938F8888383888888F0FFFFFFFF999
        99998F3FF3FFF88888880F00F000003999338F883888883888F30FFFF0FF0339
        99338F3FF8F3833888F30F07F0F0338999338F8838F83F8888330FFFF0039999
        93338FFFF8838888833300000033333333338888883333333333}
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      OnClick = ExtractFiles
    end
    object pBar: TProgressBar
      Left = 240
      Top = 11
      Width = 132
      Height = 11
      Min = 0
      Max = 100
      TabOrder = 0
      Visible = False
    end
  end
  object lvZip: TListView
    Left = 0
    Top = 30
    Width = 494
    Height = 205
    Align = alClient
    Columns = <
      item
        Caption = 'File Name'
        Width = 150
      end
      item
        Alignment = taRightJustify
        Caption = 'Date'
        Width = 125
      end
      item
        Alignment = taRightJustify
        Caption = 'Size'
        Width = 65
      end
      item
        Alignment = taRightJustify
        Caption = 'Packed'
        Width = 65
      end
      item
        Alignment = taRightJustify
        Caption = 'Ratio'
      end
      item
        Caption = 'Path'
        Width = 12
        WidthType = (
          -1)
      end>
    IconOptions.AutoArrange = True
    MultiSelect = True
    OnColumnClick = lvZipColumnClick
    OnDeletion = lvZipDeletion
    OnEditing = lvZipEditing
    PopupMenu = mnuPopUp
    SortType = stText
    TabOrder = 1
    ViewStyle = vsReport
    OnKeyDown = lvZipKeyDown
    LargeImages = ilLarge
    SmallImages = ilSmall
    StateImages = ilState
  end
  object StatusBar: TStatusBar
    Left = 0
    Top = 235
    Width = 494
    Height = 19
    Panels = <
      item
        Width = 70
      end
      item
        Width = 120
      end>
    SimplePanel = False
  end
  object mnuMain: TMainMenu
    Left = 62
    Top = 72
    object miFile: TMenuItem
      Caption = '&File'
      Hint = 'Contains commands for working with Zip files.'
      object miNew: TMenuItem
        Caption = '&New Zip File...'
        Hint = 'Creates a new Zip file.'
        Visible = False
        OnClick = miNewClick
      end
      object miOpen: TMenuItem
        Caption = '&Open Zip File...'
        HelpContext = 100
        Hint = 'Opens a Zip file.'
        Visible = False
        OnClick = miOpenClick
      end
      object miClose: TMenuItem
        Caption = 'C&lose Zip File'
        Hint = 'Closes the open Zip file.'
        Visible = False
        OnClick = miCloseClick
      end
      object N4: TMenuItem
        Caption = '-'
        Visible = False
      end
      object miTest: TMenuItem
        Tag = 9
        Caption = '&Test Zip File...'
        GroupIndex = 3
        Hint = 'Tests a Zip file for corruption.'
        Visible = False
        OnClick = miTestClick
      end
      object miFix: TMenuItem
        Caption = '&Fix Zip File'
        GroupIndex = 3
        Hint = 'Fixes corrupted Zip file.'
        Visible = False
        object miFixNormal: TMenuItem
          Tag = 6
          Caption = '&Normal...'
          GroupIndex = 3
          Hint = 'Fixes corrupted Zip file, normally.'
          OnClick = miFixNormalClick
        end
        object miFixAgressive: TMenuItem
          Tag = 1
          Caption = '&Agressive...'
          GroupIndex = 3
          Hint = 'Fixes corrupted Zip file, agressively.'
          OnClick = miFixAgressiveClick
        end
      end
      object N5: TMenuItem
        Caption = '-'
        GroupIndex = 3
        Visible = False
      end
      object miProperties: TMenuItem
        Caption = 'P&roperties...'
        GroupIndex = 3
        Hint = 'Displays the properties of the selected item.'
        OnClick = ShowZipProperties
      end
      object N7: TMenuItem
        Caption = '-'
        GroupIndex = 3
      end
      object miExit: TMenuItem
        Caption = '&Close'
        GroupIndex = 3
        Hint = 'Closes this window.'
        OnClick = miExitClick
      end
    end
    object miEdit: TMenuItem
      Caption = '&Edit'
      Hint = 'Contains command for working with files inside a the Zip file.'
      OnClick = miEditClick
      object miAdd: TMenuItem
        Caption = '&Add...'
        GroupIndex = 1
        Hint = 'Adds files to the Zip.'
        Visible = False
        OnClick = miAddClick
      end
      object miDelete: TMenuItem
        Caption = '&Delete'
        GroupIndex = 1
        Hint = 'Deletes selected file(s) from the Zip.'
        OnClick = DeleteFiles
      end
      object miExtract: TMenuItem
        Caption = 'E&xtract...'
        GroupIndex = 1
        Hint = 'Exctracts selected file(s) to disk.'
        OnClick = ExtractFiles
      end
      object miUpdate: TMenuItem
        Caption = '&Update...'
        GroupIndex = 1
        Hint = 'Updates files in the Zip.'
        Visible = False
        OnClick = miUpdateClick
      end
      object N13: TMenuItem
        Caption = '-'
        GroupIndex = 1
      end
      object miSelectAll: TMenuItem
        Caption = 'Select &All'
        GroupIndex = 1
        Hint = 'Selects all files in the Zip.'
        ShortCut = 16449
        OnClick = SelectAllFiles
      end
    end
    object miView: TMenuItem
      Caption = '&View'
      Hint = 'Contains commands for customizing this window.'
      OnClick = miViewClick
      object miToolBar: TMenuItem
        Caption = '&Tool Bar'
        Hint = 'Shows or hides the tool bar.'
        OnClick = miToolBarClick
      end
      object miStatusBar: TMenuItem
        Caption = 'Status &Bar'
        Hint = 'Shows or hides the status bar.'
        OnClick = miStatusBarClick
      end
      object N6: TMenuItem
        Caption = '-'
      end
      object miLargeIcons: TMenuItem
        Caption = 'Lar&ge Icons'
        GroupIndex = 1
        Hint = 'Displays items by using large icons.'
        RadioItem = True
        OnClick = ChangeListViewStyle
      end
      object miSmallIcons: TMenuItem
        Tag = 1
        Caption = 'S&mall Icons'
        GroupIndex = 1
        Hint = 'Displays items by using small icons.'
        RadioItem = True
        OnClick = ChangeListViewStyle
      end
      object miList: TMenuItem
        Tag = 2
        Caption = '&List'
        GroupIndex = 1
        Hint = 'Displays items in a list.'
        OnClick = ChangeListViewStyle
      end
      object miDetails: TMenuItem
        Tag = 3
        Caption = '&Details'
        GroupIndex = 1
        Hint = 'Displays information about each item in window.'
        RadioItem = True
        OnClick = ChangeListViewStyle
      end
    end
    object miOptions: TMenuItem
      Caption = '&Options'
      GroupIndex = 2
      Hint = 'Contains options for customizing compression.'
      Visible = False
      OnClick = miOptionsClick
      object miBestCompression: TMenuItem
        Tag = 9
        Caption = 'Best Compression'
        GroupIndex = 3
        Hint = 'Adds files with best compression.'
        OnClick = SetCompression
      end
      object miNormalCompression: TMenuItem
        Tag = 6
        Caption = 'Normal Compression'
        GroupIndex = 3
        Hint = 'Adds files with normal compression.'
        OnClick = SetCompression
      end
      object miFastestCompression: TMenuItem
        Tag = 1
        Caption = 'Fastest Compression'
        GroupIndex = 3
        Hint = 'Adds files with fastest compression.'
        OnClick = SetCompression
      end
      object miStoreWithoutCompression: TMenuItem
        Caption = 'Store Without Compression'
        GroupIndex = 3
        Hint = 'Adds files without any compression.'
        OnClick = SetCompression
      end
      object N9: TMenuItem
        Caption = '-'
        GroupIndex = 4
      end
      object miMultidiskmode: TMenuItem
        Caption = '&Multi-disk mode'
        GroupIndex = 4
        Hint = 'Sets multi-disk mode for new Zip files.'
        OnClick = miMultiDiskModeClick
      end
      object miCleardisks: TMenuItem
        Caption = '&Clear disks'
        GroupIndex = 4
        Hint = 'Clears disks before copying to them.'
        OnClick = miClearDisksClick
      end
      object N8: TMenuItem
        Caption = '-'
        GroupIndex = 5
      end
      object miUseTempFile: TMenuItem
        Caption = 'Use Temp File'
        GroupIndex = 5
        Hint = 'Uses temporary file for compression.'
        OnClick = miUseTempFileClick
      end
    end
    object miHelp: TMenuItem
      Caption = '&Help'
      GroupIndex = 2
      Hint = 'Contains commands for displaying Help.'
      object miHelpTopics: TMenuItem
        Caption = '&Help Topics'
        Hint = 'Opens Help.'
        OnClick = miHelpTopicsClick
      end
      object miHelpOnHelp: TMenuItem
        Caption = 'Ho&w to use Help'
        Hint = 'Displays help topics about how to use the Windows Help system.'
        OnClick = miHelpOnHelpClick
      end
      object N3: TMenuItem
        Caption = '-'
      end
      object miAbout: TMenuItem
        Caption = '&About...'
        Hint = 'Displays program information, version number, and copyright.'
        OnClick = miAboutClick
      end
    end
  end
  object Zip: TXceedZip
    Compression = 6
    StoredExtensions = '.ZIP;.LZH;.ARC;.ARJ;.ZOO'
    OnAdding = ZipAdding
    OnDeleting = ZipDeleting
    OnExtracting = ZipExtracting
    OnFixing = ZipFixing
    OnListing = ZipListing
    OnReplace = ZipReplace
    OnPwdQuery = ZipPwdQuery
    OnTesting = ZipTesting
    OnUpdating = ZipUpdating
    OnSkippingFile = ZipSkippingFile
    OnStatus = ZipStatus
    OnNewdisk = ZipNewdisk
    Left = 200
    Top = 72
  end
  object ilLarge: TImageList
    Left = 261
    Top = 72
  end
  object ilSmall: TImageList
    Left = 311
    Top = 74
  end
  object mnuPopUp: TPopupMenu
    OnPopup = mnuPopUpPopup
    Left = 112
    Top = 72
    object mipDelete: TMenuItem
      Caption = '&Delete'
      OnClick = DeleteFiles
    end
    object mipExtract: TMenuItem
      Caption = 'E&xtract'
      OnClick = ExtractFiles
    end
    object N2: TMenuItem
      Caption = '-'
    end
    object mipSelectAll: TMenuItem
      Caption = 'Select&All'
      OnClick = SelectAllFiles
    end
    object N1: TMenuItem
      Caption = '-'
    end
    object mipProperties: TMenuItem
      Caption = 'P&roperties'
      OnClick = ShowZipProperties
    end
  end
  object DlgAddFiles: TOpenDialog
    DefaultExt = '*.*'
    Filter = 'All files (*.*)|*.*'
    Options = [ofHideReadOnly, ofAllowMultiSelect, ofPathMustExist, ofFileMustExist, ofNoTestFileCreate]
    Title = 'Add Files'
    Left = 56
    Top = 128
  end
  object dlgOpenZip: TOpenDialog
    DefaultExt = 'ZIP'
    Filter = 'Zip file (*.ZIP)|*.ZIP|All files (*.*)|*.*'
    Options = [ofHideReadOnly, ofPathMustExist, ofFileMustExist]
    Title = 'Open Archive'
    Left = 128
    Top = 128
  end
  object dlgNewZip: TSaveDialog
    DefaultExt = 'ZIP'
    Filter = 'Zip file (*.ZIP)|*.ZIP|All files (*.*)|*.*'
    Options = [ofOverwritePrompt, ofHideReadOnly, ofPathMustExist, ofCreatePrompt]
    Title = 'New Archive'
    Left = 192
    Top = 128
  end
  object ilState: TImageList
    DrawingStyle = dsTransparent
    Height = 8
    Width = 8
    Left = 360
    Top = 72
    Bitmap = {
      494C010101000500040008000800FFFFFFFFFF00FFFFFFFFFFFFFFFF424D3600
      0000000000003600000028000000200000001000000001001000000000000004
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000007C007C007C007C007C007C
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000007C0040004000400040007C
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000007C007C007C007C007C007C
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000007C0040004000400040007C
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000007C007C007C007C007C007C
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000424D3E000000000000003E000000
      2800000020000000100000000100010000000000400000000000000000000000
      000000000000000000000000FFFFFF0000000000000000000000000000000000
      0000000000000000000000000000000081000000810000008100000081000000
      81000000DB000000DB000000E7000000}
  end
end