ajfilebrowser.dfm

FileBrowser, source code for delphi

      Anchors = [akTop, akRight]
      Caption = 'Update'
      Flat = True
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        040000000000800000000000000000000000100000001000000011672500006D
        42006F6D6F00A27561001F9E5300B5827300FF00FF00379CA70060A0B10039AC
        D6004FAAC80072E1EF009BA39C0084BACE0092EEF400F3ECE60067888CCCC666
        66667EB7777788CC66667BEEBEBB7700C66679EEE74444000C66A9EEE4444444
        00C6ABAEE4444444400CABAEE74444441178AEAAEEEEEE411E88AEDD888AEB14
        BEB8AEDFFFDD8EDEBEE8AEDFFFFFD88AAAA8AEDFFFFFFF8E888C8EEFFFFF3328
        886688FFFFFF33266666C6FFFFFF35CC666666CCCCCC3CC66666}
      ParentShowHint = False
      ShowHint = True
      OnClick = mnuUpdateClick
    end
    object Bevel1: TBevel
      Left = 54
      Top = 5
      Width = 2
      Height = 19
    end
    object btnLargeIcons: TSpeedButton
      Left = 59
      Top = 3
      Width = 23
      Height = 23
      Hint = 'Large Icons'
      GroupIndex = 1
      Flat = True
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000001000000010000000000000008400
        0000CE630000FF00FF00FFEFD600FFFFFF000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000333333333333
        3333333333333000000333333333333333333333333333222233333333333324
        4233333333333325423333333333332512333000000333222333333333333333
        3333332222333333333333244233333333333325423333333333332512333333
        3333332223333333333333333333333333333333333333333333}
      ParentShowHint = False
      ShowHint = True
      OnClick = mnuViewTypeClick
    end
    object btnSmallIcons: TSpeedButton
      Tag = 1
      Left = 84
      Top = 3
      Width = 23
      Height = 23
      Hint = 'Small Icons'
      GroupIndex = 1
      Flat = True
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        040000000000800000000000000000000000100000001000000000000000CE63
        0000FF00FF00FFFFFF0000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000222222222222
        2222222111222222222222213120002222222221122222222222222222222222
        2222222222222222222222222222111222222222222213120002222222221122
        2222222222222222222222222222222222222111222222222222213120002222
        2222211222222222222222222222222222222222222222222222}
      ParentShowHint = False
      ShowHint = True
      OnClick = mnuViewTypeClick
    end
    object btnList: TSpeedButton
      Tag = 2
      Left = 109
      Top = 3
      Width = 23
      Height = 23
      Hint = 'List'
      GroupIndex = 1
      Flat = True
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        040000000000800000000000000000000000100000001000000000000000CE63
        0000FF00FF00FFFFFF0000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000222222222222
        2222111222221112222213120002131200021122222211222222222222222222
        2222222222222222222211122222111222221312000213120002112222221122
        2222222222222222222222222222222222221112222211122222131200021312
        0002112222221122222222222222222222222222222222222222}
      ParentShowHint = False
      ShowHint = True
      OnClick = mnuViewTypeClick
    end
    object btnDetails: TSpeedButton
      Tag = 3
      Left = 134
      Top = 3
      Width = 23
      Height = 23
      Hint = 'Details'
      GroupIndex = 1
      Down = True
      Flat = True
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        040000000000800000000000000000000000100000001000000000000000CE63
        0000FF00FF000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000222222222222
        2222122000020002000222222222222222221220000200020002222222222222
        2222122000020002000222222222222222221220000200020002222222222222
        2222122000020002000222222222222222221111111111111111222222222222
        2222222000020002000222222222222222222222222222222222}
      ParentShowHint = False
      ShowHint = True
      OnClick = mnuViewTypeClick
    end
    object Bevel2: TBevel
      Left = 160
      Top = 5
      Width = 2
      Height = 19
    end
  end
  object pnFilename: TPanel
    Left = 0
    Top = 29
    Width = 392
    Height = 19
    Align = alTop
    BevelInner = bvLowered
    TabOrder = 1
    object edFilename: TEdit
      Left = 4
      Top = 3
      Width = 384
      Height = 14
      Anchors = [akLeft, akTop, akRight, akBottom]
      BorderStyle = bsNone
      Color = clBtnFace
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clMaroon
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      ReadOnly = True
      TabOrder = 0
    end
  end
  object pnBack: TPanel
    Left = 0
    Top = 48
    Width = 392
    Height = 137
    Align = alClient
    BevelInner = bvLowered
    TabOrder = 2
    object lvFiles: TListView
      Left = 2
      Top = 2
      Width = 388
      Height = 133
      Align = alClient
      BorderStyle = bsNone
      Columns = <
        item
          Caption = 'Name'
          Width = 110
        end
        item
          Alignment = taRightJustify
          Caption = 'Size'
          Width = 60
        end
        item
          Caption = 'Type'
          Width = 64
        end
        item
          Caption = 'Created'
          Width = 110
        end
        item
          Caption = 'Modified'
          Width = 110
        end
        item
          Caption = 'Accessed'
          Width = 110
        end
        item
          Caption = 'Attributes'
          Width = 40
        end>
      MultiSelect = True
      ReadOnly = True
      PopupMenu = lvFilesPopupMenu
      SortType = stText
      TabOrder = 0
      ViewStyle = vsReport
      OnColumnClick = lvFilesColumnClick
      OnCompare = lvFilesCompare
      OnDblClick = lvFilesDblClick
      OnKeyDown = lvFilesKeyDown
      OnSelectItem = lvFilesSelectItem
    end
    object lvDrives: TListView
      Left = 2
      Top = 2
      Width = 388
      Height = 133
      Align = alClient
      BorderStyle = bsNone
      Columns = <
        item
          Caption = 'Name'
          Width = 160
        end
        item
          Caption = 'Type'
          Width = 74
        end
        item
          Caption = 'File System'
          Width = 56
        end
        item
          Alignment = taRightJustify
          Caption = 'Disk Size'
          Width = 110
        end
        item
          Alignment = taRightJustify
          Caption = 'Free Space'
          Width = 110
        end
        item
          Alignment = taCenter
          Caption = 'Serial Number'
          Width = 110
        end>
      ColumnClick = False
      ReadOnly = True
      SortType = stText
      TabOrder = 1
      ViewStyle = vsReport
      OnCompare = lvDrivesCompare
      OnDblClick = lvDrivesDblClick
      OnKeyDown = lvDrivesKeyDown
    end
  end
  object StatusBar: TStatusBar
    Left = 0
    Top = 185
    Width = 392
    Height = 19
    Panels = <
      item
        Width = 100