unotepad.dfm

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

        Style = tbsCheck
        OnClick = ToolButtonRightClick
      end
      object ComputerLabel: TLabel
        Left = 420
        Top = 0
        Width = 48
        Height = 22
        Align = alCustom
        Alignment = taCenter
        Caption = #35745#31639#22120#65306
        Color = clActiveBorder
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlue
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentColor = False
        ParentFont = False
      end
      object EditComputer: TEdit
        Left = 468
        Top = 0
        Width = 169
        Height = 22
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 0
        OnEnter = EditComputerEnter
        OnKeyPress = EditComputerKeyPress
      end
    end
    object ToolBar2: TToolBar
      Left = 9
      Top = 27
      Width = 756
      Height = 25
      Align = alNone
      ButtonWidth = 24
      Caption = 'ToolBar2'
      Customizable = True
      Flat = True
      Images = ImageList
      TabOrder = 1
      object ToolButtonWordWrap: TToolButton
        Left = 0
        Top = 0
        Caption = #33258#21160#25442#34892'(&W)'
        Down = True
        ImageIndex = 30
        MenuItem = MenuEditWrap
      end
      object ToolButtonNumber: TToolButton
        Left = 24
        Top = 0
        Caption = 'ToolButtonNumber'
        ImageIndex = 18
      end
      object ToolButtonChar: TToolButton
        Left = 48
        Top = 0
        Caption = 'ToolButtonChar'
        ImageIndex = 19
      end
      object ToolButtonMail: TToolButton
        Left = 72
        Top = 0
        Caption = 'ToolButtonMail'
        ImageIndex = 20
        OnClick = ToolButtonMailClick
      end
      object ToolButton26: TToolButton
        Left = 96
        Top = 0
        Width = 2
        Caption = 'ToolButton26'
        ImageIndex = 4
        Style = tbsSeparator
      end
      object ToolButtonKeyBroad: TToolButton
        Left = 98
        Top = 0
        Caption = #38190#30424#35774#32622
        ImageIndex = 21
        MenuItem = MenuOptionKeyBorad
      end
      object ToolButton24: TToolButton
        Left = 122
        Top = 0
        Width = 2
        Caption = 'ToolButton24'
        ImageIndex = 3
        Style = tbsSeparator
      end
      object ToolButtonWave: TToolButton
        Left = 124
        Top = 0
        Caption = #25773#25918#32972#26223#38899#20048
        ImageIndex = 33
        MenuItem = MenuFunctionPlaysound
      end
      object ToolButtonAutoRead: TToolButton
        Left = 148
        Top = 0
        Caption = #33258#21160#38405#35835
        Enabled = False
        ImageIndex = 29
        MenuItem = MenuFunctionAutoRead
      end
      object ToolButtonSet: TToolButton
        Left = 172
        Top = 0
        Caption = #29615#22659#37197#32622
        ImageIndex = 34
        MenuItem = MenuOptionSet
      end
      object ToolButton31: TToolButton
        Left = 196
        Top = 0
        Width = 2
        Caption = 'ToolButton31'
        ImageIndex = 8
        Style = tbsSeparator
      end
      object ToolButton33: TToolButton
        Left = 198
        Top = 0
        Width = 2
        Caption = 'ToolButton33'
        ImageIndex = 9
        Style = tbsSeparator
      end
      object ToolButtonHelp: TToolButton
        Left = 200
        Top = 0
        Caption = #24110#21161#20027#39064
        ImageIndex = 27
        MenuItem = MenuHelpContent
      end
      object ToolButton37: TToolButton
        Left = 224
        Top = 0
        Width = 2
        Caption = 'ToolButton37'
        ImageIndex = 12
        Style = tbsSeparator
      end
      object Label2: TLabel
        Left = 226
        Top = 0
        Width = 39
        Height = 22
        Caption = #23383#20307#65306
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlue
        Font.Height = -13
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
      end
      object FontComboBox: TComboBox
        Left = 265
        Top = 0
        Width = 120
        Height = 21
        ItemHeight = 13
        TabOrder = 0
        OnChange = FontComboBoxChange
      end
      object Label3: TLabel
        Left = 385
        Top = 0
        Width = 39
        Height = 22
        Caption = #22823#23567#65306
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlue
        Font.Height = -13
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
      end
      object FontEdit: TEdit
        Left = 424
        Top = 0
        Width = 24
        Height = 22
        TabOrder = 1
        Text = '18'
      end
      object FontUpDown: TUpDown
        Left = 448
        Top = 0
        Width = 17
        Height = 22
        Associate = FontEdit
        Position = 18
        TabOrder = 2
      end
    end
  end
  object MainMenu: TMainMenu
    AutoHotkeys = maManual
    AutoLineReduction = maManual
    AutoMerge = True
    Images = ImageList
    OwnerDraw = True
    Left = 216
    Top = 212
    object MenuFile: TMenuItem
      AutoHotkeys = maManual
      AutoLineReduction = maManual
      Caption = #25991#20214'(&F)'
      object MenuFileNew: TMenuItem
        Caption = #26032#24314'(&N)'
        ImageIndex = 0
        ShortCut = 16462
        OnClick = MenuFileNewClick
      end
      object MenuFileOpen: TMenuItem
        Caption = #25171#24320'(&O)'
        ImageIndex = 1
        ShortCut = 16463
        OnClick = MenuFileOpenClick
      end
      object MenuFileLine1: TMenuItem
        Caption = '-'
      end
      object MenuFileSave: TMenuItem
        Caption = #20445#23384'(&S)'
        Enabled = False
        ImageIndex = 2
        ShortCut = 16467
        OnClick = MenuFileSaveClick
      end
      object MenuFileSaveAs: TMenuItem
        Caption = #21478#23384#20026'...'
        Enabled = False
        OnClick = MenuFileSaveAsClick
      end
      object MenuFileLine2: TMenuItem
        Caption = '-'
      end
      object MenuFileClose: TMenuItem
        Caption = #20851#38381
        ShortCut = 32883
        OnClick = MenuFileCloseClick
      end
      object MenuFileLine3: TMenuItem
        Caption = '-'
      end
      object MenuFilePrintSet: TMenuItem
        Caption = #25171#21360#35774#32622'(&T)'
        ShortCut = 24656
        OnClick = MenuFilePrintSetClick
      end
      object MenuFilePrint: TMenuItem
        Caption = #25171#21360'(&P)'
        ImageIndex = 4
        ShortCut = 16464
        OnClick = MenuFilePrintClick
      end
      object MenuFileShowAddMenu: TMenuItem
        Caption = #26174#31034#38468#21152#33756#21333
      end
      object MenuFileOpenCDROM: TMenuItem
        Caption = #25171#24320'CD-ROM'
        OnClick = MenuFileOpenCDROMClick
      end
      object MenuFileClosedCDROM: TMenuItem
        Caption = #20851#38381'CD-ROM'
        OnClick = MenuFileClosedCDROMClick
      end
      object MenuFileLine4: TMenuItem
        Caption = '-'
      end
      object MenuFileListFile1: TMenuItem
        Visible = False
      end
      object MenuFileListFile2: TMenuItem
        Visible = False
      end
      object MenuFileListFile3: TMenuItem
        Visible = False
      end
      object MenuFileListFile4: TMenuItem
        Visible = False
      end
      object MenuFileListFile5: TMenuItem
        Visible = False
      end
      object MenuFileLine5: TMenuItem
        Caption = '-'
        Visible = False
      end