note.dfm

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

object Form1: TForm1
  Left = 289
  Top = 246
  Width = 544
  Height = 375
  Caption = #20889#23383#26495
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  PopupMenu = PopupMenu1
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object CoolBar1: TCoolBar
    Left = 0
    Top = 0
    Width = 536
    Height = 56
    AutoSize = True
    Bands = <
      item
        Control = ToolBar1
        ImageIndex = -1
        Width = 532
      end
      item
        Control = ToolBar2
        ImageIndex = -1
        Width = 532
      end>
    object ToolBar1: TToolBar
      Left = 9
      Top = 0
      Width = 519
      Height = 25
      Caption = 'ToolBar1'
      EdgeBorders = []
      Images = ImageList1
      TabOrder = 0
      object ToolButton1: TToolButton
        Left = 0
        Top = 2
        Caption = 'ToolButton1'
        ImageIndex = 7
        OnClick = ToolButton1Click
      end
      object ToolButton2: TToolButton
        Left = 23
        Top = 2
        Caption = 'ToolButton2'
        ImageIndex = 0
        OnClick = ToolButton2Click
      end
      object ToolButton3: TToolButton
        Left = 46
        Top = 2
        Caption = 'ToolButton3'
        ImageIndex = 1
        OnClick = ToolButton3Click
      end
      object ToolButton9: TToolButton
        Left = 69
        Top = 2
        Width = 12
        Caption = 'ToolButton9'
        ImageIndex = 8
        Style = tbsSeparator
      end
      object ToolButton4: TToolButton
        Left = 81
        Top = 2
        Caption = 'ToolButton4'
        ImageIndex = 2
      end
      object ToolButton5: TToolButton
        Left = 104
        Top = 2
        Caption = 'ToolButton5'
        ImageIndex = 8
      end
      object ToolButton10: TToolButton
        Left = 127
        Top = 2
        Width = 14
        Caption = 'ToolButton10'
        ImageIndex = 8
        Style = tbsSeparator
      end
      object ToolButton6: TToolButton
        Left = 141
        Top = 2
        Caption = 'ToolButton6'
        ImageIndex = 3
        OnClick = ToolButton6Click
      end
      object ToolButton7: TToolButton
        Left = 164
        Top = 2
        Caption = 'ToolButton7'
        ImageIndex = 4
        OnClick = ToolButton7Click
      end
      object ToolButton8: TToolButton
        Left = 187
        Top = 2
        Caption = 'ToolButton8'
        ImageIndex = 5
        OnClick = ToolButton8Click
      end
      object ToolButton11: TToolButton
        Left = 210
        Top = 2
        Caption = 'ToolButton11'
        ImageIndex = 6
        OnClick = ToolButton11Click
      end
    end
    object ToolBar2: TToolBar
      Left = 9
      Top = 27
      Width = 519
      Height = 25
      Caption = 'ToolBar2'
      EdgeBorders = []
      Images = ImageList1
      TabOrder = 1
      object ComboBox1: TComboBox
        Left = 0
        Top = 2
        Width = 145
        Height = 21
        Style = csDropDownList
        ItemHeight = 13
        PopupMenu = PopupMenu1
        TabOrder = 0
        OnChange = ComboBox1Change
      end
      object ToolButton16: TToolButton
        Left = 145
        Top = 2
        Width = 8
        Caption = 'ToolButton16'
        ImageIndex = 3
        Style = tbsSeparator
      end
      object ComboBox2: TComboBox
        Left = 153
        Top = 2
        Width = 48
        Height = 21
        ItemHeight = 13
        ItemIndex = 0
        TabOrder = 1
        Text = '8'
        OnChange = ComboBox2Change
        Items.Strings = (
          '8'
          '10'
          '12'
          '14'
          '16'
          '18'
          '20'
          '24'
          '28'
          '30'
          '34'
          '36'
          '38'
          '42')
      end
      object ToolButton15: TToolButton
        Left = 201
        Top = 2
        Width = 16
        Caption = 'ToolButton15'
        ImageIndex = 3
        Style = tbsSeparator
      end
      object ToolButton12: TToolButton
        Left = 217
        Top = 2
        Caption = 'ToolButton12'
        ImageIndex = 15
        PopupMenu = PopupMenu1
        Style = tbsCheck
        OnClick = ToolButton12Click
      end
      object ToolButton13: TToolButton
        Left = 240
        Top = 2
        Caption = 'ToolButton13'
        ImageIndex = 9
        Style = tbsCheck
      end
      object ToolButton14: TToolButton
        Left = 263
        Top = 2
        Caption = 'ToolButton14'
        ImageIndex = 10
        Style = tbsCheck
      end
      object ToolButton17: TToolButton
        Left = 286
        Top = 2
        Caption = 'ToolButton17'
        ImageIndex = 11
        OnClick = ToolButton17Click
      end
      object ToolButton18: TToolButton
        Left = 309
        Top = 2
        Width = 8
        Caption = 'ToolButton18'
        ImageIndex = 4
        Style = tbsSeparator
      end
      object ToolButton19: TToolButton
        Left = 317
        Top = 2
        Caption = 'ToolButton19'
        ImageIndex = 12
      end
      object ToolButton20: TToolButton
        Left = 340
        Top = 2
        Caption = 'ToolButton20'
        ImageIndex = 13
      end
      object ToolButton21: TToolButton
        Left = 363
        Top = 2
        Caption = 'ToolButton21'
        ImageIndex = 14
      end
    end
  end
  object RichEdit1: TRichEdit
    Left = 0
    Top = 56
    Width = 536
    Height = 269
    Align = alClient
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    HideSelection = False
    ParentFont = False
    TabOrder = 1
  end
  object MainMenu1: TMainMenu
    Images = ImageList1
    Left = 208
    Top = 104
    object File1: TMenuItem