utxtfrm.dfm

一个基于不需引擎的文件管理系统,使用了许多界面比较好的控件

object TxtFrm: TTxtFrm
  Left = 285
  Top = 258
  Width = 440
  Height = 382
  HorzScrollBar.Visible = False
  VertScrollBar.Visible = False
  Caption = 'TxtFrm'
  Color = clBtnFace
  Constraints.MinHeight = 100
  Constraints.MinWidth = 200
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poDefault
  Visible = True
  OnActivate = FormActivate
  OnClose = FormClose
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object SpTBXDock1: TSpTBXDock
    Left = 0
    Top = 0
    Width = 432
    Height = 26
    object TBXToolbar1: TTBXToolbar
      Left = 0
      Top = 0
      Caption = 'TBXToolbar1'
      DockMode = dmCannotFloat
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      Images = ImageList1
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      object SpTBXSubmenuItem2: TSpTBXSubmenuItem
        ImageIndex = 1
        Images = ImageList1
        Options = [tboShowHint]
        DropdownCombo = True
        HintW = #34920#24773#31526
        object TBXToolPalette1: TTBXToolPalette
          ColCount = 5
          Images = ImageList2
          Options = [tboToolbarStyle]
          PaletteOptions = [tpoNoAutoSelect]
          RowCount = 5
          OnCellClick = TBXToolPalette1CellClick
        end
      end
      object TBXSubmenuItem1: TTBXSubmenuItem
        DropdownCombo = True
        Hint = #23383#20307#39068#33394
        ImageIndex = 2
        Images = ImageList1
        Options = [tboShowHint]
        ToolBoxPopup = True
        OnDrawImage = TBXSubmenuItem1DrawImage
        OnClick = TBXSubmenuItem1Click
        object TBXColorItem1: TTBXColorItem
          Caption = #33258#21160
          OnClick = TBXColorItem1Click
        end
        object TBXColorPalette1: TTBXColorPalette
          Options = [tboShowHint, tboToolbarStyle]
          PaletteOptions = [tpoCustomImages]
          OnChange = TBXColorPalette1Change
        end
        object TBXSeparatorItem2: TTBXSeparatorItem
        end
        object SpTBXItem2: TSpTBXItem
          OnClick = SpTBXItem2Click
          CaptionW = #20854#20182#39068#33394'...'
        end
      end
      object TBXSubmenuItem2: TTBXSubmenuItem
        DropdownCombo = True
        Hint = #32972#26223#39068#33394
        ImageIndex = 9
        Options = [tboShowHint]
        ToolBoxPopup = True
        OnDrawImage = TBXSubmenuItem2DrawImage
        OnClick = TBXSubmenuItem2Click
        object TBXColorItem2: TTBXColorItem
          Caption = #33258#21160
          OnClick = TBXColorItem2Click
        end
        object TBXColorPalette2: TTBXColorPalette
          PaletteOptions = [tpoCustomImages]
          OnChange = TBXColorPalette2Change
        end
        object TBXSeparatorItem5: TTBXSeparatorItem
        end
        object SpTBXItem9: TSpTBXItem
          OnClick = SpTBXItem9Click
          CaptionW = #20854#20182#39068#33394'...'
        end
      end
      object TBXSeparatorItem6: TTBXSeparatorItem
      end
      object SpTBXSubmenuItem1: TSpTBXSubmenuItem
        ImageIndex = 18
        Images = ImageList1
        Options = [tboShowHint]
        OnClick = SpTBXSubmenuItem1Click
        DropdownCombo = True
        ToolBoxPopup = True
        OnPopup = SpTBXSubmenuItem1Popup
        HintW = #34920#26684
        object TBXToolPalette2: TTBXToolPalette
          ColCount = 5
          Options = [tboDefault, tboShowHint, tboToolbarStyle]
          PaletteOptions = [tpoCustomImages, tpoNoAutoSelect]
          RowCount = 4
          OnCellClick = TBXToolPalette2CellClick
          OnDrawCellImage = TBXToolPalette2DrawCellImage
          OnGetCellHint = TBXToolPalette2GetCellHint
          OnCellChange = TBXToolPalette2CellChange
        end
      end
      object SpTBXItem1: TSpTBXItem
        ImageIndex = 19
        Options = [tboShowHint]
        OnClick = SpTBXItem1Click
        HintW = #21512#24182
      end
      object SpTBXItem20: TSpTBXItem
        ImageIndex = 20
        Options = [tboShowHint]
        OnClick = SpTBXItem20Click
        HintW = #25286#20998
      end
      object TBXSeparatorItem3: TTBXSeparatorItem
      end
      object SpTBXItem5: TSpTBXItem
        ImageIndex = 3
        Images = ImageList1
        Options = [tboShowHint]
        OnClick = SpTBXItem5Click
        HintW = #21152#31895
      end
      object SpTBXItem4: TSpTBXItem
        ImageIndex = 4
        Options = [tboShowHint]
        OnClick = SpTBXItem4Click
        HintW = #20542#26012
      end
      object SpTBXItem3: TSpTBXItem
        ImageIndex = 5
        Options = [tboShowHint]
        OnClick = SpTBXItem3Click
        HintW = #19979#21010#32447
      end
      object TBXSeparatorItem1: TTBXSeparatorItem
      end
      object cbFontItem: TTBXComboBoxItem
        EditWidth = 100
        OnAcceptText = cbFontItemAcceptText
        ExtendedAccept = True
        OnItemClick = cbFontItemItemClick
      end
      object cbFontSize: TTBXComboBoxItem
        Tag = 1
        EditWidth = 40
        OnAcceptText = cbFontItemAcceptText
        Strings.Strings = (
          '8'
          '9'
          '10'
          '11'
          '12'
          '14'
          '16'
          '18'
          '20'
          '22'
          '24'
          '26'
          '28'
          '36'
          '48'
          '72')
        OnItemClick = cbFontItemItemClick
      end
      object TBXSeparatorItem4: TTBXSeparatorItem
      end
      object SpTBXItem8: TSpTBXItem
        GroupIndex = 1
        ImageIndex = 6
        Options = [tboShowHint]
        OnClick = SpTBXItem8Click
        HintW = #24038#23545#40784
      end
      object SpTBXItem7: TSpTBXItem
        GroupIndex = 1
        ImageIndex = 7
        Options = [tboShowHint]
        OnClick = SpTBXItem7Click
        HintW = #23621#20013
      end
      object SpTBXItem6: TSpTBXItem
        GroupIndex = 1
        ImageIndex = 8
        Options = [tboShowHint]