note.dfm

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

object MainForm: TMainForm
  Left = 214
  Top = 156
  Width = 696
  Height = 480
  Caption = #31616#21333#35760#20107#26412
  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
  Visible = True
  OnClose = FormClose
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
    Width = 688
    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
      Caption = 'tb_save'
      ImageIndex = 1
      OnClick = SaveClick
    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
      Caption = 'tb_undo'
      ImageIndex = 6
    end
    object tb_cut: TToolButton
      Left = 100
      Top = 2
      Caption = 'tb_cut'
      ImageIndex = 2
    end
    object tb_copy: TToolButton
      Left = 123
      Top = 2
      Caption = 'tb_copy'
      ImageIndex = 10
    end
    object tb_paste: TToolButton
      Left = 146
      Top = 2
      Caption = 'tb_paste'
      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
      Caption = 'tb_print'
      ImageIndex = 4
    end
    object tb_preview: TToolButton
      Left = 200
      Top = 2
      Caption = 'tb_preview'
      ImageIndex = 19
    end
  end
  object ToolBar2: TToolBar
    Left = 0
    Top = 26
    Width = 688
    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
      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
      ItemHeight = 13
      TabOrder = 1
      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
      Caption = 'tb_bold'
      ImageIndex = 11
      PopupMenu = PopupMenu1
      Style = tbsCheck
      OnClick = tb_boldClick
    end
    object tb_Italic: TToolButton
      Left = 263
      Top = 2
      Caption = 'tb_Italic'
      ImageIndex = 17
      Style = tbsCheck
    end
    object tb_UnderLine: TToolButton
      Left = 286
      Top = 2
      Caption = 'tb_UnderLine'
      ImageIndex = 12
      Style = tbsCheck
    end
    object tb_color: TToolButton
      Left = 309
      Top = 2
      Caption = 'tb_color'
      ImageIndex = 18
    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
      AllowAllUp = True
      Caption = 'tb_left'
      Grouped = True
      ImageIndex = 14
      Style = tbsCheck
    end
    object tb_center: TToolButton
      Left = 363
      Top = 2
      AllowAllUp = True
      Caption = 'tb_center'
      Grouped = True
      ImageIndex = 16
      Style = tbsCheck
    end
    object tb_right: TToolButton
      Left = 386
      Top = 2
      AllowAllUp = True
      Caption = 'tb_right'
      Grouped = True