napad.dfm

Delphi 7基础编程的源代码

object MainForm: TMainForm
  Left = 197
  Top = 185
  Width = 696
  Height = 480
  Caption = 'MainForm'
  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
  OnMouseMove = FormMouseMove
  OnResize = FormResize
  PixelsPerInch = 96
  TextHeight = 13
  object RichEdit1: TRichEdit
    Left = 8
    Top = 48
    Width = 665
    Height = 297
    Color = clCaptionText
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    HideSelection = False
    Lines.Strings = (
      'RichEdit1')
    ParentFont = False
    ParentShowHint = False
    PopupMenu = PMenu
    ScrollBars = ssBoth
    ShowHint = True
    TabOrder = 0
    OnChange = RichEdit1Change
    OnSelectionChange = RichEdit1SelectionChange
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 415
    Width = 688
    Height = 19
    Panels = <
      item
        Width = 100
      end
      item
        BiDiMode = bdLeftToRight
        ParentBiDiMode = False
        Width = 50
      end>
    ParentShowHint = False
    ShowHint = True
    OnMouseMove = StatusBar1MouseMove
  end
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
    Width = 688
    Height = 29
    Caption = 'ToolBar1'
    Images = ImageList1
    ParentShowHint = False
    ShowHint = False
    TabOrder = 2
    OnMouseMove = ToolBar1MouseMove
    object TBCut: TToolButton
      Left = 0
      Top = 2
      Caption = #25991#20214'(&F)'
      ImageIndex = 0
      ParentShowHint = False
      ShowHint = True
      OnClick = TBCutClick
      OnMouseMove = TBCutMouseMove
    end
    object TBPaste: TToolButton
      Left = 23
      Top = 2
      Caption = 'TBPaste'
      ImageIndex = 1
      ParentShowHint = False
      ShowHint = True
      OnClick = TBPasteClick
      OnMouseMove = TBPasteMouseMove
    end
    object TBUndo: TToolButton
      Left = 46
      Top = 2
      Caption = 'TBUndo'
      ImageIndex = 2
      ParentShowHint = False
      ShowHint = True
      OnClick = TBUndoClick
      OnMouseMove = TBUndoMouseMove
    end
    object TBCopy: TToolButton
      Left = 69
      Top = 2
      Caption = 'TBCopy'
      ImageIndex = 3
      ParentShowHint = False
      ShowHint = True
      OnMouseMove = TBCopyMouseMove
    end
    object ToolButton5: TToolButton
      Left = 92
      Top = 2
      Width = 8
      Caption = 'ToolButton5'
      Style = tbsSeparator
    end
    object ColorBox1: TColorBox
      Left = 100
      Top = 2
      Width = 145
      Height = 22
      ItemHeight = 16
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      OnChange = ColorBox1Change
      OnClick = ColorBox1Click
    end
    object ToolButton6: TToolButton
      Left = 245
      Top = 2
      Width = 20
      Caption = 'ToolButton6'
      ImageIndex = 5
      Style = tbsSeparator
    end
    object ComboBox1: TComboBox
      Left = 265
      Top = 2
      Width = 145
      Height = 21
      ItemHeight = 13
      ParentShowHint = False
      ShowHint = True
      TabOrder = 1
      Text = 'ComboBox1'
      OnClick = ComboBox1Click
    end
    object ToolButton4: TToolButton
      Left = 410
      Top = 2
      Width = 10
      Caption = 'ToolButton4'
      ImageIndex = 8
      Style = tbsSeparator
    end
    object TBbold: TToolButton
      Left = 420
      Top = 2
      AllowAllUp = True
      Caption = 'TBbold'
      ImageIndex = 4
      ParentShowHint = False
      ShowHint = True
      OnClick = TBboldClick
      OnMouseMove = TBboldMouseMove
    end
    object TBI: TToolButton
      Left = 443
      Top = 2
      Caption = 'TBI'
      ImageIndex = 5
      ParentShowHint = False
      ShowHint = True
      OnClick = TBIClick
      OnMouseMove = TBIMouseMove
    end
    object TBsize: TToolButton
      Left = 466
      Top = 2
      Caption = 'TBsize'
      DropdownMenu = PopupSize
      ImageIndex = 6
      ParentShowHint = False
      PopupMenu = PopupSize
      ShowHint = True
      Style = tbsDropDown
      OnMouseMove = TBsizeMouseMove
    end
  end
  object OpenDialog1: TOpenDialog
    Left = 640
    Top = 304
  end
  object SaveDialog1: TSaveDialog
    Left = 640
    Top = 216
  end
  object MainMenu1: TMainMenu
    Left = 640
    Top = 256
    object m1: TMenuItem
      Caption = #25991#20214'(&F)'
      object m11: TMenuItem
        Caption = #26032#24314'(&N)'
        ShortCut = 16462
        OnClick = m11Click
      end
      object m12: TMenuItem
        Caption = #25171#24320'(&O)'
        ShortCut = 16463
        OnClick = m12Click
      end
      object m14: TMenuItem
        Caption = #21478#23384#20026'(&A)'
        OnClick = m14Click
      end
      object m15: TMenuItem
        Caption = '-'
      end
      object m16: TMenuItem
        Caption = #36864#20986'(&X)'
        OnClick = m16Click
      end
    end
  end
  object ImageList1: TImageList
    ImageType = itMask
    Left = 640
    Top = 168
    Bitmap = {
      494C010107000900040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
      0000000000003600000028000000400000003000000001001000000000000018
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000