librarypage.dfm

Last change: 2008-02-03 This is the source code of KCeasy。

object LibraryForm: TLibraryForm
  Left = 330
  Top = 244
  Align = alClient
  BorderIcons = []
  BorderStyle = bsNone
  Caption = 'LibraryForm'
  ClientHeight = 633
  ClientWidth = 850
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object HSplitter: TSplitter
    Left = 193
    Top = 34
    Width = 3
    Height = 599
    Cursor = crHSplit
    AutoSnap = False
    MinSize = 100
  end
  object LeftPanel: TPanel
    Left = 0
    Top = 34
    Width = 193
    Height = 599
    Align = alLeft
    BevelOuter = bvNone
    Constraints.MaxWidth = 300
    Constraints.MinWidth = 4
    FullRepaint = False
    TabOrder = 0
    object FolderTree: TVirtualStringTree
      Left = 0
      Top = 0
      Width = 193
      Height = 493
      Align = alClient
      DragOperations = []
      Header.AutoSizeIndex = 0
      Header.Font.Charset = DEFAULT_CHARSET
      Header.Font.Color = clWindowText
      Header.Font.Height = -11
      Header.Font.Name = 'MS Sans Serif'
      Header.Font.Style = []
      Header.Height = 21
      Header.Options = [hoAutoResize, hoRestrictDrag, hoVisible]
      Header.Style = hsFlatButtons
      HintMode = hmHint
      Images = FolderImageList
      Indent = 16
      Margin = 1
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      TextMargin = 2
      TreeOptions.MiscOptions = [toFullRepaintOnResize, toInitOnSave, toToggleOnDblClick, toWheelPanning]
      TreeOptions.PaintOptions = [toShowButtons, toShowDropmark, toShowRoot, toShowTreeLines, toThemeAware]
      TreeOptions.SelectionOptions = [toRightClickSelect]
      OnChange = FolderTreeChange
      OnFocusChanging = FolderTreeFocusChanging
      OnFreeNode = FolderTreeFreeNode
      OnGetText = FolderTreeGetText
      OnGetImageIndex = FolderTreeGetImageIndex
      Columns = <
        item
          Options = [coEnabled, coParentBidiMode, coParentColor, coResizable, coVisible]
          Position = 0
          Width = 189
          WideText = 'Folders'
        end>
      WideDefaultText = ''
    end
    object StatusPanel: TPanel
      Left = 0
      Top = 576
      Width = 193
      Height = 23
      Align = alBottom
      BevelOuter = bvNone
      FullRepaint = False
      TabOrder = 1
      DesignSize = (
        193
        23)
      object StatusStatic: TStaticText
        Left = 4
        Top = 5
        Width = 184
        Height = 15
        Alignment = taCenter
        Anchors = [akLeft, akTop, akRight]
        AutoSize = False
        BevelInner = bvNone
        BevelOuter = bvNone
        Caption = 'Status:'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 0
      end
    end
    object HashingPanel: TPanel
      Left = 0
      Top = 493
      Width = 193
      Height = 83
      Align = alBottom
      BevelOuter = bvNone
      TabOrder = 2
      Visible = False
      DesignSize = (
        193
        83)
      object HashingAnimate: TAnimate
        Left = 16
        Top = 35
        Width = 160
        Height = 40
        Active = False
        Anchors = [akLeft, akTop, akRight]
        AutoSize = False
        StopFrame = 31
      end
      object HashingStatic: TStaticText
        Left = 4
        Top = 12
        Width = 184
        Height = 15
        Alignment = taCenter
        Anchors = [akLeft, akTop, akRight]
        AutoSize = False
        BevelInner = bvNone
        BevelOuter = bvNone
        Caption = 'Hashing files, please wait'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 1
      end
    end
  end
  object RightPanel: TPanel
    Left = 196
    Top = 34
    Width = 654
    Height = 599
    Align = alClient
    BevelOuter = bvNone
    FullRepaint = False
    TabOrder = 1
    object VSplitter: TSplitter
      Left = 0
      Top = 388
      Width = 654
      Height = 3
      Cursor = crVSplit
      Align = alBottom
      AutoSnap = False
      MinSize = 60
    end
    object FilePanel: TPanel
      Left = 0
      Top = 0
      Width = 654
      Height = 388
      Align = alClient
      BevelOuter = bvNone
      TabOrder = 0
      object FileTree: TVirtualStringTree
        Left = 0
        Top = 0
        Width = 654
        Height = 388
        Align = alClient
        DragImageKind = diMainColumnOnly
        DragMode = dmAutomatic
        DragOperations = [doCopy, doLink]
        DrawSelectionMode = smBlendedRectangle
        Header.AutoSizeIndex = -1
        Header.Font.Charset = DEFAULT_CHARSET
        Header.Font.Color = clWindowText
        Header.Font.Height = -11
        Header.Font.Name = 'MS Sans Serif'
        Header.Font.Style = []
        Header.Options = [hoColumnResize, hoDrag, hoRestrictDrag, hoShowSortGlyphs, hoVisible]
        Header.PopupMenu = FileTreeHeaderPopup
        Header.SortColumn = 0
        HintMode = hmHint
        Images = MainForm.FileImageList
        IncrementalSearch = isAll
        IncrementalSearchStart = ssAlwaysStartOver
        Indent = 16
        Margin = 1
        ParentShowHint = False
        SelectionBlendFactor = 32
        ShowHint = True
        TabOrder = 0
        TextMargin = 6
        TreeOptions.AutoOptions = [toAutoDropExpand, toAutoScrollOnExpand, toAutoSort, toAutoTristateTracking, toAutoDeleteMovedNodes, toDisableAutoscrollOnFocus]
        TreeOptions.MiscOptions = [toEditable, toFullRepaintOnResize, toInitOnSave, toWheelPanning]
        TreeOptions.PaintOptions = [toThemeAware, toUseBlendedImages]
        TreeOptions.SelectionOptions = [toFullRowSelect, toMultiSelect, toRightClickSelect]
        OnChange = FileTreeChange
        OnCompareNodes = FileTreeCompareNodes
        OnDblClick = PlayFileMnuClick
        OnEditing = FileTreeEditing
        OnFocusChanged = FileTreeFocusChanged
        OnGetText = FileTreeGetText
        OnGetImageIndex = FileTreeGetImageIndex
        OnGetPopupMenu = FileTreeGetPopupMenu
        OnGetUserClipboardFormats = FileTreeGetUserClipboardFormats
        OnHeaderClick = FileTreeHeaderClick
        OnHeaderDragged = FileTreeHeaderDragged
        OnHeaderMouseUp = FileTreeHeaderMouseUp
        OnIncrementalSearch = FileTreeIncrementalSearch
        OnKeyAction = FileTreeKeyAction
        OnNewText = FileTreeNewText
        OnRenderOLEData = FileTreeRenderOLEData
        Columns = <
          item
            Position = 0
            Width = 260
            WideText = 'File'
          end
          item
            Position = 1
            Width = 170
            WideText = 'Path'
          end
          item
            MaxWidth = 100
            Position = 2
            Width = 80
            WideText = 'Media Type'
          end
          item
            Alignment = taRightJustify
            MaxWidth = 90
            Position = 3
            Width = 70
            WideText = 'Size'
          end
          item
            Position = 4