unit1.dfm

记事本完美功能的源码

object Form1: TForm1
  Left = 261
  Top = 153
  Width = 616
  Height = 457
  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
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object SpeedButton1: TSpeedButton
    Left = 8
    Top = 72
    Width = 73
    Height = 49
    Hint = #26032#24314
    ParentShowHint = False
    ShowHint = True
    OnClick = SpeedButton1Click
  end
  object SpeedButton2: TSpeedButton
    Left = 80
    Top = 72
    Width = 73
    Height = 49
    Hint = #25171#24320
    ParentShowHint = False
    ShowHint = True
    OnClick = SpeedButton2Click
  end
  object SpeedButton3: TSpeedButton
    Left = 152
    Top = 72
    Width = 73
    Height = 49
    Hint = #20445#23384
    ParentShowHint = False
    ShowHint = True
    OnClick = SpeedButton3Click
  end
  object SpeedButton4: TSpeedButton
    Left = 224
    Top = 72
    Width = 73
    Height = 49
    Hint = #21098#20999
    ParentShowHint = False
    ShowHint = True
    OnClick = SpeedButton4Click
  end
  object SpeedButton5: TSpeedButton
    Left = 296
    Top = 72
    Width = 73
    Height = 49
    Hint = #22797#21046
    ParentShowHint = False
    ShowHint = True
    OnClick = SpeedButton5Click
  end
  object SpeedButton6: TSpeedButton
    Left = 368
    Top = 72
    Width = 81
    Height = 49
    Hint = #31896#36148
    ParentShowHint = False
    ShowHint = True
    OnClick = SpeedButton6Click
  end
  object SpeedButton7: TSpeedButton
    Left = 448
    Top = 72
    Width = 73
    Height = 49
    Hint = #23383#20307
    ParentShowHint = False
    ShowHint = True
    OnClick = SpeedButton7Click
  end
  object SpeedButton8: TSpeedButton
    Left = 520
    Top = 72
    Width = 73
    Height = 49
    Hint = #25171#21360
    ParentShowHint = False
    ShowHint = True
    OnClick = N10Click
  end
  object RichEdit1: TRichEdit
    Left = 80
    Top = 128
    Width = 433
    Height = 257
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    Lines.Strings = (
      'RichEdit1')
    ParentFont = False
    TabOrder = 0
  end
  object MainMenu1: TMainMenu
    Left = 32
    Top = 168
    object N1: TMenuItem
      Caption = #25991#20214
      object N5: TMenuItem
        Caption = #26032#24314
        OnClick = SpeedButton1Click
      end
      object N6: TMenuItem
        Caption = #25171#24320
        OnClick = SpeedButton2Click
      end
      object N7: TMenuItem
        Caption = #20445#23384
        OnClick = SpeedButton3Click
      end
      object N8: TMenuItem
        Caption = #25171#21360
        OnClick = N8Click
      end
      object N9: TMenuItem
        Caption = #36864#20986
        OnClick = N9Click
      end
    end
    object N2: TMenuItem
      Caption = #32534#36753
      object N11: TMenuItem
        Caption = #25764#38144
        OnClick = N11Click
      end
      object N14: TMenuItem
        Caption = #21098#20999
        OnClick = SpeedButton4Click
      end
      object N12: TMenuItem
        Caption = #22797#21046
        OnClick = SpeedButton5Click
      end
      object N13: TMenuItem
        Caption = #31896#36148
        OnClick = SpeedButton6Click
      end
    end
    object N3: TMenuItem
      Caption = #26684#24335
      object N16: TMenuItem
        Caption = #23383#20307
        OnClick = SpeedButton7Click
      end
      object N10: TMenuItem
        Caption = #39068#33394
        OnClick = N10Click
      end
    end
    object N4: TMenuItem
      Caption = #24110#21161
      object N17: TMenuItem
        Caption = #20851#20110
      end
    end
  end
  object OpenDialog1: TOpenDialog
    Left = 104
    Top = 120
  end
  object SaveDialog1: TSaveDialog
    Left = 168
    Top = 120
  end
  object FontDialog1: TFontDialog
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    Left = 464
    Top = 120
  end
  object PrintDialog1: TPrintDialog
    Left = 24
    Top = 224
  end
  object ColorDialog1: TColorDialog
    Left = 544
    Top = 120
  end
end