xie.dfm

利用Delphi制作的一个简单的文档编辑器。由于我是初学者

object Form1: TForm1
  Left = 194
  Top = 102
  Width = 451
  Height = 349
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  PopupMenu = PopupMenu1
  PixelsPerInch = 96
  TextHeight = 13
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
    Width = 443
    Height = 41
    Caption = 'ToolBar1'
    TabOrder = 0
  end
  object Editor: TRichEdit
    Left = 0
    Top = 41
    Width = 443
    Height = 254
    Align = alClient
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    Lines.Strings = (
      '')
    ParentFont = False
    PopupMenu = PopupMenu1
    TabOrder = 1
  end
  object MainMenu1: TMainMenu
    Left = 16
    Top = 264
    object F1: TMenuItem
      Caption = #25991#20214'(&F)'
      object N1: TMenuItem
        Caption = #26032#24314'(&N)'
        ShortCut = 16462
        OnClick = N1Click
      end
      object O1: TMenuItem
        Caption = #25171#24320'(&O)'
        ShortCut = 16463
        OnClick = O1Click
      end
      object S1: TMenuItem
        Caption = #20445#23384'(&S)'
        ShortCut = 16467
        OnClick = S1Click
      end
      object A1: TMenuItem
        Caption = #21478#23384#20026'(&A)'
        ShortCut = 16449
        OnClick = A1Click
      end
      object N2: TMenuItem
        Caption = '-'
      end
      object N15: TMenuItem
        Caption = #39029#38754#35774#32622'(&U)'
        ShortCut = 16469
        OnClick = N15Click
      end
      object P1: TMenuItem
        Caption = #25171#21360'(&P)'
        ShortCut = 16464
        OnClick = P1Click
      end
      object N3: TMenuItem
        Caption = '-'
      end
      object X1: TMenuItem
        Caption = #36864#20986'(&X)'
        ShortCut = 16472
        OnClick = X1Click
      end
    end
    object E1: TMenuItem
      Caption = #32534#36753'(&E)'
      ShortCut = 16469
      object U1: TMenuItem
        Caption = #25764#38144'(&U)'
        ShortCut = 16469
        OnClick = U1Click
      end
      object N4: TMenuItem
        Caption = '-'
      end
      object X2: TMenuItem
        Caption = #22797#21046'(&C)'
        ShortCut = 16451
        OnClick = X2Click
      end
      object X3: TMenuItem
        Caption = #21098#20999'(&X)'
        ShortCut = 16472
        OnClick = X3Click
      end
      object V1: TMenuItem
        Caption = #31896#36148'(&V)'
        ShortCut = 16470
        OnClick = V1Click
      end
      object D1: TMenuItem
        Caption = #21024#38500'(&D)'
        ShortCut = 16452
        OnClick = D1Click
      end
      object N5: TMenuItem
        Caption = '-'
      end
      object F2: TMenuItem
        Caption = #26597#25214'(&F)'
        ShortCut = 16454
        OnClick = F2Click
      end
      object R1: TMenuItem
        Caption = #26367#25442'(&R)'
        ShortCut = 16466
        OnClick = R1Click
      end
      object N6: TMenuItem
        Caption = '-'
      end
      object S2: TMenuItem
        Caption = #20840#36873'(&S)'
        ShortCut = 16467
        OnClick = S2Click
      end
    end
    object O2: TMenuItem
      Caption = #26684#24335'(&O)'
      ShortCut = 16454
      object F3: TMenuItem
        Caption = #23383#20307#35774#32622'(&F)'
        ShortCut = 16454
        OnClick = F3Click
      end
      object A2: TMenuItem
        Caption = #23545#40784#26041#24335'(&A)'
        ShortCut = 16449
        object N7: TMenuItem
          Caption = #20004#31471#23545#40784
          GroupIndex = 4
          RadioItem = True
        end
        object N8: TMenuItem
          Caption = #24038#23545#40784
          GroupIndex = 4
          RadioItem = True
        end
        object N9: TMenuItem
          Caption = #21491#23545#40784
          GroupIndex = 4
          RadioItem = True
        end
        object N10: TMenuItem
          Caption = #23621#20013
          GroupIndex = 4
          RadioItem = True
        end
      end
    end
    object H1: TMenuItem
      Caption = #24110#21161'(&H)'
      object F4: TMenuItem
        Caption = #24110#21161#20027#39064'(&F)'
        ShortCut = 16454
      end
      object A3: TMenuItem
        Caption = #20851#20110'(&A)'
        ShortCut = 16449
      end
    end
  end
  object PopupMenu1: TPopupMenu
    Left = 64
    Top = 264
    object N11: TMenuItem
      Caption = #25764#38144
      GroupIndex = 4
      RadioItem = True
      OnClick = N11Click
    end
    object N12: TMenuItem
      Caption = '-'
      GroupIndex = 4
      RadioItem = True
    end
    object N13: TMenuItem
      Caption = #22797#21046
      GroupIndex = 4
      RadioItem = True
      OnClick = N13Click
    end
    object N16: TMenuItem
      Caption = #21098#20999
      GroupIndex = 4
      OnClick = N16Click
    end
    object N14: TMenuItem
      Caption = #31896#36148
      GroupIndex = 4
      RadioItem = True
      OnClick = N14Click
    end
  end
  object OpenDialog1: TOpenDialog
    Filter = 'Text File(*.Txt)|*.Txt|Batch File.(*.Bat)|*.Bat'
    InitialDir = 'd:\'
    Left = 112
    Top = 264
  end
  object SaveDialog1: TSaveDialog
    Left = 160
    Top = 264
  end
  object PrintDialog1: TPrintDialog
    Left = 208
    Top = 264
  end
  object FindDialog1: TFindDialog
    Left = 256
    Top = 264
  end
  object ReplaceDialog1: TReplaceDialog
    FindText = 'hkhk'
    Left = 304
    Top = 264
  end
  object FontDialog1: TFontDialog
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    Left = 352
    Top = 264
  end
  object PrinterSetupDialog1: TPrinterSetupDialog
    Left = 400
    Top = 264
  end
end