unit1.~dfm

文本编辑器,虽然功能比较简单,但是还是希望能够给初学者一些帮助.

object Form1: TForm1
  Left = 412
  Top = 222
  Width = 544
  Height = 375
  Caption = #25991#26412#32534#36753#22120
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object StatusBar1: TStatusBar
    Left = 0
    Top = 302
    Width = 536
    Height = 19
    Panels = <
      item
        Text = #23601#32490
        Width = 50
      end
      item
        Text = '0305102242  '#35874#26032#37995
        Width = 50
      end>
    ParentShowHint = False
    ShowHint = False
  end
  object Memo1: TMemo
    Left = 0
    Top = 0
    Width = 536
    Height = 302
    Align = alClient
    ScrollBars = ssBoth
    TabOrder = 1
  end
  object MainMenu1: TMainMenu
    Left = 40
    Top = 216
    object filen1: TMenuItem
      Caption = #25991#20214'(&F)'
      object filenew: TMenuItem
        Caption = #26032#24314
        ShortCut = 16462
        OnClick = filenewClick
      end
      object fileopen: TMenuItem
        Caption = #25171#24320
        ShortCut = 16463
        OnClick = fileopenClick
      end
      object filesave: TMenuItem
        Caption = #20445#23384
        ShortCut = 16467
        OnClick = filesaveClick
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object fileexit: TMenuItem
        Caption = #36864#20986
        ShortCut = 16453
        OnClick = fileexitClick
      end
    end
    object editn2: TMenuItem
      Caption = #32534#36753'(&E)'
      object editcut: TMenuItem
        Caption = #21098#20999
        ShortCut = 16472
        OnClick = editcutClick
      end
      object editcopy: TMenuItem
        Caption = #22797#21046
        ShortCut = 16451
        OnClick = editcopyClick
      end
      object editpaste: TMenuItem
        Caption = #31896#36148
        ShortCut = 16470
        OnClick = editpasteClick
      end
      object N2: TMenuItem
        Caption = '-'
      end
      object auto1: TMenuItem
        Caption = #33258#21160#25442#34892
        ShortCut = 16460
        OnClick = auto1Click
      end
      object selectall1: TMenuItem
        Caption = #20840#36873
        ShortCut = 16449
        OnClick = selectall1Click
      end
    end
    object formatn3: TMenuItem
      Caption = #26684#24335'(&O)'
      object align: TMenuItem
        Caption = #23545#40784'(&M)'
        object leftalign: TMenuItem
          Caption = #24038#23545#40784'(&L)'
          OnClick = leftalignClick
        end
        object centeralign: TMenuItem
          Caption = #23621#20013'(&C)'
          OnClick = centeralignClick
        end
        object rightalign: TMenuItem
          Caption = #21491#23545#40784'(&R)'
          OnClick = rightalignClick
        end
      end
      object font1: TMenuItem
        Caption = #23383#20307'(&W)'
        object bold1: TMenuItem
          Caption = #21152#31895'(&B)'
          OnClick = bold1Click
        end
        object italic: TMenuItem
          Caption = #20542#26012'(&I)'
          OnClick = italicClick
        end
        object underline1: TMenuItem
          Caption = #19979#21010#32447'(&H)'
          OnClick = underline1Click
        end
        object color1: TMenuItem
          Caption = #39068#33394'(&C)'
          OnClick = color1Click
        end
      end
      object N3: TMenuItem
        Caption = '-'
      end
      object background: TMenuItem
        Caption = #32972#26223'(&B)'
        OnClick = backgroundClick
      end
    end
    object helpn4: TMenuItem
      Caption = #24110#21161'(&H)'
      object aboutnotebook: TMenuItem
        Caption = #24110#21161#20027#39064
        OnClick = aboutnotebookClick
      end
    end
  end
  object ColorDialog1: TColorDialog
    Left = 104
    Top = 216
  end
  object FontDialog1: TFontDialog
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    Left = 176
    Top = 216
  end
  object OpenDialog1: TOpenDialog
    Filter = #25991#26412#25991#20214'(*.txt)|*.txt'
    Left = 248
    Top = 216
  end
  object SaveDialog1: TSaveDialog
    FileName = '*.txt'
    Filter = #25991#26412#25991#20214#65288'*.txt'#65289'|*.txt'
    Left = 312
    Top = 216
  end
end