unit1.dfm

超强功能文本编辑器

object txtform: Ttxtform
  Left = 237
  Top = 156
  Width = 639
  Height = 482
  Caption = #25991#26412#32534#36753#22120'V1.0'#27979#35797#29256
  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
  PixelsPerInch = 96
  TextHeight = 13
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
    Width = 631
    Height = 27
    Caption = 'ToolBar1'
    Images = ImageList1
    TabOrder = 0
    object ToolButton1: TToolButton
      Left = 0
      Top = 2
      Hint = #26032#24314
      Caption = 'ToolButton1'
      ImageIndex = 8
      ParentShowHint = False
      ShowHint = True
      OnClick = menunewClick
    end
    object ToolButton2: TToolButton
      Left = 23
      Top = 2
      Hint = #25171#24320
      Caption = 'ToolButton2'
      ImageIndex = 9
      ParentShowHint = False
      ShowHint = True
      OnClick = menuopenClick
    end
    object ToolButton5: TToolButton
      Left = 46
      Top = 2
      Hint = #20445#23384
      Caption = 'ToolButton5'
      ImageIndex = 10
      ParentShowHint = False
      ShowHint = True
      OnClick = menusaveClick
    end
    object toolcx: TToolButton
      Left = 69
      Top = 2
      Hint = #25764#28040
      Caption = 'toolcx'
      Enabled = False
      ImageIndex = 12
      ParentShowHint = False
      ShowHint = True
      OnClick = menucxClick
    end
    object toolcut: TToolButton
      Left = 92
      Top = 2
      Hint = #21098#20999
      Caption = 'toolcut'
      Enabled = False
      ImageIndex = 5
      ParentShowHint = False
      ShowHint = True
      OnClick = menucutClick
    end
    object toolcopy: TToolButton
      Left = 115
      Top = 2
      Hint = #22797#21046
      Caption = 'toolcopy'
      Enabled = False
      ImageIndex = 3
      ParentShowHint = False
      ShowHint = True
      OnClick = menucopyClick
    end
    object ToolButton9: TToolButton
      Left = 138
      Top = 2
      Hint = #31896#36148
      Caption = 'ToolButton9'
      ImageIndex = 13
      ParentShowHint = False
      ShowHint = True
      OnClick = menupasteClick
    end
    object tooldel: TToolButton
      Left = 161
      Top = 2
      Hint = #21024#38500
      Caption = 'tooldel'
      Enabled = False
      ImageIndex = 1
      ParentShowHint = False
      ShowHint = True
      OnClick = menudelClick
    end
    object toolleft: TToolButton
      Left = 184
      Top = 2
      Hint = #24038#23545#40784
      Caption = 'toolleft'
      Down = True
      ImageIndex = 7
      ParentShowHint = False
      ShowHint = True
      OnClick = toolleftClick
    end
    object toolmiddle: TToolButton
      Left = 207
      Top = 2
      Hint = #23621#20013#23545#40784
      Caption = 'toolmiddle'
      ImageIndex = 4
      ParentShowHint = False
      ShowHint = True
      OnClick = toolmiddleClick
    end
    object toolright: TToolButton
      Left = 230
      Top = 2
      Hint = #21491#23545#40784
      Caption = 'toolright'
      ImageIndex = 11
      ParentShowHint = False
      ShowHint = True
      OnClick = toolrightClick
    end
    object toolbold: TToolButton
      Left = 253
      Top = 2
      Hint = #31895#20307
      Caption = 'toolbold'
      ImageIndex = 19
      ParentShowHint = False
      ShowHint = True
      Style = tbsCheck
      OnClick = subboldClick
    end
    object toolitalic: TToolButton
      Left = 276
      Top = 2
      Hint = #26012#20307
      Caption = 'toolitalic'
      ImageIndex = 18
      ParentShowHint = False
      ShowHint = True
      OnClick = subitalicClick
    end
    object toolunderline: TToolButton
      Left = 299
      Top = 2
      Hint = #19979#21010#32447
      Caption = 'toolunderline'
      ImageIndex = 15
      ParentShowHint = False
      ShowHint = True
      Style = tbsCheck
      OnClick = subunderlineClick
    end
    object ToolButton3: TToolButton
      Left = 322
      Top = 2
      Caption = 'ToolButton3'
      ImageIndex = 20
      OnClick = ToolButton3Click
    end
  end
  object memotxt: TRichEdit
    Left = 0
    Top = 27
    Width = 631
    Height = 406
    Align = alClient
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    PopupMenu = PopupMenu1
    TabOrder = 1
    OnChange = memotxtChange
    OnKeyDown = memotxtKeyDown
    OnMouseMove = memotxtMouseMove
  end
  object OpenDialog1: TOpenDialog
    Filter = '*.txt|*.txt'
    Left = 280
    Top = 240
  end
  object SaveDialog1: TSaveDialog
    DefaultExt = 'txt'
    Filter = '*.txt|*.txt'
    Left = 368
    Top = 240
  end
  object MainMenu1: TMainMenu
    Images = ImageList1
    Left = 328
    Top = 240
    object menufile: TMenuItem
      Caption = #25991#20214'(&F)'
      object menunew: TMenuItem
        Caption = #26032#24314'(&N)'
        ImageIndex = 8
        ShortCut = 16462
        OnClick = menunewClick
      end
      object menuopen: TMenuItem
        Caption = #25171#24320'(&O)...'
        ImageIndex = 9
        ShortCut = 16463
        OnClick = menuopenClick
      end
      object menusave: TMenuItem
        Caption = #20445#23384'(&S)'
        ImageIndex = 10
        ShortCut = 16467
        OnClick = menusaveClick
      end
      object menusaves: TMenuItem
        Caption = #21478#23384#20026'(&A)...'
        OnClick = menusavesClick
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object menuymsz: TMenuItem