main.txt

通过编译,并能运行

object MainForm: TMainForm
  Left = 214
  Top = 112
  Width = 409
  Height = 249
  Caption = 'MainForm'
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  PixelsPerInch = 96
  TextHeight = 13
  FormStyle = fsMDIForm
  Menu = MainMenu
  ShowHint = True
  OnCreate = FormCreate
  object MainMenu: TMainMenu
    Left = 220
    Top = 40
    object FileMenu: TMenuItem
      Caption = '&File'
      object FileNewItem: TMenuItem
        Caption = '&New'
        Hint = 'Create a new file'
        OnClick = FileNew
      end
      object FileOpenItem: TMenuItem
        Caption = '&Open...'
        Hint = 'Open an existing file'
        OnClick = FileOpen
      end
      object FileSaveItem: TMenuItem
        Caption = '&Save'
        Hint = 'Save current file'
        OnClick = FileSave
      end
      object FileSaveAsItem: TMenuItem
        Caption = 'Save &As...'
        Hint = 'Save current file under a new name'
        OnClick = FileSaveAs
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object FilePrintItem: TMenuItem
        Caption = '&Print'
        Hint = 'Print current file'
        OnClick = FilePrint
      end
      object FilePrintSetupItem: TMenuItem
        Caption = 'P&rint Setup...'
        Hint = 'Change printer setup'
        OnClick = FilePrintSetup
      end
      object N4: TMenuItem
        Caption = '-'
      end
      object FileExitItem: TMenuItem
        Caption = 'E&xit'
        Hint = 'Exit this application'
        OnClick = FileExit
      end
    end
    object EditMenu: TMenuItem
      Caption = '&Edit'
      object EditUndoItem: TMenuItem
        Caption = '&Undo'
        Hint = 'Undo the last action'
        OnClick = EditUndo
      end
      object N2: TMenuItem
        Caption = '-'
      end
      object EditCutItem: TMenuItem
        Caption = 'Cu&t'
        Hint = 'Delete selected item'
        OnClick = EditCut
      end
      object EditCopyItem: TMenuItem
        Caption = '&Copy'
        Hint = 'Copy selected item to clipboard'
        OnClick = EditCopy
      end
      object EditPasteItem: TMenuItem
        Caption = '&Paste'
        Hint = 'Paste contents of clipboard'
        OnClick = EditPaste
      end
    end
    object WindowMenu: TMenuItem
      Caption = '&Window'
      object WindowTileItem: TMenuItem
        Caption = '&Tile'
        Hint = 'Tile all windows'
        OnClick = WindowTile
      end
      object WindowCascadeItem: TMenuItem
        Caption = '&Cascade'
        Hint = 'Cascade all windows'
        OnClick = WindowCascade
      end
      object WindowArrangeItem: TMenuItem
        Caption = '&Arrange All'
        Hint = 'Arrange minimized windows'
        OnClick = WindowArrange
      end
    end
    object HelpMenu: TMenuItem
      Caption = '&Help'
      object HelpContentsItem: TMenuItem
        Caption = '&Contents'
        Hint = 'Display the help contents screen'
        OnClick = HelpContents
      end
      object HelpSearchItem: TMenuItem
        Caption = '&Search for Help On...'
        Hint = 'Search help file for a topic'
        OnClick = HelpSearch
      end
      object HelpHowToUseItem: TMenuItem
        Caption = '&How to Use Help'
        Hint = 'Help on using the help system'
        OnClick = HelpHowToUse
      end
      object N3: TMenuItem
        Caption = '-'
      end
      object HelpAboutItem: TMenuItem
        Caption = '&About...'
        Hint = 'Show program information'
        OnClick = HelpAbout
      end
    end
  end
  object OpenDialog: TOpenDialog
    Filter = '文本文件|Txt'
    Left = 230
    Top = 87
  end
  object SaveDialog: TSaveDialog
    Filter = '文本文件|Txt'
    Left = 204
    Top = 125
  end
  object PrintDialog: TPrintDialog
    Left = 262
    Top = 127
  end
  object PrintSetupDialog: TPrinterSetupDialog
    Left = 276
    Top = 93
  end
  object StatusLine: TStatusBar
    Align = alBottom
    Height = 23
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    ParentFont = False
    SimplePanel = True
  end
  object SpeedBar: TPanel
    Align = alTop
    Height = 33
    object SpeedButton1: TSpeedButton
      Left = 8
      Top = 4
      Width = 25
      Height = 25
      OnClick = FileNew
      Hint = 'New|'   
      NumGlyphs = 2
      Glyph.Data = {
06020000
424D060200000000000076000000280000002800000014000000010004000000
0000900100000000000000000000100000000000000000000000000080000080
00000080800080000000800080008080000080808000C0C0C0000000FF0000FF
000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033333333333333333333
3333333333F33333333333333333303333333333333F333337F3333333F33303
33333033333330333373F33337333333373333303333333333330333333733FF
FFFFFFFF733333333000000000033333333337777777777F3333333330FFFFFF
FF033333333337F33333337F3333333330FFFFFFFF033333333337F33333337F
3333333330FFFFFFFF033333333337F33333337F3333333330FFFFFFFF033333
333337F33333337F33FF333330FFFFFFFF03300333FF37F33333337F37733003
30FFFFFFFF033333377337F33333337F3333333330FFFFFFFF033333333337F3
3333FF7F3333333330FFFFF000033333333337F3333777733333333330FFFFF0
F0333333333337F33337F7333333333330FFFFF003333333333337FFFFF77333
3333333330000000333333333333F777777733333F3333303333333333330333
33373333333F333373F33303333333033333303333733333337F333337333333
3333330333333333333333333373333333333333333333333333333333333333
333333333333}
end
    object SpeedButton2: TSpeedButton
      Left = 32
      Top = 4
      Width = 25
      Height = 25
      OnClick = FileOpen
      Hint = 'Open|'   
      NumGlyphs = 2
      Glyph.Data = {
06020000
424D060200000000000076000000280000002800000014000000010004000000
0000900100000000000000000000100000000000000000000000000080000080
00000080800080000000800080008080000080808000C0C0C0000000FF0000FF
000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033333333333333333333
3333333333333333333333333333333333333333333333333333333333333333
33333333333333333333333333333333333333333333333333333333333FFFFF
FFFFFFFFF3333370000000000000333333777777777777773F3333008B8B8B8B
8B8B033333773F33333333337F33330F08B8B8B8B8B80333337F7F3333333333
73F3330B0B8B8B8B8B8B8033337F73F33333333337F3330FB0B8B8B8B8B8B033
337F37F333333333373F330BF08B8B8B8B8B8B03337F373FFFFF3333337F330F
BF000008B8B8B803337F33777773FFFFFF73330BFBFBFBF000000033337F3333
333777777733330FBFBFBFBFBFB03333337F333333333337F333330BFBFBFBFB
FBF03333337F33333FFFFFF73333330FBFBF0000000333333378FFFF77777773
3333333000003333333333333337777733333333333333333333333333333333
3333333333333333333333333333333333333333333333333333333333333333
3333333333333333333333333333333333333333333333333333333333333333
333333333333}
end
    object SpeedButton3: TSpeedButton
      Left = 56
      Top = 4
      Width = 25