unotepad.dfm

类似于写字板,但此功能强大,可以扩展到许多地方

object NotePadForm: TNotePadForm
  Left = 218
  Top = 158
  AutoScroll = False
  Caption = 'NotePad 2003'
  ClientHeight = 408
  ClientWidth = 773
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIForm
  Menu = MainMenu
  OldCreateOrder = False
  PopupMenu = PopupMenu
  Position = poDesktopCenter
  OnClose = FormClose
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnKeyDown = FormKeyDown
  OnResize = FormResize
  PixelsPerInch = 96
  TextHeight = 13
  object RichEdit: TRichEdit
    Left = 0
    Top = 56
    Width = 773
    Height = 333
    Hint = #35831#25353'"F1"'#26174#31034#30456#20851#30340#24110#21161#20027#39064
    Align = alClient
    Ctl3D = True
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    HideSelection = False
    HideScrollBars = False
    MaxLength = 100000000
    ParentCtl3D = False
    ParentFont = False
    PopupMenu = PopupMenu
    ScrollBars = ssVertical
    TabOrder = 0
    WantTabs = True
    OnKeyDown = RichEditKeyDown
    OnKeyPress = RichEditKeyPress
    OnMouseDown = RichEditMouseDown
    OnSelectionChange = RichEditSelectionChange
  end
  object StatusBar: TStatusBar
    Left = 0
    Top = 389
    Width = 773
    Height = 19
    Panels = <
      item
        Text = #25805#20316#31867#22411':'#25991#20214#32534#36753#25805#20316
        Width = 170
      end
      item
        Alignment = taCenter
        Text = #24403#21069#26102#38388':[2002-02-18 12:00:00]'
        Width = 182
      end
      item
        Text = #24403#21069#34892': 1'#21015': 1'
        Width = 120
      end
      item
        Alignment = taCenter
        Text = #23567#20889
        Width = 40
      end
      item
        Alignment = taCenter
        Text = #25554#20837
        Width = 40
      end
      item
        Alignment = taCenter
        Text = 'NoNumLock'
        Width = 70
      end
      item
        Width = 50
      end>
  end
  object CoolBar: TCoolBar
    Left = 0
    Top = 0
    Width = 773
    Height = 56
    AutoSize = True
    Bands = <
      item
        Control = ToolBar1
        ImageIndex = -1
        Width = 769
      end
      item
        Control = ToolBar2
        ImageIndex = -1
        Width = 769
      end>
    object ToolBar1: TToolBar
      Left = 9
      Top = 0
      Width = 756
      Height = 25
      Align = alNone
      ButtonWidth = 24
      Caption = 'ToolBar1'
      Customizable = True
      Flat = True
      Images = ImageList
      List = True
      TabOrder = 0
      object ToolButtonNew: TToolButton
        Left = 0
        Top = 0
        Caption = #26032#24314'(&N)'
        ImageIndex = 0
        MenuItem = MenuFileNew
        ParentShowHint = False
        ShowHint = False
      end
      object ToolButtonOpen: TToolButton
        Left = 24
        Top = 0
        Caption = #25171#24320'(&O)'
        ImageIndex = 1
        MenuItem = MenuFileOpen
      end
      object ToolButtonSave: TToolButton
        Left = 48
        Top = 0
        Caption = #20445#23384'(&S)'
        Enabled = False
        ImageIndex = 2
        MenuItem = MenuFileSave
      end
      object ToolButton6: TToolButton
        Left = 72
        Top = 0
        Width = 2
        Caption = 'ToolButton6'
        ImageIndex = 4
        Style = tbsSeparator
      end
      object ToolButtonPrint: TToolButton
        Left = 74
        Top = 0
        Caption = #25171#21360'(&P)'
        ImageIndex = 4
        MenuItem = MenuFilePrint
      end
      object ToolButton4: TToolButton
        Left = 98
        Top = 0
        Width = 2
        Caption = 'ToolButton4'
        ImageIndex = 3
        Style = tbsSeparator
      end
      object ToolButtonCut: TToolButton
        Left = 100
        Top = 0
        Caption = #21098#20999'(&T)'
        Enabled = False
        ImageIndex = 5
        MenuItem = MenuEditCut
      end
      object ToolButtonCopy: TToolButton
        Left = 124
        Top = 0
        Caption = #22797#21046'(&C)'
        Enabled = False
        ImageIndex = 6
        MenuItem = MenuEditCopy
      end
      object ToolButtonPaste: TToolButton
        Left = 148
        Top = 0
        Caption = #31896#36148'(&P)'
        Enabled = False
        ImageIndex = 7
        MenuItem = MenuEditPaste
      end
      object ToolButton11: TToolButton
        Left = 172
        Top = 0
        Width = 2
        Caption = 'ToolButton11'
        ImageIndex = 8
        Style = tbsSeparator
      end
      object ToolButtonDelete: TToolButton
        Left = 174
        Top = 0
        Caption = #21024#38500'(&D)'
        Enabled = False
        ImageIndex = 8
        MenuItem = MenuEditDelete
      end
      object ToolButton13: TToolButton
        Left = 198
        Top = 0
        Width = 2
        Caption = 'ToolButton13'
        ImageIndex = 9
        Style = tbsSeparator
      end
      object ToolButtonUndo: TToolButton
        Left = 200
        Top = 0
        Caption = #25764#28040'(&U)'
        Enabled = False
        ImageIndex = 9
        MenuItem = MenuEditUndo
      end
      object ToolButton15: TToolButton
        Left = 224
        Top = 0
        Caption = #24674#22797'(&B)'
        Enabled = False
        ImageIndex = 10
        MenuItem = MenuEditBack
      end
      object ToolButtonFind: TToolButton
        Left = 248
        Top = 0
        Caption = #26597#25214'(&F)'
        ImageIndex = 11
        MenuItem = MenuSearchFind
      end
      object ToolButton17: TToolButton
        Left = 272
        Top = 0
        Width = 2
        Caption = 'ToolButton17'
        ImageIndex = 12
        Style = tbsSeparator
      end
      object ToolButtonBold: TToolButton
        Left = 274
        Top = 0
        Caption = 'ToolButtonBold'
        ImageIndex = 12
        Style = tbsCheck
        OnClick = ToolButtonBoldClick
      end
      object ToolButtonItalize: TToolButton
        Left = 298
        Top = 0
        Caption = 'ToolButtonItalize'
        ImageIndex = 13
        Style = tbsCheck
        OnClick = ToolButtonItalizeClick
      end
      object ToolButtonUnderLine: TToolButton
        Left = 322
        Top = 0
        Caption = 'ToolButtonUnderLine'
        ImageIndex = 14
        Style = tbsCheck
        OnClick = ToolButtonUnderLineClick
      end
      object ToolButton38: TToolButton
        Left = 346
        Top = 0
        Width = 2
        Caption = 'ToolButton38'
        ImageIndex = 15
        Style = tbsSeparator
      end
      object ToolButtonLeft: TToolButton
        Left = 348
        Top = 0
        Caption = 'ToolButtonLeft'
        ImageIndex = 17
        Style = tbsCheck
        OnClick = ToolButtonLeftClick
      end
      object ToolButtonCenter: TToolButton
        Left = 372
        Top = 0
        Caption = 'ToolButtonCenter'
        ImageIndex = 16
        Style = tbsCheck
        OnClick = ToolButtonCenterClick
      end
      object ToolButtonRight: TToolButton
        Left = 396
        Top = 0
        Caption = 'ToolButtonRight'
        ImageIndex = 15