mainformunit.dfm

用DELPHI做的记事本 类似与WINDOWS中的记事本一样,包括删除,新建

object MainForm: TMainForm
  Left = 185
  Top = 198
  Width = 697
  Height = 479
  Caption = #26080#26631#39064' - '#35760#20107#26412
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {
    0000010001002020100001000400E80200001600000028000000200000004000
    0000010004000000000000000000000000000000000000000000000000000000
    0000000000000080000000808000800000008000800080800000C0C0C0008080
    80000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF001111
    1111111111111111111111111111111111111111100000000000000000111111
    1111111188888888888888888801111111111118FFFFFFFFFFFFFFFFF7801111
    111111877777777777FFFFFFFF8011111111118777777777777FFFFFFF801100
    0000000000000088888E7E7E7E80166666666666666666077777FFFFFF806E77
    77777777777777607777FFFFFF806EE7E7E7E7E7E7E7E7608888E7E7E7806E7E
    7E7E7E7E7E7E7E7607777FFFFF8016E7E7E7E7E7E7E7E77607777FFFFF8016EE
    7E7E7E7E7E7E7E7760888E7E7E80116EE7E7E7E7E7E7E7E7607777FFFF80116E
    7E7E7E7E7E7E7E7E760777FFFF801116E7E7E7E7E7E7E7E7760888E7E7801116
    EE7E7E7E7E7E7E7E7760777FFF8011116EE7E7E7E7E7E7E7E760777FFF801111
    6E7E7E7E7E7E7E7E7E76088E7E80111116E7E7E7E7E7E7E7E7760777FF801111
    16EE7E7E7E7E7E7E7E776077FF801111116EE70000000000E7E76088E7801111
    116E7E7E7E7E7E7E7E7E76077F8011111116E7E00000000007E776077F801111
    1116EE7E7E7E7E7E7E7E77607780111111116EE7E7E7E7E7E7E7E76077801111
    11116E7E7E7E7E7E7E7E7E7607801111111116E7E7E7E7E7E7E7E77607801111
    111116E6EE6EE6EE6EE6EE67600111111111116F66F66F66F66F66F688111111
    111111188188188188188188111111111111111111111111111111111111FFFF
    FFFFFFF80003FFF00001FFE00000FFC00000FFC00000C0000000800000000000
    000000000000000000008000000080000000C0000000C0000000E0000000E000
    0000F0000000F0000000F8000000F8000000FC000000FC000000FE000000FE00
    0000FF000000FF000000FF800000FF800001FFC00003FFE4924FFFFFFFFF}
  Menu = MainMenu1
  OldCreateOrder = False
  OnClose = FormClose
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object RET: TRichEdit
    Left = 0
    Top = 29
    Width = 689
    Height = 385
    Align = alClient
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    HideSelection = False
    HideScrollBars = False
    ParentFont = False
    PopupMenu = PopupMenu1
    ScrollBars = ssBoth
    TabOrder = 0
    OnKeyDown = RETKeyDown
  end
  object SBar: TStatusBar
    Left = 0
    Top = 414
    Width = 689
    Height = 19
    Panels = <
      item
        Width = 500
      end
      item
        Width = 50
      end>
    Visible = False
  end
  object TBar1: TToolBar
    Left = 0
    Top = 0
    Width = 689
    Height = 29
    Caption = 'TBar1'
    Images = ImageList1
    TabOrder = 2
    object ToolButton1: TToolButton
      Left = 0
      Top = 2
      Width = 8
      Caption = 'ToolButton1'
      Style = tbsSeparator
    end
    object TFileNew: TToolButton
      Left = 8
      Top = 2
      Caption = 'TFileNew'
      ImageIndex = 1
      OnClick = FileNewClick
    end
    object TFileOpen: TToolButton
      Left = 31
      Top = 2
      Caption = 'TFileOpen'
      ImageIndex = 2
      OnClick = FileOpenClick
    end
    object TFileSave: TToolButton
      Left = 54
      Top = 2
      Caption = 'TFileSave'
      ImageIndex = 5
      OnClick = FileSaveClick
    end
    object ToolButton5: TToolButton
      Left = 77
      Top = 2
      Width = 8
      Caption = 'ToolButton5'
      ImageIndex = 2
      Style = tbsSeparator
    end
    object TFilePrint: TToolButton
      Left = 85
      Top = 2
      Caption = 'TFilePrint'
      ImageIndex = 4
    end
    object TPrintReview: TToolButton
      Left = 108
      Top = 2
      Caption = 'TPrintReview'
      ImageIndex = 6
    end
    object ToolButton8: TToolButton
      Left = 131
      Top = 2
      Width = 8
      Caption = 'ToolButton8'
      ImageIndex = 4
      Style = tbsSeparator
    end
    object TFileFind: TToolButton
      Left = 139
      Top = 2
      Caption = 'TFileFind'
      ImageIndex = 7
      OnClick = FileFindClick
    end
    object ToolButton10: TToolButton
      Left = 162
      Top = 2
      Width = 8
      Caption = 'ToolButton10'
      ImageIndex = 5
      Style = tbsSeparator
    end
    object TFileCut: TToolButton
      Left = 170
      Top = 2
      Caption = 'TFileCut'
      ImageIndex = 10
      OnClick = FileCutClick
    end
    object TFileCopy: TToolButton
      Left = 193
      Top = 2
      Caption = 'TFileCopy'
      ImageIndex = 9
      OnClick = FileCopyClick
    end
    object TFilePaste: TToolButton
      Left = 216
      Top = 2
      Caption = 'TFilePaste'
      ImageIndex = 3
      OnClick = FilePasteClick
    end
    object TFileUndo: TToolButton
      Left = 239
      Top = 2
      Caption = 'TFileUndo'
      ImageIndex = 8
      OnClick = FileUndoClick
    end
    object ToolButton15: TToolButton
      Left = 262
      Top = 2
      Width = 8
      Caption = 'ToolButton15'
      ImageIndex = 9
      Style = tbsSeparator
    end
    object TFileDate: TToolButton
      Left = 270
      Top = 2
      Caption = 'TFileDate'
      ImageIndex = 0
      OnClick = FileDateClick
    end
  end
  object MainMenu1: TMainMenu
    Left = 72
    Top = 144
    object FileMenu: TMenuItem
      Caption = #25991#20214'(&F)'
      object FileNew: TMenuItem
        Caption = #26032#24314'(&N)'
        ShortCut = 16462
        OnClick = FileNewClick
      end
      object FileOpen: TMenuItem
        Caption = #25171#24320'(&O)...'
        ShortCut = 16463
        OnClick = FileOpenClick
      end
      object FileSave: TMenuItem
        Caption = #20445#23384'(&S)'
        ShortCut = 16467
        OnClick = FileSaveClick
      end
      object FileSaveAs: TMenuItem
        Caption = #21478#23384#20026'(&A)...'
        OnClick = FileSaveAsClick
      end
      object FEN1: TMenuItem
        Caption = '-'
      end
      object PageSetup: TMenuItem
        Caption = #39029#38754#35774#32622'(&U)...'
        OnClick = PageSetupClick
      end
      object FilePrint: TMenuItem
        Caption = #25171#21360'(&P)...'
        ShortCut = 16464
        OnClick = FilePrintClick
      end
      object fen2: TMenuItem
        Caption = '-'
      end
      object Exit: TMenuItem
        Caption = #36864#20986'(&X)'
        OnClick = ExitClick
      end
    end
    object EditMenu: TMenuItem