unit1.dfm

记事本界面程序

object Form1: TForm1
  Left = 214
  Top = 153
  Width = 696
  Height = 480
  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
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object RichEdit1: TRichEdit
    Left = 0
    Top = 58
    Width = 688
    Height = 350
    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
    TabOrder = 0
    OnChange = RichEdit1Change
    OnSelectionChange = RichEdit1SelectionChange
  end
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
    Width = 688
    Height = 29
    Caption = 'ToolBar1'
    Images = ImageList1
    TabOrder = 1
    object ToolButton17: TToolButton
      Left = 0
      Top = 2
      Caption = '&new'
      ImageIndex = 18
    end
    object ToolButton1: TToolButton
      Left = 23
      Top = 2
      Action = FileOpen1
      ImageIndex = 0
    end
    object ToolButton2: TToolButton
      Left = 46
      Top = 2
      Action = FileSaveAs1
      ImageIndex = 1
    end
    object ToolButton3: TToolButton
      Left = 69
      Top = 2
      Action = PrintDlg1
      ImageIndex = 2
    end
    object ToolButton4: TToolButton
      Left = 92
      Top = 2
      Action = FileExit1
      ImageIndex = 3
    end
    object ToolButton5: TToolButton
      Left = 115
      Top = 2
      Width = 8
      Caption = 'ToolButton5'
      ImageIndex = 4
      Style = tbsSeparator
    end
    object ToolButton6: TToolButton
      Left = 123
      Top = 2
      Action = EditCut1
      ImageIndex = 4
    end
    object ToolButton7: TToolButton
      Left = 146
      Top = 2
      Action = EditCopy1
      ImageIndex = 5
    end
    object ToolButton8: TToolButton
      Left = 169
      Top = 2
      Action = EditPaste1
      ImageIndex = 6
    end
    object ToolButton9: TToolButton
      Left = 192
      Top = 2
      Width = 8
      Caption = 'ToolButton9'
      ImageIndex = 7
      Style = tbsSeparator
    end
    object ToolButton10: TToolButton
      Left = 200
      Top = 2
      Action = EditUndo1
    end
    object ToolButton11: TToolButton
      Left = 223
      Top = 2
      Action = EditDelete1
    end
  end
  object ToolBar2: TToolBar
    Left = 0
    Top = 29
    Width = 688
    Height = 29
    Caption = 'ToolBar2'
    Images = ImageList1
    TabOrder = 2
    object ToolButton12: TToolButton
      Left = 0
      Top = 2
      Action = RichEditBold1
    end
    object ToolButton13: TToolButton
      Left = 23
      Top = 2
      Action = RichEditItalic1
    end
    object ToolButton14: TToolButton
      Left = 46
      Top = 2
      Action = RichEditUnderline1
    end
    object ToolButton15: TToolButton
      Left = 69
      Top = 2
      Caption = 'ToolButton15'
      DropdownMenu = PopupMenu2
      ImageIndex = 12
      Style = tbsDropDown
    end
    object ToolButton16: TToolButton
      Left = 105
      Top = 2
      Action = Usercolor1
    end
    object ComboBox1: TComboBox
      Left = 128
      Top = 2
      Width = 145
      Height = 21
      ItemHeight = 13
      TabOrder = 0
      Text = 'ComboBox1'
      OnChange = ComboBox1Change
    end
    object SpinEdit1: TSpinEdit
      Left = 273
      Top = 2
      Width = 121
      Height = 22
      MaxValue = 0
      MinValue = 0
      TabOrder = 1
      Value = 0
      OnChange = SpinEdit1Change
    end
  end
  object ColorGrid1: TColorGrid
    Left = 488
    Top = 152
    Width = 100
    Height = 100
    TabOrder = 3
    Visible = False
    OnChange = ColorGrid1Change
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 408
    Width = 688
    Height = 26
    Panels = <
      item
        Text = #20301#32622
        Width = 100
      end
      item
        Text = #29366#24577
        Width = 80
      end
      item
        Text = #26085#26399#21644#26102#38388
        Width = 150
      end
      item
        Text = #25991#20214#21517
        Width = 200
      end>
  end
  object MainMenu1: TMainMenu
    Images = ImageList1
    Left = 128
    Top = 136
    object File1: TMenuItem
      Caption = #25991#20214#65288'&F'#65289
      object New1: TMenuItem
        Caption = #26032#24314#65288'&N'#65289
        OnClick = New1Click
      end
      object Open1: TMenuItem
        Caption = #25171#24320#65288'&O'#65289
        OnClick = Open1Click
      end
      object N3: TMenuItem
        Caption = '-'
      end
      object save1: TMenuItem
        Caption = #20445#23384#65288'&S'#65289
        OnClick = save1Click
      end
      object SaveAs1: TMenuItem
        Caption = #21478#23384#20026#65288'&A'#65289
        OnClick = SaveAs1Click
      end
      object N4: TMenuItem
        Caption = '-'
      end
      object PrinterSetup1: TMenuItem
        Caption = #25171#21360#26426#35774#32622#65288'&R'#65289
      end
      object Print1: TMenuItem
        Caption = #25171#21360#65288'&P'#65289
      end
      object N5: TMenuItem
        Caption = '-'
      end
      object Exit1: TMenuItem
        Caption = #36864#20986#65288'&X'#65289
        OnClick = Exit1Click
      end
    end
    object Edit1: TMenuItem
      Caption = #32534#36753#65288'&E'#65289
      object Undo1: TMenuItem
        Caption = #25764#28040#65288'&U'#65289
        OnClick = Undo1Click
      end
      object N7: TMenuItem
        Caption = '-'
      end
      object Cut1: TMenuItem
        Action = EditCut1
      end
      object Copy1: TMenuItem
        Action = EditCopy1
      end
      object Paste1: TMenuItem
        Action = EditPaste1
      end
      object N8: TMenuItem
        Caption = '-'
      end
      object font1: TMenuItem
        Caption = #23383#20307#65288'&N'#65289
        OnClick = font1Click
      end
      object Color1: TMenuItem
        Caption = #32972#26223#39068#33394#65288'&O'#65289
        OnClick = Color1Click
      end
      object N9: TMenuItem
        Caption = '-'
      end
      object Find1: TMenuItem
        Caption = #26597#25214#65288'&F'#65289
        OnClick = Find1Click
      end
      object Replace1: TMenuItem
        Caption = #26367#25442#65288'&R'#65289
        OnClick = Replace1Click
      end
    end
    object View1: TMenuItem
      Caption = #26597#30475#65288'&V'#65289
      object mstatusBar1: TMenuItem
        Caption = #29366#24577#26639#65288'&S'#65289
        Checked = True
        OnClick = mstatusBar1Click
      end
      object mtoolBar1: TMenuItem
        Caption = #24037#20855#26639#65288'&T'#65289
        object Normal1: TMenuItem
          Caption = #24120#29992#65288'&N'#65289
          OnClick = Normal1Click
        end
        object style1: TMenuItem
          Caption = #26684#24335#65288'&S'#65289
          OnClick = style1Click
        end
      end
      object N11: TMenuItem
        Caption = '-'
      end
      object LageIcon1: TMenuItem
        Caption = #22823#22270#26631#65288'&G'#65289
        Checked = True
        GroupIndex = 4
        RadioItem = True
        OnClick = LageIcon1Click
      end