mainedit.dfm

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

    object Space7Button: TToolButton
      Left = 413
      Top = 2
      Width = 8
      Caption = 'Space7Button'
      ImageIndex = 15
      Style = tbsSeparator
    end
    object FontButton: TToolButton
      Left = 421
      Top = 2
      Caption = 'ToolButton'
      ImageIndex = 15
      OnClick = FontButtonClick
    end
  end
  object ToolBar2: TToolBar
    Left = 0
    Top = 29
    Width = 492
    Height = 29
    ButtonHeight = 21
    Caption = 'ToolBar2'
    TabOrder = 3
    object FontName: TComboBox
      Left = 0
      Top = 2
      Width = 145
      Height = 21
      ItemHeight = 13
      TabOrder = 0
      Text = 'FontName'
      OnChange = FontNameChange
    end
    object FontSize: TEdit
      Left = 145
      Top = 2
      Width = 48
      Height = 21
      TabOrder = 1
      Text = '10'
      OnChange = FontSizeChange
    end
    object UpDown1: TUpDown
      Left = 193
      Top = 2
      Width = 17
      Height = 21
      Associate = FontSize
      Min = 1
      Max = 1638
      Position = 10
      TabOrder = 2
      Wrap = False
    end
  end
  object OpenDialog: TOpenDialog
    Filter = 
      'Rich text files (*.rtf)|*.rtf|Text files (*.txt)|*.txt|All files' +
      '|*.*'
    Left = 157
    Top = 207
  end
  object MainMenu1: TMainMenu
    Left = 88
    Top = 207
    object File: TMenuItem
      Caption = '文件(&F)'
      object New1: TMenuItem
        Caption = '新建(&N)'
        ShortCut = 16462
        OnClick = NewButtonClick
      end
      object Open1: TMenuItem
        Caption = '打开(&O)...'
        ShortCut = 16463
        OnClick = OpenButtonClick
      end
      object N7: TMenuItem
        Caption = '-'
      end
      object Save1: TMenuItem
        Caption = '保存&S)'
        ShortCut = 16467
        OnClick = SaveButtonClick
      end
      object SaveAs1: TMenuItem
        Caption = '另存为(&A)...'
        OnClick = SaveAs1Click
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object Print1: TMenuItem
        Caption = '打印(&P)'
        OnClick = PrintButtonClick
      end
      object PrintSet1: TMenuItem
        Caption = '打印设置...'
        OnClick = PrintSet1Click
      end
      object TopS: TMenuItem
        Caption = '-'
        GroupIndex = 9
      end
      object Exit1: TMenuItem
        Caption = '退出(&X)'
        GroupIndex = 9
        OnClick = Exit1Click
      end
    end
    object Edit1: TMenuItem
      Caption = '编辑(&E)'
      GroupIndex = 2
      object Undo1: TMenuItem
        Caption = '撤销(&U)'
        ShortCut = 16474
        OnClick = UndoButtonClick
      end
      object N4: TMenuItem
        Caption = '-'
      end
      object Cut1: TMenuItem
        Caption = '剪切(&T)'
        ShortCut = 16472
        OnClick = CutButtonClick
      end
      object Copy1: TMenuItem
        Caption = '拷贝(&C)'
        ShortCut = 16451
        OnClick = CopyButtonClick
      end
      object Paste1: TMenuItem
        Caption = '粘贴(&P)'
        ShortCut = 16470
        OnClick = PasteButtonClick
      end
      object Delete1: TMenuItem
        Caption = '删除(&D)'
        ShortCut = 46
        OnClick = Delete1Click
      end
      object SelectAll1: TMenuItem
        Caption = '全选(&A)'
        ShortCut = 16449
        OnClick = SelectAll1Click
      end
      object N3: TMenuItem
        Caption = '-'
      end
      object Find1: TMenuItem
        Caption = '查找(&F)...'
        ShortCut = 16454
        OnClick = Find1Click
      end
      object FindNext: TMenuItem
        Caption = '查找下一个(&N)'
        ShortCut = 114
        OnClick = FindNextClick
      end
      object Replace1: TMenuItem
        Caption = '替换(&R)...'
        ShortCut = 16466
        OnClick = Replace1Click
      end
    end
    object Display: TMenuItem
      Caption = '显示(&D)'
      GroupIndex = 2
      object Tool1: TMenuItem
        Caption = '工具栏1'
        Checked = True
        OnClick = Tool1Click
      end
      object Tool2: TMenuItem
        Caption = '工具栏2'
        Checked = True
        OnClick = Tool2Click
      end
      object Status1: TMenuItem
        Caption = '状态栏'
        Checked = True
        OnClick = Status1Click
      end
    end
    object O1: TMenuItem
      Caption = '格式(&O)'
      GroupIndex = 2
      object N5: TMenuItem
        Caption = '项目符号'
        OnClick = BulletsButtonClick
      end
      object Font1: TMenuItem
        Caption = '字体(&F)...'
        OnClick = FontButtonClick
      end
    end
    object Help1: TMenuItem
      Caption = '帮助(&H)'
      GroupIndex = 9
      object About1: TMenuItem
        Caption = '关于程序(&A)'
      end
    end
  end
  object SaveDialog: TSaveDialog
    DefaultExt = 'rtf'
    Filter = 'Rich Text Files (*.RTF)|*.RTF|Text Files (*.TXT)|*.TXT'
    Options = [ofOverwritePrompt]
    Left = 195
    Top = 207
  end
  object PrintDialog: TPrintDialog
    Left = 230
    Top = 207
  end
  object PrinterSetupDialog1: TPrinterSetupDialog
    Left = 264
    Top = 207
  end
  object ImageList1: TImageList
    Left = 120
    Top = 207
    Bitmap = {
      494C010111001300040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
      000000000000360000002800000040000000500000000100180000000000003C
      000000000000000000000000000000000000000000C0C0C0000000C0C0C00000
      00C0C0C0000000C0C0C0000000C0C0C0000000C0C0C0000000C0C0C0000000C0
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0808080000000FFFFFFDFDFDF
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C00000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0000000C0C0C000000000FF0000FF
      0000FF00000000FFFF00FFFF00FFFF00000000FF00FFFF00FFFF00FF000000C0
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C000000000000000FF0000FF
      0000FF00000000FFFF00FFFF00FFFF00000000FF00FFFF00FFFF00FF00000000
      0000C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0000000C0C0C000000000FF0000FF
      0000FF00000000FFFF00FFFF00FFFF00000000FF00FFFF00FFFF00FF000000C0
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0