[魔術王子]

表單很大喔(因為有圖示)

object Form1: TForm1
  Left = 192
  Top = 114
  Width = 824
  Height = 613
  Caption = '自製記事本'
  Color = clBtnFace
  DefaultMonitor = dmMainForm
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter1: TSplitter
    Left = 661
    Top = 26
    Width = 3
    Height = 511
    Cursor = crHSplit
    Align = alRight
  end
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
    Width = 816
    Height = 26
    AutoSize = True
    Caption = 'ToolBar1'
    Images = ImageList1
    TabOrder = 0
    object ToolButton1: TToolButton
      Left = 0
      Top = 2
      Caption = 'ToolButton1'
      ImageIndex = 0
      OnClick = ToolButton1Click
    end
    object ToolButton2: TToolButton
      Left = 23
      Top = 2
      Caption = 'ToolButton2'
      ImageIndex = 1
      OnClick = ToolButton2Click
    end
    object ToolButton3: TToolButton
      Left = 46
      Top = 2
      Caption = 'ToolButton3'
      ImageIndex = 2
      OnClick = ToolButton3Click
    end
    object ToolButton13: TToolButton
      Left = 69
      Top = 2
      Width = 8
      Caption = 'ToolButton13'
      ImageIndex = 3
      Style = tbsSeparator
    end
    object ToolButton14: TToolButton
      Left = 77
      Top = 2
      Caption = 'ToolButton14'
      ImageIndex = 3
      OnClick = ToolButton14Click
    end
    object ToolButton15: TToolButton
      Left = 100
      Top = 2
      Caption = 'ToolButton15'
      ImageIndex = 4
      OnClick = ToolButton15Click
    end
    object ToolButton16: TToolButton
      Left = 123
      Top = 2
      Caption = 'ToolButton16'
      ImageIndex = 5
      OnClick = ToolButton16Click
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 560
    Width = 816
    Height = 19
    Panels = <>
    SimplePanel = False
  end
  object Memo1: TMemo
    Left = 0
    Top = 26
    Width = 661
    Height = 511
    Align = alClient
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Fixedsys'
    Font.Style = []
    ParentFont = False
    ScrollBars = ssBoth
    TabOrder = 2
  end
  object ToolBar2: TToolBar
    Left = 0
    Top = 537
    Width = 816
    Height = 23
    Align = alBottom
    AutoSize = True
    ButtonHeight = 21
    ButtonWidth = 19
    Caption = 'ToolBar2'
    DragKind = dkDock
    DragMode = dmAutomatic
    Flat = True
    ShowCaptions = True
    TabOrder = 3
    object ToolButton4: TToolButton
      Left = 0
      Top = 0
      Caption = '，'
      ImageIndex = 0
      OnClick = ToolButton4Click
    end
    object ToolButton5: TToolButton
      Left = 19
      Top = 0
      Caption = '。'
      ImageIndex = 1
      OnClick = ToolButton5Click
    end
    object ToolButton6: TToolButton
      Left = 38
      Top = 0
      Caption = '、'
      ImageIndex = 2
      OnClick = ToolButton6Click
    end
    object ToolButton7: TToolButton
      Left = 57
      Top = 0
      Caption = '；'
      ImageIndex = 3
      OnClick = ToolButton7Click
    end
    object ToolButton8: TToolButton
      Left = 76
      Top = 0
      Caption = '：'
      ImageIndex = 4
      OnClick = ToolButton8Click
    end
    object ToolButton9: TToolButton
      Left = 95
      Top = 0
      Caption = '！'
      ImageIndex = 5
      OnClick = ToolButton9Click
    end
    object ToolButton10: TToolButton
      Left = 114
      Top = 0
      Caption = '？'
      ImageIndex = 6
      OnClick = ToolButton10Click
    end
    object ToolButton11: TToolButton
      Left = 133
      Top = 0
      Caption = '「'
      ImageIndex = 7
      OnClick = ToolButton11Click
    end
    object ToolButton12: TToolButton
      Left = 152
      Top = 0
      Caption = '『'
      ImageIndex = 8
      OnClick = ToolButton12Click
    end
  end
  object Panel1: TPanel
    Left = 664
    Top = 26
    Width = 152
    Height = 511
    Align = alRight
    BevelOuter = bvLowered
    Caption = 'Panel1'
    TabOrder = 4
    object ListBox1: TListBox
      Left = 1
      Top = 27
      Width = 150
      Height = 483
      Align = alClient
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Fixedsys'
      Font.Style = []
      ItemHeight = 16
      ParentFont = False
      TabOrder = 0
      OnDblClick = ListBox1DblClick
    end
    object ToolBar3: TToolBar
      Left = 1
      Top = 1
      Width = 150
      Height = 26
      AutoSize = True
      Caption = 'ToolBar3'
      Images = ImageList2
      TabOrder = 1
      object ToolButton17: TToolButton
        Left = 0
        Top = 2
        Caption = 'ToolButton17'
        ImageIndex = 0
        OnClick = ToolButton17Click
      end
      object ToolButton18: TToolButton
        Left = 23
        Top = 2
        Caption = 'ToolButton18'
        ImageIndex = 1
        OnClick = ToolButton18Click
      end
    end
  end