unit1.dfm

我的记事本

object Form1: TForm1
  Left = 218
  Top = 159
  Width = 705
  Height = 481
  ActiveControl = RichEdit1
  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
  OnClose = FormClose
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
    Width = 697
    Height = 29
    Caption = 'ToolBar1'
    Flat = True
    Images = ImageList1
    TabOrder = 0
    object ToolButton1: TToolButton
      Left = 0
      Top = 0
      Action = new
      ImageIndex = 0
    end
    object ToolButton2: TToolButton
      Left = 23
      Top = 0
      Action = open
      ImageIndex = 1
    end
    object ToolButton3: TToolButton
      Left = 46
      Top = 0
      Action = save
      ImageIndex = 4
    end
    object ToolButton4: TToolButton
      Left = 69
      Top = 0
      Action = print
      ImageIndex = 6
    end
    object ToolButton5: TToolButton
      Left = 92
      Top = 0
      Width = 13
      Caption = 'ToolButton5'
      ImageIndex = 4
      Style = tbsDivider
    end
    object ToolButton6: TToolButton
      Left = 105
      Top = 0
      Action = undo
      ImageIndex = 7
    end
    object ToolButton7: TToolButton
      Left = 128
      Top = 0
      Action = cut
      ImageIndex = 10
    end
    object ToolButton8: TToolButton
      Left = 151
      Top = 0
      Action = copy
      ImageIndex = 3
    end
    object ToolButton9: TToolButton
      Left = 174
      Top = 0
      Action = paste
      ImageIndex = 2
    end
    object ToolButton10: TToolButton
      Left = 197
      Top = 0
      Width = 12
      Caption = 'ToolButton10'
      ImageIndex = 3
      Style = tbsDivider
    end
    object ToolButton12: TToolButton
      Left = 209
      Top = 0
      Caption = 'ToolButton12'
      ImageIndex = 8
      Style = tbsCheck
      OnClick = ToolButton12Click
    end
    object ToolButton13: TToolButton
      Left = 232
      Top = 0
      Caption = 'ToolButton13'
      ImageIndex = 9
      Style = tbsCheck
      OnClick = ToolButton13Click
    end
    object ToolButton14: TToolButton
      Left = 255
      Top = 0
      Caption = 'ToolButton14'
      ImageIndex = 5
      Style = tbsCheck
      OnClick = ToolButton14Click
    end
    object ToolButton15: TToolButton
      Left = 278
      Top = 0
      Width = 11
      Caption = 'ToolButton15'
      ImageIndex = 8
      Style = tbsDivider
    end
    object ToolButton16: TToolButton
      Left = 289
      Top = 0
      Caption = 'ToolButton16'
      Grouped = True
      ImageIndex = 11
      Style = tbsCheck
      OnClick = ToolButton16Click
    end
    object ToolButton17: TToolButton
      Tag = 2
      Left = 312
      Top = 0
      Caption = 'ToolButton17'
      Grouped = True
      ImageIndex = 13
      Style = tbsCheck
      OnClick = ToolButton17Click
    end
    object ToolButton18: TToolButton
      Tag = 1
      Left = 335
      Top = 0
      Caption = 'ToolButton18'
      Grouped = True
      ImageIndex = 14
      Style = tbsCheck
      OnClick = ToolButton18Click
    end
    object ToolButton19: TToolButton
      Left = 358
      Top = 0
      Width = 13
      Caption = 'ToolButton19'
      ImageIndex = 12
      Style = tbsDivider
    end
    object ToolButton20: TToolButton
      Left = 371
      Top = 0
      Caption = 'ToolButton20'
      ImageIndex = 12
      Style = tbsCheck
      OnClick = ToolButton20Click
    end
  end
  object RichEdit1: TRichEdit
    Left = 0
    Top = 57
    Width = 697
    Height = 343
    Align = alClient
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    Lines.Strings = (
      'RichEdit1')
    ParentFont = False
    PopupMenu = PopupMenu1
    ScrollBars = ssBoth
    TabOrder = 1
    WordWrap = False
    OnSelectionChange = RichEdit1SelectionChange
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 400
    Width = 697
    Height = 27
    Panels = <
      item
        Width = 100
      end
      item
        Width = 100
      end
      item
        Width = 50
      end>
  end
  object ToolBar2: TToolBar
    Left = 0
    Top = 29
    Width = 697
    Height = 28
    ButtonHeight = 21
    Caption = 'ToolBar2'
    TabOrder = 3
    object ComboBox1: TComboBox
      Left = 0
      Top = 2
      Width = 145
      Height = 21
      Hint = 'Font Name|Select font name'
      ItemHeight = 13
      TabOrder = 0
      OnChange = ComboBox1Change
    end
    object Edit1: TEdit
      Left = 145
      Top = 2
      Width = 72
      Height = 21
      TabOrder = 1
      Text = '0'
      OnChange = Edit1Change
    end
    object UpDown1: TUpDown
      Left = 217
      Top = 2
      Width = 16
      Height = 21
      Associate = Edit1
      TabOrder = 2
    end
  end
  object MainMenu1: TMainMenu
    Images = ImageList1
    Left = 8
    Top = 64
    object F1: TMenuItem
      Caption = #25991#20214'(&F)'
      ImageIndex = 0
      object N1: TMenuItem
        Action = new
        Caption = #26032#24314'(&N)'
        ImageIndex = 0
        ShortCut = 16462
      end
      object O1: TMenuItem
        Action = open
        Caption = #25171#24320'(&O)'
        ImageIndex = 1
        ShortCut = 16463
      end
      object N2: TMenuItem
        Action = save
        Caption = #20445#23384'(&S)'
        ImageIndex = 4
        ShortCut = 16467
      end
      object N3: TMenuItem
        Caption = #21478#23384#20026'(&A)'
        OnClick = N3Click
      end
      object N4: TMenuItem
        Caption = '-'
      end
      object P1: TMenuItem
        Action = print
        Caption = #25171#21360'(&P)'
        ImageIndex = 6
        ShortCut = 16464
      end
      object X1: TMenuItem
        Action = endf
        Caption = #36864#20986'(&X)'
      end
    end
    object N5: TMenuItem
      Caption = #32534#36753'(&E)'
      SubMenuImages = ImageList1
      object N6: TMenuItem