editunit.dfm

一个文本编辑器

object MainForm: TMainForm
  Left = 181
  Top = 225
  Width = 544
  Height = 394
  Caption = #23567#33756#40479#25991#26412#32534#36753#22120'(1.0 hf '#29256')'
  Color = clAppWorkSpace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIForm
  Menu = MainMenu1
  OldCreateOrder = False
  WindowMenu = WindowN
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
    Width = 536
    Height = 29
    Caption = 'ToolBar1'
    Color = clBtnFace
    Images = ImageList1
    ParentColor = False
    TabOrder = 0
    object NewBt: TToolButton
      Left = 0
      Top = 2
      ImageIndex = 1
      OnClick = NewNClick
    end
    object OpenBt: TToolButton
      Left = 23
      Top = 2
      ImageIndex = 2
      OnClick = OpenNClick
    end
    object SaveBt: TToolButton
      Left = 46
      Top = 2
      ImageIndex = 4
      OnClick = SaveNClick
    end
    object ToolButton4: TToolButton
      Left = 69
      Top = 2
      Width = 8
      Caption = 'ToolButton4'
      ImageIndex = 5
      Style = tbsSeparator
    end
    object FontList: TComboBox
      Left = 77
      Top = 2
      Width = 132
      Height = 21
      Style = csDropDownList
      ItemHeight = 13
      TabOrder = 0
      OnChange = FontListChange
    end
    object ToolButton1: TToolButton
      Left = 209
      Top = 2
      Width = 8
      Caption = 'ToolButton1'
      ImageIndex = 6
      Style = tbsSeparator
    end
    object FontSize: TCSpinEdit
      Left = 217
      Top = 2
      Width = 48
      Height = 22
      MaxValue = 1638
      MinValue = 1
      TabOrder = 1
      Value = 1
      OnChange = FontSizeChange
    end
    object ToolButton2: TToolButton
      Left = 265
      Top = 2
      Width = 8
      Caption = 'ToolButton2'
      ImageIndex = 7
      Style = tbsSeparator
    end
    object LeftBt: TSpeedButton
      Tag = 1
      Left = 273
      Top = 2
      Width = 23
      Height = 22
      GroupIndex = 1
      Glyph.Data = {
        72020000424D720200000000000036000000280000000E0000000D0000000100
        1800000000003C020000120B0000120B00000000000000000000FDE7D5FDE7D5
        FDE7D5FDE7D5FDE7D5FDE7D5FDE7D5FDE7D5FDE7D5FDE7D5FDE7D5FDE7D5FDE7
        D5FDE9D900000000000000000000000000000000000000000000000000000000
        000000000000000000000000001212120000FCE5D1FCE5D1FCE5D1FCE5D1FCE5
        D1FCE5D1FCE5D1FCE5D1FCE5D1FCE5D1FCE5D1FCE5D1FCE5D1FCE6D400000000
        000000000000000000000000000000000000000000000000000B0A09FFECD8FC
        E4D0FCE4D0FCE5D20000FCE3CEFCE3CEFCE3CEFCE3CEFCE3CEFCE3CEFCE3CEFC
        E3CEFCE3CEFCE3CEFCE3CEFCE3CEFCE3CEFCE4CF000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000030303
        0000FCE1CBFCE1CBFCE1CBFCE1CBFCE1CBFCE1CBFCE1CBFCE1CBFCE1CBFCE1CB
        FCE1CBFCE1CBFCE1CBFCE1CB0000050505000000000000000000000000000000
        000000000000000000000000F6DCC7FBE0CBFBE0CBFBE0CB0000F9DCC6F9DBC4
        F9DBC4F9DBC4F9DBC4F9DBC4F9DBC4F9DBC4F9DBC4F9DBC4F9DBC4F9DBC4F9DB
        C4F9DBC400000D0D0D0000000000000000000000000000000000000000000000
        000000000000000000000000000000000000F5D4BCF4D1B7F4D1B7F4D1B7F4D1
        B7F4D1B7F4D1B7F4D1B7F4D1B7F4D1B7F4D1B7F4D1B7F4D1B7F4D1B700001515
        15000000000000000000000000000000000000000000000000000000DFBCA3F3
        CDB1F2CCB0F2CCB00000F1CCB1F0C7A9F0C7A9F0C7A9F0C7A9F0C7A9F0C7A9F0
        C7A9F0C7A9F0C7A9F0C7A9F0C7A9F0C7A9F0C7A90000}
      OnClick = LeftBtClick
    end
    object CenterBt: TSpeedButton
      Tag = 2
      Left = 296
      Top = 2
      Width = 23
      Height = 22
      GroupIndex = 1
      Glyph.Data = {
        46020000424D460200000000000036000000280000000E0000000C0000000100
        18000000000010020000120B0000120B00000000000000000000F2CCB0F2CCB0
        000000000000000000000000000000000000000000000000000000000000F2CC
        B0F2CCB00000F4D1B7F4D1B7F4D1B7F4D1B7F4D1B7F4D1B7F4D1B7F4D1B7F4D1
        B7F4D1B7F4D1B7F4D1B7F4D1B7F4D1B700000000000000000000000000000000
        000000000000000000000000000000000000000000000000000000000000F9DB
        C4F9DBC4F9DBC4F9DBC4F9DBC4F9DBC4F9DBC4F9DBC4F9DBC4F9DBC4F9DBC4F9
        DBC4F9DBC4F9DBC40000FBE0CBFBE0CB00000000000000000000000000000000
        0000000000000000000000000000FBE0CBFBE0CB0000FCE1CBFCE1CBFCE1CBFC
        E1CBFCE1CBFCE1CBFCE1CBFCE1CBFCE1CBFCE1CBFCE1CBFCE1CBFCE1CBFCE1CB
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000FCE3CEFCE3CEFCE3CEFCE3CEFCE3CEFCE3CE
        FCE3CEFCE3CEFCE3CEFCE3CEFCE3CEFCE3CEFCE3CEFCE3CE0000FCE4D0FCE4D0
        000000000000000000000000000000000000000000000000000000000000FCE4
        D0FCE4D00000FCE5D1FCE5D1FCE5D1FCE5D1FCE5D1FCE5D1FCE5D1FCE5D1FCE5
        D1FCE5D1FCE5D1FCE5D1FCE5D1FCE5D100000000000000000000000000000000
        000000000000000000000000000000000000000000000000000000000000FDE7
        D5FDE7D5FDE7D5FDE7D5FDE7D5FDE7D5FDE7D5FDE7D5FDE7D5FDE7D5FDE7D5FD
        E7D5FDE7D5FDE7D50000}
      OnClick = LeftBtClick
    end
    object RightBt: TSpeedButton
      Tag = 3
      Left = 319
      Top = 2
      Width = 23
      Height = 22
      GroupIndex = 1
      Glyph.Data = {
        72020000424D720200000000000036000000280000000E0000000D0000000100
        1800000000003C020000120B0000120B00000000000000000000F0C7A9F0C7A9
        F0C7A9F0C7A9F0C7A9F0C7A9F0C7A9F0C7A9F0C7A9F0C7A9F0C7A9F0C7A9F0C7
        A9F0C7A90000F2CCB0F2CCB0F2CCB0F2CCB00000000000000000000000000000
        000000000000000000000000000000000000F4D1B7F4D1B7F4D1B7F4D1B7F4D1
        B7F4D1B7F4D1B7F4D1B7F4D1B7F4D1B7F4D1B7F4D1B7F4D1B7F4D1B700000000
        0000000000000000000000000000000000000000000000000000000000000000
        00000000000000000000F9DBC4F9DBC4F9DBC4F9DBC4F9DBC4F9DBC4F9DBC4F9
        DBC4F9DBC4F9DBC4F9DBC4F9DBC4F9DBC4F9DBC40000FBE0CBFBE0CBFBE0CBFB
        E0CB000000000000000000000000000000000000000000000000000000000000
        0000FCE1CBFCE1CBFCE1CBFCE1CBFCE1CBFCE1CBFCE1CBFCE1CBFCE1CBFCE1CB
        FCE1CBFCE1CBFCE1CBFCE1CB0000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000FCE3CEFCE3CE
        FCE3CEFCE3CEFCE3CEFCE3CEFCE3CEFCE3CEFCE3CEFCE3CEFCE3CEFCE3CEFCE3
        CEFCE3CE0000FCE4D0FCE4D0FCE4D0FCE4D00000000000000000000000000000
        000000000000000000000000000000000000FCE5D1FCE5D1FCE5D1FCE5D1FCE5
        D1FCE5D1FCE5D1FCE5D1FCE5D1FCE5D1FCE5D1FCE5D1FCE5D1FCE5D100000000
        0000000000000000000000000000000000000000000000000000000000000000
        00000000000000000000FDE7D5FDE7D5FDE7D5FDE7D5FDE7D5FDE7D5FDE7D5FD
        E7D5FDE7D5FDE7D5FDE7D5FDE7D5FDE7D5FDE7D50000}
      OnClick = LeftBtClick
    end
  end
  object MainMenu1: TMainMenu
    Left = 96
    Top = 120
    object FileN: TMenuItem
      Caption = #25991#20214'(&F)'
      object NewN: TMenuItem
        Caption = #26032#24314'(&N)'
        ShortCut = 16462
        OnClick = NewNClick
      end
      object OpenN: TMenuItem
        Caption = #25171#24320'(&O)'
        Hint = 'Open|Opens an existing file'
        ImageIndex = 7
        ShortCut = 16463
        OnClick = OpenNClick
      end
      object SaveN: TMenuItem
        Caption = #20445#23384'(&S)'
        ShortCut = 16467
        OnClick = SaveNClick
      end
      object SaveAsN: TMenuItem
        Caption = #21478#23384#20026'(&A)...'
        Hint = 'Save As|Saves the active file with a new name'
        ImageIndex = 30
        OnClick = SaveAsNClick
      end
      object N9: TMenuItem
        Caption = '-'
      end
      object PrintN: TMenuItem
        Caption = #25171#21360'(&P)...'
        OnClick = PrintNClick
      end
      object PrintSetN: TMenuItem
        Caption = #25171#21360#35774#32622'(&U)...'
        OnClick = PrintSetNClick
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object E1: TMenuItem
        Action = FileExit1
      end
    end
    object WindowN: TMenuItem
      Caption = #31383#21475'(&W)'
      GroupIndex = 3
      object N2: TMenuItem
        Action = WindowArrange1
      end
      object N3: TMenuItem
        Action = WindowCascade1
      end
      object N4: TMenuItem
        Action = WindowTileHorizontal1
      end
      object N5: TMenuItem
        Action = WindowTileVertical1
      end
      object N6: TMenuItem
        Caption = '-'
        Enabled = False
        Hint = 'Close'
      end
      object N7: TMenuItem
        Action = WindowClose1
      end