unitmain.dfm

一百个病毒的源代码 包括熊猫烧香等 极其具有研究价值

object FormMain: TFormMain
  Left = 76
  Top = 58
  Width = 637
  Height = 454
  Caption = '我的记事本'
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -15
  Font.Name = '宋体'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  Position = poDesktopCenter
  Visible = True
  WindowState = wsMaximized
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 15
  object RichEdit1: TRichEdit
    Left = 0
    Top = 0
    Width = 629
    Height = 408
    Align = alClient
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = '宋体'
    Font.Style = []
    HideSelection = False
    ParentFont = False
    PlainText = True
    PopupMenu = PopupMenu1
    ScrollBars = ssBoth
    TabOrder = 0
  end
  object MainMenu1: TMainMenu
    Left = 128
    Top = 24
    object MenuFile: TMenuItem
      Caption = '[&F]文件'
      OnClick = MenuFileClick
      object ItemNew: TMenuItem
        Caption = '[&N]新建'
        OnClick = ItemNewClick
      end
      object ItemOpen: TMenuItem
        Caption = '[&O]打开...'
        OnClick = ItemOpenClick
      end
      object ItemSave: TMenuItem
        Caption = '[&S]保存'
        OnClick = ItemSaveClick
      end
      object ItemSaveAs: TMenuItem
        Caption = '[&A]另存为...'
        OnClick = ItemSaveAsClick
      end
      object N2: TMenuItem
        Caption = '-'
      end
      object ItemFont: TMenuItem
        Caption = '[&F]显示字体...'
        OnClick = ItemFontClick
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object ItemPageSet: TMenuItem
        Caption = '[&T]页面设置...'
        OnClick = ItemPageSetClick
      end
      object ItemPrint: TMenuItem
        Caption = '[&P]打印'
        OnClick = ItemPrintClick
      end
      object N4: TMenuItem
        Caption = '-'
      end
      object ItemClose: TMenuItem
        Caption = '[&C]关闭'
        OnClick = ItemCloseClick
      end
    end
    object MenuEdit: TMenuItem
      Caption = '[&E]编辑'
      OnClick = PopupMenu1Popup
      object ItemUndo1: TMenuItem
        Caption = '[&U]撤消'
        OnClick = ItemUndoClick
      end
      object ItemRedo1: TMenuItem
        Caption = '[&R]重做'
        Visible = False
        OnClick = ItemRedoClick
      end
      object N7: TMenuItem
        Caption = '-'
      end
      object ItemCut1: TMenuItem
        Caption = '[&T]剪切'
        OnClick = ItemCutClick
      end
      object ItemCopy1: TMenuItem
        Caption = '[&C]复制'
        OnClick = ItemCopyClick
      end
      object ItemPaste1: TMenuItem
        Caption = '[&P]粘贴'
        OnClick = ItemPasteClick
      end
      object ItemDelete1: TMenuItem
        Caption = '[&D]删除'
        OnClick = ItemDeleteClick
      end
      object N8: TMenuItem
        Caption = '-'
      end
      object ItemSelectAll1: TMenuItem
        Caption = '[&A]全选'
        OnClick = ItemSelectAllClick
      end
      object N9: TMenuItem
        Caption = '-'
      end
      object ItemFind1: TMenuItem
        Caption = '[&F]查找...'
        OnClick = ItemFindTextClick
      end
      object ItemFindAndPlace1: TMenuItem
        Caption = '[&L]查找和替换...'
        OnClick = ItemFindAndReplaceClick
      end
      object N10: TMenuItem
        Caption = '-'
      end
      object ItemAutoWarp1: TMenuItem
        Caption = '[&W]自动换行'
        Checked = True
        OnClick = ItemAutoWarp1Click
      end
    end
    object H1: TMenuItem
      Caption = '[&H]帮助'
      object N12: TMenuItem
        Caption = '[&A]关于我的记事本'
      end
    end
  end
  object SaveDialog1: TSaveDialog
    DefaultExt = 'txt'
    Filter = 'TXT File|*.txt|All File|*.*'
    FilterIndex = 0
    Options = [ofOverwritePrompt, ofHideReadOnly, ofPathMustExist, ofEnableSizing]
    Left = 208
    Top = 64
  end
  object OpenDialog1: TOpenDialog
    DefaultExt = 'txt'
    Filter = 'TXT File|*.txt|All File|*.*'
    Options = [ofOverwritePrompt, ofHideReadOnly, ofEnableSizing]
    Left = 304
    Top = 40
  end
  object FontDialog1: TFontDialog
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = '宋体'
    Font.Style = []
    MinFontSize = 0
    MaxFontSize = 0
    Left = 176
    Top = 152
  end
  object PopupMenu1: TPopupMenu
    OnPopup = PopupMenu1Popup
    Left = 112
    Top = 120
    object ItemUndo: TMenuItem
      Caption = '&U撤消'
      OnClick = ItemUndoClick
    end
    object ItemRedo: TMenuItem
      Caption = '&R重做'
      Visible = False
      OnClick = ItemRedoClick
    end
    object N3: TMenuItem
      Caption = '-'
    end
    object ItemCut: TMenuItem
      Caption = '&T剪切'
      OnClick = ItemCutClick
    end
    object ItemCopy: TMenuItem
      Caption = '&C复制'
      OnClick = ItemCopyClick
    end
    object ItemPaste: TMenuItem
      Caption = '&P粘贴'
      OnClick = ItemPasteClick
    end
    object ItemDelete: TMenuItem
      Caption = '&D删除'
      OnClick = ItemDeleteClick
    end
    object N5: TMenuItem
      Caption = '-'
    end
    object ItemSelectAll: TMenuItem
      Caption = '&A全选'
      OnClick = ItemSelectAllClick
    end
    object N6: TMenuItem
      Caption = '-'
    end
    object ItemFindText: TMenuItem
      Caption = '&F查找...'
      OnClick = ItemFindTextClick
    end
    object ItemFindAndReplace: TMenuItem
      Caption = '&L查找并替换...'
      OnClick = ItemFindAndReplaceClick
    end
    object N11: TMenuItem
      Caption = '-'
    end
    object ItemAutoWarp: TMenuItem
      Caption = '&W自动换行'
      OnClick = ItemAutoWarp1Click
    end
  end
  object FindDialog1: TFindDialog
    OnFind = FindDialog1Find
    Left = 248
    Top = 144
  end
  object ReplaceDialog1: TReplaceDialog
    OnReplace = ReplaceDialog1Replace
    Left = 320
    Top = 168
  end
end