unit1.dfm

delphi课程设计的内容,包括源代码,文本的设计,菜单的设计等.

object Form1: TForm1
  Left = 208
  Top = 112
  Width = 544
  Height = 375
  Caption = '无标题-记事本'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  OnCloseQuery = FormCloseQuery
  PixelsPerInch = 96
  TextHeight = 13
  object richedit1: TRichEdit
    Left = 0
    Top = 29
    Width = 536
    Height = 281
    Align = alClient
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
    ScrollBars = ssVertical
    TabOrder = 0
    WantTabs = True
    OnChange = richedit1Change
  end
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
    Width = 536
    Height = 29
    ButtonHeight = 36
    ButtonWidth = 33
    Caption = 'ToolBar1'
    Images = ImageList1
    ParentShowHint = False
    ShowHint = True
    TabOrder = 1
    object ToolButton1: TToolButton
      Left = 0
      Top = 2
      Hint = '新建'
      Caption = '新建'
      ImageIndex = 0
      ParentShowHint = False
      ShowHint = True
      OnClick = ToolButton1Click
    end
    object ToolButton2: TToolButton
      Left = 33
      Top = 2
      Hint = '保存'
      Caption = 'ToolButton2'
      ImageIndex = 1
      ParentShowHint = False
      ShowHint = True
      OnClick = ToolButton2Click
    end
    object ToolButton3: TToolButton
      Left = 66
      Top = 2
      Hint = '打开'
      Caption = 'ToolButton3'
      ImageIndex = 3
      OnClick = ToolButton3Click
    end
    object ToolButton4: TToolButton
      Left = 99
      Top = 2
      Hint = '粘贴'
      Caption = 'ToolButton4'
      ImageIndex = 4
      OnClick = ToolButton4Click
    end
    object ToolButton5: TToolButton
      Left = 132
      Top = 2
      Hint = '复制'
      Caption = 'ToolButton5'
      ImageIndex = 5
      OnClick = ToolButton5Click
    end
    object ToolButton6: TToolButton
      Left = 165
      Top = 2
      Hint = '剪切'
      Caption = 'ToolButton6'
      ImageIndex = 6
      OnClick = ToolButton6Click
    end
    object ToolButton7: TToolButton
      Left = 198
      Top = 2
      Hint = '查找'
      Action = Action_Find
      ImageIndex = 7
    end
    object ToolButton8: TToolButton
      Left = 231
      Top = 2
      Hint = '替换'
      Action = Action_Replace
      Caption = '替换(&R)...'
      ImageIndex = 10
    end
    object ToolButton9: TToolButton
      Left = 264
      Top = 2
      Hint = '字体'
      Caption = '字体'
      ImageIndex = 11
      ParentShowHint = False
      ShowHint = True
      OnClick = ToolButton9Click
    end
    object ToolButton10: TToolButton
      Left = 297
      Top = 2
      Hint = '背景'
      Caption = 'ToolButton10'
      ImageIndex = 9
      OnClick = ToolButton10Click
    end
    object ToolButton11: TToolButton
      Left = 330
      Top = 2
      Hint = '帮助'
      Caption = 'ToolButton11'
      ImageIndex = 2
      OnClick = ToolButton11Click
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 310
    Width = 536
    Height = 19
    Panels = <
      item
        Width = 150
      end
      item
        Text = 'welcome'
        Width = 150
      end
      item
        Width = 50
      end>
    SimplePanel = False
  end
  object MainMenu1: TMainMenu
    Left = 448
    Top = 272
    object F1: TMenuItem
      Caption = '文件(&F)'
      object N1: TMenuItem
        Caption = '新建(&N)'
        ImageIndex = 6
        ShortCut = 16462
        OnClick = N1Click
      end
      object O1: TMenuItem
        Caption = '打开(&O)'
        OnClick = O1Click
      end
      object S1: TMenuItem
        Caption = '保存(&S)'
        OnClick = S1Click
      end
      object A1: TMenuItem
        Caption = '另存为(&A)...'
        OnClick = A1Click
      end
      object N2: TMenuItem
        Caption = '-'
      end
      object X1: TMenuItem
        Caption = '退出(&X)'
        OnClick = X1Click
      end
    end
    object E1: TMenuItem
      Caption = '编辑(&E)'
      object T1: TMenuItem
        Action = Action_Cut
      end
      object C1: TMenuItem
        Action = Action_Copy
      end
      object P1: TMenuItem
        Action = Action_Paste
      end
      object N3: TMenuItem
        Caption = '-'
      end
      object F2: TMenuItem
        Action = Action_Find
      end
      object R1: TMenuItem
        Action = Action_Replace
      end
      object N4: TMenuItem
        Caption = '-'
      end
      object N5: TMenuItem
        Caption = '全选(&A)'
        OnClick = N5Click
      end
      object N7: TMenuItem
        Caption = '时间\日期'
        OnClick = N7Click
      end
    end
    object S2: TMenuItem
      Caption = '格式(&S)'
      object F3: TMenuItem
        Caption = '字体(&F)...'
        OnClick = F3Click
      end
      object N6: TMenuItem
        Caption = '背景(&B)...'
        OnClick = N6Click
      end
    end
    object h1: TMenuItem
      Caption = '帮助(&h)'
      object A2: TMenuItem
        Caption = '关于(&A)...'
        OnClick = A2Click
      end
    end
  end
  object ActionList1: TActionList
    Left = 480
    Top = 272
    object Action_Cut: TAction
      Category = 'edit'
      Caption = '剪切(&T)'
      ImageIndex = 0
      ShortCut = 16468
      OnExecute = Action_CutExecute
    end
    object Action_Copy: TAction
      Category = 'edit'
      Caption = '复制(&C)'
      ImageIndex = 1
      ShortCut = 16451
      OnExecute = Action_CopyExecute
    end
    object Action_Paste: TAction
      Category = 'edit'
      Caption = '粘贴(&P)'
      ImageIndex = 2
      ShortCut = 16464
      OnExecute = Action_PasteExecute
    end
    object Action_Find: TAction
      Category = 'search'
      Caption = '查找(&F)...'
      ImageIndex = 18
      ShortCut = 16454
      OnExecute = Action_FindExecute
      OnUpdate = Action_FindUpdate
    end
    object Action_Replace: TAction
      Category = 'search'
      Caption = '替换(&R)'
      ImageIndex = 20
      ShortCut = 16466
      OnExecute = Action_ReplaceExecute
    end
    object Action_filenew: TAction
      Category = 'file'
      Caption = '新建(&N)'
      ImageIndex = 6
      ShortCut = 16462
    end
  end
  object OpenDialog1: TOpenDialog
    Left = 336
    Top = 272
  end
  object SaveDialog1: TSaveDialog
    Left = 304
    Top = 272
  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 = 272
    Top = 272
  end
  object ColorDialog1: TColorDialog