unit1.dfm

本人用delphi编写的一个记事本。功能是模拟windows自带的记事本。

object frmmain: Tfrmmain
  Left = 199
  Top = 169
  Width = 696
  Height = 479
  Caption = 'QL'#35760#20107#26412
  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
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Memo1: TMemo
    Left = 0
    Top = 33
    Width = 688
    Height = 359
    Align = alClient
    ImeName = #32043#20809#25340#38899#36755#20837#27861
    ScrollBars = ssVertical
    TabOrder = 0
    OnClick = Memo1Click
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 392
    Width = 688
    Height = 33
    Panels = <
      item
        Width = 350
      end
      item
        Width = 150
      end
      item
        Width = 50
      end>
  end
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
    Width = 688
    Height = 33
    Caption = 'ToolBar1'
    Flat = True
    Images = ImageList1
    TabOrder = 2
    object ToolButton1: TToolButton
      Left = 0
      Top = 0
      Hint = #26032#24314
      AutoSize = True
      Caption = 'ToolButton1'
      ImageIndex = 0
      ParentShowHint = False
      ShowHint = True
      OnClick = ToolButton1Click
    end
    object ToolButton2: TToolButton
      Left = 23
      Top = 0
      Hint = #25171#24320
      Caption = 'ToolButton2'
      ImageIndex = 1
      ParentShowHint = False
      ShowHint = True
      OnClick = ToolButton2Click
    end
    object ToolButton3: TToolButton
      Left = 46
      Top = 0
      Hint = #20445#23384
      Caption = 'ToolButton3'
      ImageIndex = 2
      ParentShowHint = False
      ShowHint = True
      OnClick = ToolButton3Click
    end
    object ToolButton7: TToolButton
      Left = 69
      Top = 0
      Width = 23
      Caption = 'ToolButton7'
      ImageIndex = 7
      Style = tbsDivider
    end
    object ToolButton4: TToolButton
      Left = 92
      Top = 0
      Hint = #21098#36148
      Caption = 'ToolButton4'
      ImageIndex = 3
      ParentShowHint = False
      ShowHint = True
      OnClick = ToolButton4Click
    end
    object ToolButton5: TToolButton
      Left = 115
      Top = 0
      Hint = #22797#21046
      Caption = 'ToolButton5'
      ImageIndex = 4
      ParentShowHint = False
      ShowHint = True
      OnClick = ToolButton5Click
    end
    object ToolButton6: TToolButton
      Left = 138
      Top = 0
      Hint = #31896#36148
      Caption = #31896#36148
      ImageIndex = 6
      ParentShowHint = False
      ShowHint = True
      OnClick = ToolButton6Click
    end
    object ToolButton8: TToolButton
      Left = 161
      Top = 0
      Hint = #24110#21161
      ImageIndex = 9
      ParentShowHint = False
      ShowHint = True
      OnClick = ToolButton8Click
    end
  end
  object MainMenu1: TMainMenu
    Left = 400
    Top = 40
    object F1: TMenuItem
      Caption = #25991#20214'(&F)'
      object N1: TMenuItem
        Caption = #26032#24314'(&N)'
        ShortCut = 16462
        OnClick = N1Click
      end
      object O1: TMenuItem
        Caption = #25171#24320'(&O)...'
        ShortCut = 16463
        OnClick = O1Click
      end
      object S1: TMenuItem
        Caption = #20445#23384'(&S)'
        ShortCut = 16467
        OnClick = S1Click
      end
      object A1: TMenuItem
        Caption = #21478#23384#20026'(&A)...'
        OnClick = A1Click
      end
      object N2: TMenuItem
        Caption = '-'
      end
      object U1: TMenuItem
        Caption = #39029#38754#35774#32622'(&U)...'
        OnClick = U1Click
      end
      object P1: TMenuItem
        Caption = #25171#21360'(&P)...'
        ShortCut = 16464
        OnClick = P1Click
      end
      object N3: TMenuItem
        Caption = '-'
      end
      object X1: TMenuItem
        Caption = #36864#20986'(&X)'
        OnClick = X1Click
      end
    end
    object E1: TMenuItem
      Caption = #32534#36753'(&E)'
      object U2: TMenuItem
        Caption = #25764#28040'(&U)'
        ShortCut = 16474
        OnClick = U2Click
      end
      object N4: TMenuItem
        Caption = '-'
      end
      object T1: TMenuItem
        Caption = #21098#36148'(&T)'
        ShortCut = 16472
        OnClick = T1Click
      end
      object C1: TMenuItem
        Caption = #22797#21046'(&C)'
        ShortCut = 16451
        OnClick = C1Click
      end
      object P2: TMenuItem
        Caption = #31896#36148'(&P)'
        ShortCut = 16470
        OnClick = P2Click
      end
      object L1: TMenuItem
        Caption = #21024#38500'(&L)'
        ShortCut = 46
        OnClick = L1Click
      end
      object N5: TMenuItem
        Caption = '-'
      end
      object F2: TMenuItem
        Caption = #26597#25214'(&F)...'
        ShortCut = 16454
        OnClick = F2Click
      end
      object N6: TMenuItem
        Caption = #26597#25214#19979#19968#20010'(&N)'
        ShortCut = 114
        OnClick = N6Click
      end
      object R1: TMenuItem
        Caption = #26367#25442'(&R)...'
        ShortCut = 16456
        OnClick = R1Click
      end
      object G1: TMenuItem
        Caption = #36716#21040'(&G)...'
        Enabled = False
        ShortCut = 16455
      end
      object N7: TMenuItem
        Caption = '-'
      end
      object A2: TMenuItem