Chip: Shareware for Win 95/Chip-Shareware-Win95.bin/komunik/cqwk/install.lib/CYEXPLR.DLL/0/RCDATA/TAFMAINFORM/TAFMAINFORM.txt

Text File | 1997-02-07 | 17KB | 608 lines

object AFMainForm: TAFMainForm
  Left = 317
  Top = 128
  Width = 493
  Height = 330
  HelpContext = 8281
  ActiveControl = TreeView1
  Caption = 'Attached File Explorer'
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  Position = poDefault
  OnClose = FormClose
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object Status: TGauge95
    Left = 0
    Top = 271
    Width = 485
    Height = 7
    Align = alBottom
    BoxColor = clYellow
    BoxCount = 40
    Color = clBlack
    ParentColor = False
    ParentShowHint = False
    Progress = 0
    ShowHint = False
    Visible = False
  end
  object TopPanel: TPanel
    Left = 0
    Top = 0
    Width = 485
    Height = 33
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 0
    object SpeedButton4: TSpeedButton
      Left = 456
      Top = 4
      Width = 23
      Height = 23
      Hint = 'Details|'
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000000000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        333333333333333333333C3CCC3CCC3CCC3333333333333333333C3CCC3CCC3C
        CC3333333333333333333C3CCC3CCC3CCC3333333333333333333C3CCC3CCC3C
        CC3333333333333333333C3CCC3CCC3CCC3333333333333333333CCCCCCCCCCC
        CCC33333333333333333333CCC3CCC3CCC333333333333333333}
      ParentShowHint = False
      ShowHint = True
      OnClick = SpeedButton4Click
    end
    object SpeedButton3: TSpeedButton
      Left = 432
      Top = 4
      Width = 23
      Height = 23
      Hint = 'List|'
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000000000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        333333333333333333333CCC33333CCC33333C3C3CC33C3C3CC33CC333333CC3
        3333333333333333333333333333333333333CCC33333CCC33333C3C3CC33C3C
        3CC33CC333333CC33333333333333333333333333333333333333CCC33333CCC
        33333C3C3CC33C3C3CC33CC333333CC333333333333333333333}
      ParentShowHint = False
      ShowHint = True
      OnClick = SpeedButton3Click
    end
    object SpeedButton2: TSpeedButton
      Left = 408
      Top = 4
      Width = 23
      Height = 23
      Hint = 'Small Icons|'
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000000000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333333333333333CCC3333333333333C3C3CCC333333333CC33333333
        3333333333333333333333333333333333333333333CCC3333333333333C3C3C
        CC333333333CC3333333333333333333333333CCC3333333333333C3C3CCC333
        333333CC33333333333333333333333333333333333333333333}
      ParentShowHint = False
      ShowHint = True
      OnClick = SpeedButton2Click
    end
    object SpeedButton5: TSpeedButton
      Left = 384
      Top = 4
      Width = 23
      Height = 23
      Hint = 'Large Icons|'
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000000000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333333333333333333333CCCCCC333333333333333333333333333CCC
        C333333333333C33C333333333333C33C33333CCCCCC3C33C333333333333CCC
        3333333CCCC333333333333C33C333333333333C33C333333333333C33C33333
        3333333CCC333333333333333333333333333333333333333333}
      ParentShowHint = False
      ShowHint = True
      OnClick = SpeedButton5Click
    end
    object DeleteBtn: TSpeedButton
      Left = 352
      Top = 4
      Width = 23
      Height = 23
      Hint = 'Delete|'
      Glyph.Data = {
        42010000424D4201000000000000760000002800000011000000110000000100
        040000000000CC00000000000000000000001000000010000000000000000000
        BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
        777770000000777777777777777770000000777777777777770F700000007777
        0F777777777770000000777000F7777770F770000000777000F777770F777000
        00007777000F77700F777000000077777000F700F7777000000077777700000F
        7777700000007777777000F777777000000077777700000F7777700000007777
        7000F70F7777700000007770000F77700F7770000000770000F7777700F77000
        00007700F7777777700F70000000777777777777777770000000777777777777
        777770000000}
      ParentShowHint = False
      ShowHint = True
      OnClick = DeleteBtnClick
    end
    object Label1: TLabel
      Left = 8
      Top = 8
      Width = 53
      Height = 13
      Caption = 'Destination'
    end
    object SpeedButton6: TSpeedButton
      Left = 288
      Top = 4
      Width = 23
      Height = 23
      Hint = 'Select Destination|'
      Glyph.Data = {
        E6000000424DE60000000000000076000000280000000E0000000E0000000100
        0400000000007000000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3300333333333333330030000000000333000BFBFBFBFB0333000FBFBFBFBF03
        33000BFBFBFBFB0333000FBFBFBFBF0333000BFBFBFBFB0333000FBFBFBFBF03
        3300000000000033330030FBFB03333333003800008333333300333333333333
        33003333333333333300}
      Layout = blGlyphTop
      ParentShowHint = False
      ShowHint = True
      Spacing = -1
      OnClick = SpeedButton6Click
    end
    object ExtractBtn: TSpeedButton
      Left = 320
      Top = 4
      Width = 23
      Height = 23
      Hint = 'Extract|'
      Glyph.Data = {
        E6000000424DE60000000000000076000000280000000F0000000E0000000100
        0400000000007000000000000000000000000000000000000000000000000000
        BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFF0087FFFFFFFFFFFF0B3087FFFFFFFFFFF0BB0087FF
        FFFFFFFF0BB3008FFFFFFFFFF0BBB008FFFFFFFFF00BBB007FFFFFFF00BBB007
        FFF0FFFFF00BBB007FF0FFFFFFF00BB007F0FFFFFFFFF00B0070FFFFFFFFFFF0
        00F0FFFFFFFFFFFFFFF0}
      ParentShowHint = False
      ShowHint = True
      OnClick = ExtractBtnClick
    end
    object Bevel1: TBevel
      Left = 0
      Top = 0
      Width = 485
      Height = 9
      Align = alTop
      Shape = bsTopLine
    end
    object DestEdit: TEdit
      Left = 72
      Top = 5
      Width = 217
      Height = 21
      TabOrder = 0
    end
  end
  object CenterPanel: TPanel
    Left = 0
    Top = 33
    Width = 485
    Height = 212
    Cursor = crHSplit
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 1
    OnMouseDown = CenterPanelMouseDown
    OnMouseMove = CenterPanelMouseMove
    OnMouseUp = CenterPanelMouseUp
    OnResize = CenterPanelResize
    object TreePanel: TPanel
      Left = 0
      Top = 24
      Width = 169
      Height = 188
      Align = alLeft
      BevelOuter = bvNone
      TabOrder = 0
      object TreeView1: TTreeView
        Left = 0
        Top = 0
        Width = 169
        Height = 188
        HelpContext = 8281
        ReadOnly = True
        HideSelection = False
        Indent = 19
        OnChange = TreeView1Change
        OnGetImageIndex = TreeView1GetImageIndex
        OnGetSelectedIndex = TreeView1GetSelectedIndex
        Align = alClient
        ParentColor = False
        TabOrder = 0
        OnClick = TreeView1Click
        Images = Small
        StateImages = Small
      end
    end
    object ListPanel: TPanel
      Left = 172
      Top = 24
      Width = 313
      Height = 188
      Align = alRight
      BevelOuter = bvNone
      TabOrder = 1
      object ListView1: TExtListView
        Left = 0
        Top = 0
        Width = 313
        Height = 188
        HelpContext = 8281
        Align = alClient
        ColumnClick = False
        OnDblClick = ListView1DblClick
        Columns = <
          item
            Caption = 'Name'
            Width = 150
          end
          item
            Caption = 'Size'
            Width = 75
          end
          item
            Caption = 'Packed'
            Width = 75
          end
          item
            Caption = 'Ratio'
          end
          item
            Caption = 'Date'
            Width = 75
          end
          item
            Caption = 'Time'
            Width = 350
          end>
        ReadOnly = True
        IconOptions.AutoArrange = True
        MultiSelect = True
        OnChange = ListView1Change
        PopupMenu = PopupMenu1
        TabOrder = 0
        LargeImages = Large
        SmallImages = Small
        ExtendedStyles = [lvxTrackSelect, lvxFullRowSelect]
      end
    end
    object Panel1: TPanel
      Left = 0
      Top = 0
      Width = 485
      Height = 24
      Align = alTop
      BevelOuter = bvNone
      TabOrder = 2
      object TreeHdr: TPanel
        Left = 0
        Top = 0
        Width = 169
        Height = 24
        Align = alLeft
        Alignment = taLeftJustify
        BevelOuter = bvLowered
        Font.Color = clWindowText
        Font.Height = -8
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 0
      end
      object ListHdr: TPanel
        Left = 173
        Top = 0
        Width = 312
        Height = 24
        Align = alRight
        Alignment = taLeftJustify
        BevelOuter = bvLowered
        TabOrder = 1
      end
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 245
    Width = 485
    Height = 26
    Panels = <
      item
        Text = 'ListStatus'
        Width = 150
      end
      item
        Text = 'Info'
        Width = 600
      end>
    SimplePanel = False
  end
  object Small: TImageList
    Left = 88
    Top = 72
  end
  object Large: TImageList
    Height = 32
    Width = 32
    Left = 48
    Top = 72
  end
  object MainMenu1: TMainMenu
    Left = 17
    Top = 74
    object File1: TMenuItem
      Caption = '&File'
      HelpContext = 8281
      Hint = 'Contains commands for working with the selected items.'
      ShortCut = 0
      OnClick = File1Click
      object Open1: TMenuItem
        Caption = '&Open'
        HelpContext = 8281
        Hint = 'Extracts selected items to temperary folder and opens them.'
        ShortCut = 0
        OnClick = Open1Click
      end
      object Extract1: TMenuItem
        Caption = '&Extract'
        HelpContext = 8281
        Hint = 'Extracts selected items to the destination folder.'
        ShortCut = 0
        OnClick = ExtractBtnClick
      end
      object Delete1: TMenuItem
        Caption = '&Delete'
        HelpContext = 8281
        Hint = 'Deletes selected items from mail packet.'
        ShortCut = 0
        OnClick = DeleteBtnClick
      end
      object DeleteAll1: TMenuItem
        Caption = 'Delete &All'
        HelpContext = 8281
        Hint = 'Deletes all files in current node from mail packet.'
        ShortCut = 0
        OnClick = DeleteAll1Click
      end
      object N3: TMenuItem
        Caption = '-'
        Hint = '    '
        ShortCut = 0
      end
      object Exit1: TMenuItem
        Caption = '&Close'
        HelpContext = 8281
        Hint = 'Closes the attached file explorer window.'
        ShortCut = 0
        OnClick = Exit1Click
      end
    end
    object Edit1: TMenuItem
      Caption = '&Edit'
      HelpContext = 8281
      Hint = 'Contains commands for selecting items.'
      ShortCut = 0
      object SelectDestination1: TMenuItem
        Caption = 'Select &Destination'
        HelpContext = 8281
        Hint = 'Browse for folder to extract selected items to'
        ShortCut = 0
        OnClick = SpeedButton6Click
      end
      object N4: TMenuItem
        Caption = '-'
        Hint = '        '
        ShortCut = 0
      end
      object SelectAll1: TMenuItem
        Caption = '&Select All'
        HelpContext = 8281
        Hint = 'Select all items in the window.'
        ShortCut = 0
        OnClick = SelectAll1Click
      end
      object InvertSelection1: TMenuItem
        Caption = '&Invert Selection'
        HelpContext = 8281
        Hint = 'Reverses which items are selected and which are not.'
        ShortCut = 0
        OnClick = InvertSelection1Click
      end
    end
    object View1: TMenuItem
      Caption = '&View'
      HelpContext = 8281
      Hint = 'Contains commands for customizing the window.'
      ShortCut = 0
      OnClick = View1Click
      object Toolbar1: TMenuItem
        Caption = '&Toolbar'
        Checked = True
        HelpContext = 8281
        Hint = 'Shows or hides the toolbar.'
        ShortCut = 0
        OnClick = Toolbar1Click
      end
      object Statusline1: TMenuItem
        Caption = '&Status bar'
        Checked = True
        HelpContext = 8281
        Hint = 'Shows or hides the status bar.'
        ShortCut = 0
        OnClick = Statusline1Click
      end
      object N1: TMenuItem
        Caption = '-'
        Hint = '         '
        ShortCut = 0
      end
      object LargeIcons1: TMenuItem
        Caption = 'Lar&ge Icons'
        Checked = True
        HelpContext = 8281
        Hint = 'Displays items by using large icons.'
        RadioItem = True
        ShortCut = 0
        OnClick = SpeedButton5Click
      end
      object SmallIcons1: TMenuItem
        Caption = 'S&mall Icons'
        HelpContext = 8281
        Hint = 'Displays items by using small icons.'
        RadioItem = True
        ShortCut = 0
        OnClick = SpeedButton2Click
      end
      object List1: TMenuItem
        Caption = '&List'
        HelpContext = 8281
        Hint = 'Displays items in a list.'
        RadioItem = True
        ShortCut = 0
        OnClick = SpeedButton3Click
      end
      object Details1: TMenuItem
        Caption = '&Details'
        HelpContext = 8281
        Hint = 'Displays information about each item in the window.'
        RadioItem = True
        ShortCut = 0
        OnClick = SpeedButton4Click
      end
      object N5: TMenuItem
        Caption = '-'
        Hint = '               '
        ShortCut = 0
      end
      object Refresh1: TMenuItem
        Caption = '&Refresh'
        HelpContext = 8281
        Hint = 'Refresh item information'
        ShortCut = 0
        OnClick = Refresh1Click
      end
    end
    object Help1: TMenuItem
      Caption = '&Help'
      HelpContext = 8281
      Hint = 'Contains commands for displaying help'
      ShortCut = 0
      object HelpTopics1: TMenuItem
        Caption = 'Help &Topics'
        HelpContext = 8281
        Hint = 'Opens Help.'
        ShortCut = 0
        OnClick = HelpTopics1Click
      end
      object N2: TMenuItem
        Caption = '-'
        Hint = '              '
        ShortCut = 0
      end
      object About1: TMenuItem
        Caption = '&About'
        HelpContext = 8281
        Hint = 'Displays program information, version number, and copyright .'
        ShortCut = 0
        OnClick = About1Click
      end
    end
  end
  object Zipper: TXceedZip
    Compression = 6
    StoredExtensions = '.ZIP;.LZH;.ARC;.ARJ;.ZOO'
    UseTempFile = False
    OnExtracting = ZipperExtracting
    OnListing = ZipperListing
    OnReplace = ZipperReplace
    OnStatus = ZipperStatus
    Left = 120
    Top = 73
  end
  object PopupMenu1: TPopupMenu
    OnPopup = PopupMenu1Popup
    Left = 194
    Top = 73
    object Open2: TMenuItem
      Caption = 'Open'
      HelpContext = 8281
      ShortCut = 0
      OnClick = Open1Click
    end
    object Extract2: TMenuItem
      Caption = 'Extract'
      HelpContext = 8281
      ShortCut = 0
      OnClick = ExtractBtnClick
    end
    object Delete2: TMenuItem
      Caption = 'Delete'
      HelpContext = 8281
      ShortCut = 0
      OnClick = DeleteBtnClick
    end
    object DeleteAll2: TMenuItem
      Caption = 'Delete All'
      HelpContext = 8281
      ShortCut = 0
      OnClick = DeleteAll1Click
    end
    object N6: TMenuItem
      Caption = '-'
      ShortCut = 0
    end
    object SelectAll2: TMenuItem
      Caption = 'Select All'
      HelpContext = 8281
      ShortCut = 0
      OnClick = SelectAll1Click
    end
    object InvertSelection2: TMenuItem
      Caption = 'Invert Selection'
      HelpContext = 8281
      ShortCut = 0
      OnClick = InvertSelection1Click
    end
  end
  object Timer1: TTimer
    Interval = 100
    OnTimer = Timer1Timer
    Left = 234
    Top = 73
  end
  object ResolutionFix1: TResolutionFix
    DesignRes = 96
    Left = 274
    Top = 73
  end
end