editfm.dfm

这是一个文本编辑器源码,是用delphi7.0编写的程序,功能强大,希望大家喜欢.

object EditForm: TEditForm
  Left = 214
  Top = 105
  Width = 400
  Height = 300
  Caption = #26080#26631#39064
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Editor: TRichEdit
    Left = 0
    Top = 0
    Width = 392
    Height = 226
    Align = alClient
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = #23435#20307
    Font.Style = []
    HideScrollBars = False
    ParentFont = False
    PopupMenu = PopupMenu1
    ScrollBars = ssVertical
    TabOrder = 0
    OnChange = EditorChange
  end
  object StatusBar: TStatusBar
    Left = 0
    Top = 226
    Width = 392
    Height = 19
    Panels = <
      item
        Text = #25991#26412#32534#36753#22120'1.0'
        Width = 100
      end
      item
        Width = 50
      end>
  end
  object MainMenu1: TMainMenu
    Left = 24
    Top = 152
    object MIFile: TMenuItem
      Caption = #25991#20214'(&F)'
      object MINew: TMenuItem
        Caption = #26032#24314'(&N)'
        OnClick = MINewClick
      end
      object MIOpen: TMenuItem
        Caption = #25171#24320'(&O)'
        OnClick = MIOpenClick
      end
      object MISave: TMenuItem
        Caption = #20445#23384'(&S)'
        OnClick = MISaveClick
      end
      object MISaveAs: TMenuItem
        Caption = #21478#23384#20026'(&A)'
        OnClick = MISaveAsClick
      end
      object N2: TMenuItem
        Caption = '-'
      end
      object MIExit: TMenuItem
        Caption = #36864#20986'(&X)'
        OnClick = MIExitClick
      end
    end
    object MIEdit: TMenuItem
      Caption = #32534#36753'(&E)'
      object U1: TMenuItem
        Caption = #25764#38144'(&U)'
        OnClick = U1Click
      end
      object N3: TMenuItem
        Caption = '-'
      end
      object T1: TMenuItem
        Caption = #21098#20999'(&T)'
        OnClick = T1Click
      end
      object C2: TMenuItem
        Caption = #22797#21046'(&C)'
        OnClick = C2Click
      end
      object P2: TMenuItem
        Caption = #31896#36148'(&P)'
        OnClick = P2Click
      end
      object D1: TMenuItem
        Caption = #21024#38500'(&D)'
        OnClick = D1Click
      end
      object N4: TMenuItem
        Caption = #20840#36873'(&A)'
        OnClick = N4Click
      end
    end
    object MICharacter: TMenuItem
      Caption = #26684#24335'(&C)'
      object W1: TMenuItem
        Caption = #33258#21160#25442#34892'(&W)'
        Checked = True
        OnClick = W1Click
      end
      object N7: TMenuItem
        Caption = '-'
      end
      object F2: TMenuItem
        Caption = #23383#20307'(&F)'
        OnClick = F2Click
      end
    end
    object MIHelp: TMenuItem
      Caption = #24110#21161'(&H)'
      object N8: TMenuItem
        Caption = #20851#20110
        OnClick = N8Click
      end
    end
  end
  object PopupMenu1: TPopupMenu
    Left = 72
    Top = 152
    object U2: TMenuItem
      Caption = #25764#38144'(&U)'
      OnClick = U1Click
    end
    object R3: TMenuItem
      Caption = #37325#20570'(&R)'
    end
    object N9: TMenuItem
      Caption = '-'
    end
    object T2: TMenuItem
      Caption = #21098#20999'(&T)'
      OnClick = T1Click
    end
    object C4: TMenuItem
      Caption = #22797#21046'(&C)'
      OnClick = C2Click
    end
    object P3: TMenuItem
      Caption = #31896#36148'(&P)'
      OnClick = P2Click
    end
    object D2: TMenuItem
      Caption = #21024#38500'(&D)'
      OnClick = D1Click
    end
    object A2: TMenuItem
      Caption = #20840#36873'(&A)'
      OnClick = N4Click
    end
    object N10: TMenuItem
      Caption = '-'
    end
    object F3: TMenuItem
      Caption = #26597#25214'(&F)'
    end
    object L3: TMenuItem
      Caption = #26367#25442'(&L)'
    end
  end
  object DgOpen: TOpenDialog
    Left = 120
    Top = 152
  end
  object DgFont: TFontDialog
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    Left = 296
    Top = 152
  end
  object DgSave: TSaveDialog
    Filter = #25991#26412#25991#20214'(*.txt)|*.txt|RTF'#25991#20214'(*.rtf)|*.rtf|'#25152#26377#25991#20214'|*.*'
    Options = [ofHideReadOnly, ofFileMustExist, ofNoReadOnlyReturn]
    Left = 160
    Top = 152
  end
end