mainedit.~dfm

用C++ builer 实现的关于文件操作经典实例 里面有所有工程需要的源代码

object MainEditForm: TMainEditForm
  Left = 292
  Top = 231
  Width = 500
  Height = 330
  Caption = 'C++ Builder写字板'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {
    0000010001002020100000000000E80200001600000028000000200000004000
    0000010004000000000080020000000000000000000000000000000000000000
    0000000080000080000000808000800000008000800080800000C0C0C0008080
    80000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF007777
    7777777777777777777777777777777777777777777777777777777777777777
    77777777777777777777777777777777CCCC77777777777C77777777777777CC
    CCCCCC77777777CC77777777777777CCCCCCCCCC777777CCC777777777777CCC
    CCCCCCCCC7777CCCC777777777777CCCCCCCCCCCCC777CCCCC77777777777CCC
    CCCC77777C777CCCCC77777777777CCCCCC777777777CCCCCCC7777777777CCC
    CCCC77777777CCCCCCC77777777777CCCCCC7777777CCCCCCCCC7777777777CC
    CCCCC777777CCCCCCCCC7777777777CCCCCCCC777777CCCCCCC777777777777C
    CCCCCC777777CCCCCC7777777777777CCCCCCCC777777CCCCC77777777777777
    CCCCCCCC77777CCCC7777777777777777CCCCCCCC77777CCC777C77777777777
    77CCCCCCCC7777CC7777CC7777777777777CCCCCCCCC777C77777CCC77777777
    7777CCCCCCCC777777777CCCC777777777777CCCCCCCC777777777CCCC777777
    777777CCCCCCCCCCC77777CCCC7777777777777CCCCCCCCCCC7777CCCCC77777
    77777777CCCCCCCCCCCCCCCCCCC777777777777777CCCCCCCCCCCCCCCCC77777
    77777777777CCCCCCCCCCCCCCC7777777777777777777CCCCCCCCCCCCC777777
    777777777777777CCCCCCCCCC7777777777777777777777777CCCCCC77777777
    7777777777777777777777777777777777777777777777777777777777770000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    000000000000000000000000000000000000000000000000000000000000}
  Menu = MainMenu1
  OldCreateOrder = False
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object StatusBar: TStatusBar
    Left = 0
    Top = 255
    Width = 492
    Height = 19
    AutoHint = True
    Panels = <
      item
        Width = 200
      end
      item
        Width = 50
      end>
    SimplePanel = False
  end
  object RichEdit1: TRichEdit
    Left = 0
    Top = 58
    Width = 492
    Height = 197
    Align = alClient
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ScrollBars = ssBoth
    TabOrder = 1
    OnMouseMove = RichEdit1MouseMove
    OnSelectionChange = RichEdit1Change
  end
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
    Width = 492
    Height = 29
    Caption = 'ToolBar1'
    Images = ImageList1
    TabOrder = 2
    object NewButton: TToolButton
      Left = 0
      Top = 2
      Caption = 'NewButton'
      ImageIndex = 0
      OnClick = NewButtonClick
    end
    object OpenButton: TToolButton
      Left = 23
      Top = 2
      Caption = 'OpenButton'
      ImageIndex = 1
      OnClick = OpenButtonClick
    end
    object SaveButton: TToolButton
      Left = 46
      Top = 2
      Caption = 'SaveButton'
      ImageIndex = 2
      OnClick = SaveButtonClick
    end
    object PrintButton: TToolButton
      Left = 69
      Top = 2
      Caption = 'PrintButton'
      ImageIndex = 3
      OnClick = PrintButtonClick
    end
    object Space1Button: TToolButton
      Left = 92
      Top = 2
      Width = 8
      Caption = 'Space1Button'
      ImageIndex = 4
      Style = tbsSeparator
    end
    object UndoButton: TToolButton
      Left = 100
      Top = 2
      Caption = 'UndoButton'
      ImageIndex = 7
      OnClick = UndoButtonClick
    end
    object Space2Button: TToolButton
      Left = 123
      Top = 2
      Width = 6
      Caption = 'Space2Button'
      ImageIndex = 14
      Style = tbsSeparator
    end
    object CutButton: TToolButton
      Left = 129
      Top = 2
      Caption = 'CutButton'
      ImageIndex = 4
      OnClick = CutButtonClick
    end
    object CopyButton: TToolButton
      Left = 152
      Top = 2
      Caption = 'CopyButton'
      ImageIndex = 5
      OnClick = CopyButtonClick
    end
    object PasteButton: TToolButton
      Left = 175
      Top = 2
      Caption = 'PasteButton'
      ImageIndex = 6
      OnClick = PasteButtonClick
    end
    object Space3Button: TToolButton
      Left = 198
      Top = 2
      Width = 8
      Caption = 'Space3Button'
      ImageIndex = 15
      Style = tbsSeparator
    end
    object BoldButton: TToolButton
      Left = 206
      Top = 2
      Caption = 'BoldButton'
      ImageIndex = 8
      Style = tbsCheck
      OnClick = BoldButtonClick
    end
    object ItalicButton: TToolButton
      Left = 229
      Top = 2
      Caption = 'ItalicButton'
      ImageIndex = 9
      Style = tbsCheck
      OnClick = ItalicButtonClick
    end
    object UnderlineButton: TToolButton
      Left = 252
      Top = 2
      Caption = 'UnderlineButton'
      ImageIndex = 10
      Style = tbsCheck
      OnClick = UnderlineButtonClick
    end
    object Space4Button: TToolButton
      Left = 275
      Top = 2
      Width = 8
      Caption = 'Space4Button'
      ImageIndex = 12
      Style = tbsSeparator
    end
    object LeftButton: TToolButton
      Left = 283
      Top = 2
      Caption = 'LeftButton'
      Grouped = True
      ImageIndex = 11
      Style = tbsCheck
      OnClick = LeftButtonClick
    end
    object CenterButton: TToolButton
      Left = 306
      Top = 2
      Caption = 'CenterButton'
      Grouped = True
      ImageIndex = 12
      Style = tbsCheck
      OnClick = LeftButtonClick
    end
    object RightButton: TToolButton
      Left = 329
      Top = 2
      Caption = 'RightButton'
      Grouped = True
      ImageIndex = 13
      Style = tbsCheck
      OnClick = LeftButtonClick
    end
    object Space5Button: TToolButton
      Left = 352
      Top = 2
      Width = 8
      Caption = 'Space5Button'
      ImageIndex = 16
      Style = tbsSeparator
    end
    object BulletsButton: TToolButton
      Left = 360
      Top = 2
      Caption = 'BulletsButton'
      ImageIndex = 14
      Style = tbsCheck
      OnClick = BulletsButtonClick
    end
    object Space6Button: TToolButton
      Left = 383
      Top = 2
      Width = 7
      Caption = 'Space6Button'
      ImageIndex = 17
      Style = tbsSeparator
    end
    object ColorButton: TToolButton
      Left = 390
      Top = 2
      Caption = 'ToolButton'
      ImageIndex = 16
      OnClick = ColorButtonClick
    end
    object Space7Button: TToolButton