note.dfm

用Delphi编的一个简单的记事本,这里面实现了一些简单的功能~！

object MainForm: TMainForm
  Left = 234
  Top = 148
  Width = 619
  Height = 398
  Action = FileSaveAs1
  AutoSize = True
  Caption = 'Save &As...'
  Color = clAppWorkSpace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIForm
  Menu = MainMenu1
  OldCreateOrder = False
  Position = poDefault
  OnClose = FormClose
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
    Width = 611
    Height = 26
    AutoSize = True
    Caption = 'ToolBar1'
    Color = clBtnFace
    Images = ImageList1
    ParentColor = False
    TabOrder = 0
    object tb_new: TToolButton
      Left = 0
      Top = 2
      Caption = 'tb_new'
      ImageIndex = 0
      OnClick = NewClick
    end
    object tb_open: TToolButton
      Left = 23
      Top = 2
      Caption = 'tb_open'
      ImageIndex = 7
      OnClick = OpenClick
    end
    object tb_save: TToolButton
      Left = 46
      Top = 2
      Action = FileSaveAs1
      ImageIndex = 1
    end
    object ToolButton4: TToolButton
      Left = 69
      Top = 2
      Width = 8
      Caption = 'ToolButton4'
      ImageIndex = 3
      Style = tbsSeparator
    end
    object tb_undo: TToolButton
      Left = 77
      Top = 2
      Action = EditUndo1
      ImageIndex = 6
    end
    object tb_cut: TToolButton
      Left = 100
      Top = 2
      Action = EditCut1
      ImageIndex = 2
    end
    object tb_copy: TToolButton
      Left = 123
      Top = 2
      Action = EditCopy1
      ImageIndex = 10
    end
    object tb_paste: TToolButton
      Left = 146
      Top = 2
      Action = EditPaste1
      ImageIndex = 8
    end
    object ToolButton8: TToolButton
      Left = 169
      Top = 2
      Width = 8
      Caption = 'ToolButton8'
      ImageIndex = 6
      Style = tbsSeparator
    end
    object tb_print: TToolButton
      Left = 177
      Top = 2
      Action = PrintDlg1
      ImageIndex = 4
    end
  end
  object ToolBar2: TToolBar
    Left = 0
    Top = 26
    Width = 611
    Height = 29
    Caption = 'ToolBar2'
    Color = clBtnFace
    Images = ImageList1
    ParentColor = False
    TabOrder = 1
    object ComboBox1: TComboBox
      Left = 0
      Top = 2
      Width = 145
      Height = 22
      Style = csOwnerDrawFixed
      ImeName = #26497#21697#20116#31508#36755#20837#27861'5.0'
      ItemHeight = 16
      PopupMenu = PopupMenu1
      TabOrder = 0
      OnChange = ComboBox1Change
      OnDrawItem = ComboBox1DrawItem
    end
    object ToolButton1: TToolButton
      Left = 145
      Top = 2
      Width = 7
      Caption = 'ToolButton1'
      ImageIndex = 16
      Style = tbsSeparator
    end
    object ComboBox2: TComboBox
      Left = 152
      Top = 2
      Width = 80
      Height = 21
      ImeName = #26497#21697#20116#31508#36755#20837#27861'5.0'
      ItemHeight = 13
      TabOrder = 1
      OnChange = ComboBox2Change
      Items.Strings = (
        '8'
        '9'
        '10'
        '11'
        '12'
        '14'
        '16'
        '18'
        '20'
        '22'
        '24'
        '26'
        '28'
        '36'
        '48'
        '72')
    end
    object ToolButton11: TToolButton
      Left = 232
      Top = 2
      Width = 8
      Caption = 'ToolButton11'
      Style = tbsSeparator
    end
    object tb_bold: TToolButton
      Left = 240
      Top = 2
      Action = RichEditBold1
      ImageIndex = 11
      PopupMenu = PopupMenu1
      Style = tbsCheck
    end
    object tb_Italic: TToolButton
      Left = 263
      Top = 2
      Action = RichEditItalic1
      ImageIndex = 17
      Style = tbsCheck
    end
    object tb_UnderLine: TToolButton
      Left = 286
      Top = 2
      Action = RichEditUnderline1
      ImageIndex = 12
      Style = tbsCheck
    end
    object tb_color: TToolButton
      Left = 309
      Top = 2
      Caption = 'tb_color'
      ImageIndex = 18
      OnClick = tb_colorClick
    end
    object ToolButton18: TToolButton
      Left = 332
      Top = 2
      Width = 8
      Caption = 'ToolButton18'
      ImageIndex = 4
      Style = tbsSeparator
    end
    object tb_left: TToolButton
      Left = 340
      Top = 2
      Action = RichEditAlignRight1
      AllowAllUp = True
      AutoSize = True
      Grouped = True
      ImageIndex = 14
      Style = tbsCheck
    end
    object tb_center: TToolButton
      Left = 363
      Top = 2
      Action = RichEditAlignCenter1
      AllowAllUp = True
      AutoSize = True
      Grouped = True
      ImageIndex = 16
      Style = tbsCheck
    end
    object tb_right: TToolButton
      Left = 386
      Top = 2
      Action = RichEditAlignLeft1
      AllowAllUp = True
      AutoSize = True
      Grouped = True
      ImageIndex = 15
      Style = tbsCheck
    end