mdiunit.dfm

一个文本编辑器

object MdiForm: TMdiForm
  Left = 266
  Top = 303
  Width = 517
  Height = 350
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIChild
  Menu = MainMenu1
  OldCreateOrder = False
  Position = poDefault
  Visible = True
  WindowState = wsMaximized
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object RichEdit1: TRichEdit
    Left = 0
    Top = 0
    Width = 509
    Height = 296
    Align = alClient
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    PopupMenu = PopupMenu1
    ScrollBars = ssBoth
    TabOrder = 0
    OnSelectionChange = RichEdit1SelectionChange
  end
  object MainMenu1: TMainMenu
    Left = 112
    Top = 80
    object EditN: TMenuItem
      Caption = #32534#36753'(&E)'
      GroupIndex = 1
      object N1: TMenuItem
        Action = EditUndo1
      end
      object N2: TMenuItem
        Caption = '-'
      end
      object T1: TMenuItem
        Action = EditCut1
      end
      object C1: TMenuItem
        Action = EditCopy1
      end
      object V1: TMenuItem
        Action = EditPaste1
      end
      object D1: TMenuItem
        Action = EditDelete1
      end
      object N3: TMenuItem
        Caption = '-'
      end
      object Find1: TMenuItem
        Caption = #26597#25214'(&F)...'
        Hint = 'Find|Finds the specified text'
        ImageIndex = 34
        ShortCut = 16454
        OnClick = Find1Click
      end
      object N4: TMenuItem
        Caption = #26597#25214#19979#19968#20010'(&N)'
        Hint = 'Find Next|Repeats the last find'
        ImageIndex = 33
        ShortCut = 114
        OnClick = FindDialog1Find
      end
      object ReplaceN: TMenuItem
        Caption = #26367#25442'(&R)...'
        Hint = 'Replace|Replaces specific text with different text'
        ImageIndex = 32
        ShortCut = 16466
        OnClick = ReplaceNClick
      end
      object N5: TMenuItem
        Caption = '-'
      end
      object A1: TMenuItem
        Action = EditSelectAll1
      end
    end
    object N6: TMenuItem
      Caption = #26597#30475
      GroupIndex = 2
      object NewLineN: TMenuItem
        Caption = #33258#21160#25442#34892'(&W)'
        Checked = True
        OnClick = NewLineNClick
      end
      object FontN: TMenuItem
        Caption = #23383#20307'(&F)...'
        OnClick = FontNClick
      end
      object ColorN: TMenuItem
        Caption = #39068#33394'(&C)...'
        OnClick = ColorNClick
      end
    end
  end
  object ActionList1: TActionList
    Left = 152
    Top = 80
    object WindowClose1: TWindowClose
      Category = 'Window'
      Caption = #20851#38381
      Enabled = False
      Hint = 'Close'
    end
    object WindowCloseAll1: TWindowCascade
      Category = 'Window'
      Caption = #20851#38381#25152#26377
      Enabled = False
      Hint = 'Close All'
      ImageIndex = 17
    end
    object WindowCascade1: TWindowCascade
      Category = 'Window'
      Caption = #23618#21472
      Enabled = False
      Hint = 'Cascade'
      ImageIndex = 17
    end
    object WindowTileHorizontal1: TWindowTileHorizontal
      Category = 'Window'
      Caption = #27700#24179#25490#21015
      Enabled = False
      Hint = 'Tile Horizontal'
      ImageIndex = 15
    end
    object WindowTileVertical1: TWindowTileVertical
      Category = 'Window'
      Caption = #22402#30452#24182#25490
      Enabled = False
      Hint = 'Tile Vertical'
      ImageIndex = 16
    end
    object WindowMinimizeAll1: TWindowMinimizeAll
      Category = 'Window'
      Caption = #20840#37096#26368#23567#21270
      Enabled = False
      Hint = 'Minimize All'
    end
    object WindowArrange1: TWindowArrange
      Category = 'Window'
      Caption = #37325#25490
      Enabled = False
    end
    object FileOpen1: TFileOpen
      Category = 'File'
      Caption = #25171#24320'(&O)'
      Hint = 'Open|Opens an existing file'
      ImageIndex = 7
      ShortCut = 16463
    end
    object FileSaveAs1: TFileSaveAs
      Category = 'File'
      Caption = #21478#23384#20026'(&A)...'
      Hint = 'Save As|Saves the active file with a new name'
      ImageIndex = 30
    end
    object FilePrintSetup1: TFilePrintSetup
      Category = 'File'
      Caption = #25171#21360#35774#32622'(&U)...'
      Hint = 'Print Setup'
    end
    object FileExit1: TFileExit
      Category = 'File'
      Caption = #36864#20986'(&E)'
      Hint = 'Exit|Quits the application'
      ImageIndex = 43
    end
    object EditCut1: TEditCut
      Category = 'Edit'
      Caption = #21098#20999'(&T)'
      Hint = 'Cut|Cuts the selection and puts it on the Clipboard'
      ImageIndex = 0
      ShortCut = 16472
    end
    object EditCopy1: TEditCopy
      Category = 'Edit'
      Caption = #22797#21046'(&C)'
      Hint = 'Copy|Copies the selection and puts it on the Clipboard'
      ImageIndex = 1
      ShortCut = 16451
    end
    object EditPaste1: TEditPaste
      Category = 'Edit'
      Caption = #31896#36148'(&V)'
      Hint = 'Paste|Inserts Clipboard contents'
      ImageIndex = 2
      ShortCut = 16470
    end
    object EditSelectAll1: TEditSelectAll
      Category = 'Edit'
      Caption = #20840#36873'(&A)'
      Hint = 'Select All|Selects the entire document'
      ShortCut = 16449
    end
    object EditUndo1: TEditUndo
      Category = 'Edit'
      Caption = #25764#28040'(&U)'
      Hint = 'Undo|Reverts the last action'
      ImageIndex = 3
      ShortCut = 16474
    end
    object EditDelete1: TEditDelete
      Category = 'Edit'
      Caption = #21024#38500'(&D)'
      Hint = 'Delete|Erases the selection'
      ImageIndex = 5
      ShortCut = 46
    end
    object RichEditBold1: TRichEditBold
      Category = 'Format'
      AutoCheck = True
      Caption = #31895#20307'(&B)'
      Hint = 'Bold'
      ImageIndex = 31
      ShortCut = 16450
    end
    object RichEditItalic1: TRichEditItalic
      Category = 'Format'
      AutoCheck = True
      Caption = #26012#20307'(&I)'
      Hint = 'Italic'
      ImageIndex = 29
      ShortCut = 16457
    end
    object RichEditUnderline1: TRichEditUnderline
      Category = 'Format'
      AutoCheck = True
      Caption = #19979#21010#32447'(&U)'
      Hint = 'Underline'
      ImageIndex = 28
      ShortCut = 16469
    end
    object RichEditAlignLeft1: TRichEditAlignLeft
      Category = 'Format'
      AutoCheck = True
      Caption = #38752#24038'(&L)'
      Hint = 'Align Left|Aligns text at the left indent'
      ImageIndex = 35
    end
    object RichEditAlignRight1: TRichEditAlignRight
      Category = 'Format'
      AutoCheck = True
      Caption = #38752#21491'(&R)'
      Hint = 'Align Right|Aligns text at the right indent'
      ImageIndex = 36
    end
    object RichEditAlignCenter1: TRichEditAlignCenter
      Category = 'Format'
      AutoCheck = True
      Caption = #23621#20013'(&C)'
      Hint = 'Center|Centers text between margins'
      ImageIndex = 37
    end
    object SearchFind1: TSearchFind
      Category = 'Search'
      Caption = #26597#25214'(&F)...'
      Hint = 'Find|Finds the specified text'
      ImageIndex = 34
      ShortCut = 16454
    end
    object SearchFindNext1: TSearchFindNext
      Category = 'Search'
      Caption = #26597#25214#19979#19968#20010'(&N)'
      Hint = 'Find Next|Repeats the last find'
      ImageIndex = 33
      ShortCut = 114
    end
    object SearchReplace1: TSearchReplace
      Category = 'Search'
      Caption = #26367#25442'(&R)...'
      Hint = 'Replace|Replaces specific text with different text'
      ImageIndex = 32
    end
  end
  object ReplaceDialog1: TReplaceDialog
    OnFind = ReplaceDialog1Find
    OnReplace = ReplaceDialog1Replace
    Left = 232
    Top = 80
  end
  object FindDialog1: TFindDialog
    FindText = 'etu'
    Options = [frDown, frShowHelp]
    OnFind = FindDialog1Find
    Left = 192
    Top = 80
  end
  object ColorDialog1: TColorDialog
    Ctl3D = True
    Left = 272
    Top = 80
  end
  object FontDialog1: TFontDialog
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    MinFontSize = 0
    MaxFontSize = 0
    Left = 312
    Top = 80
  end
  object PopupMenu1: TPopupMenu
    Left = 72
    Top = 80
    object U1: TMenuItem
      Action = EditUndo1
    end
    object N7: TMenuItem
      Caption = '-'
    end
    object T2: TMenuItem
      Action = EditCut1
    end
    object C2: TMenuItem
      Action = EditCopy1
    end
    object V2: TMenuItem
      Action = EditPaste1
    end
    object D2: TMenuItem
      Action = EditDelete1
    end
    object N8: TMenuItem
      Caption = '-'
    end
    object F1: TMenuItem
      Caption = #26597#25214'(&F)...'
      Hint = 'Find|Finds the specified text'
      ImageIndex = 34
      ShortCut = 16454
      OnClick = Find1Click
    end
    object N9: TMenuItem
      Caption = #26597#25214#19979#19968#20010'(&N)'
      Hint = 'Find Next|Repeats the last find'
      ImageIndex = 33
      ShortCut = 114
      OnClick = FindDialog1Find
    end
    object ReplacePN: TMenuItem
      Caption = #26367#25442'(&R)...'
      Hint = 'Replace|Replaces specific text with different text'
      ImageIndex = 32
      ShortCut = 16466
      OnClick = ReplaceNClick
    end
    object N10: TMenuItem
      Caption = '-'
    end
    object A2: TMenuItem
      Action = EditSelectAll1
    end
  end
end