unit1.dfm

《Delphi7编程100例》代码,书配资料

object Form1: TForm1
  Left = 143
  Top = 128
  Width = 544
  Height = 375
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object StatusBar1: TStatusBar
    Left = 0
    Top = 310
    Width = 536
    Height = 19
    Panels = <>
  end
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
    Width = 536
    Height = 29
    Caption = 'ToolBar1'
    Flat = True
    Images = ImageList1
    TabOrder = 1
    object ToolButton1: TToolButton
      Left = 0
      Top = 0
      Action = EditCopy1
    end
    object ToolButton2: TToolButton
      Left = 23
      Top = 0
      Action = EditCut1
    end
    object ToolButton3: TToolButton
      Left = 46
      Top = 0
      Action = EditDelete1
    end
    object ToolButton4: TToolButton
      Left = 69
      Top = 0
      Action = EditPaste1
    end
    object ToolButton5: TToolButton
      Left = 92
      Top = 0
      Width = 8
      Caption = 'ToolButton5'
      ImageIndex = 4
      Style = tbsSeparator
    end
    object ToolButton6: TToolButton
      Left = 100
      Top = 0
      Caption = 'ToolButton6'
      ImageIndex = 4
    end
    object ToolButton8: TToolButton
      Left = 123
      Top = 0
      Width = 8
      Caption = 'ToolButton8'
      ImageIndex = 19
      Style = tbsSeparator
    end
    object ToolButton7: TToolButton
      Left = 131
      Top = 0
      Action = RichEditAlignCenter1
    end
    object ToolButton9: TToolButton
      Left = 154
      Top = 0
      Action = RichEditUnderline1
    end
  end
  object RichEdit1: TRichEdit
    Left = 0
    Top = 29
    Width = 536
    Height = 281
    Align = alClient
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    Lines.Strings = (
      'RichEdit1')
    ParentFont = False
    TabOrder = 2
  end
  object ActionList1: TActionList
    Images = ImageList1
    Left = 159
    Top = 134
    object EditCopy1: TEditCopy
      Category = 'Edit'
      Caption = '&Copy'
      Hint = 'Copy'
      ImageIndex = 0
      ShortCut = 16451
    end
    object EditCut1: TEditCut
      Category = 'Edit'
      Caption = 'Cu&t'
      Hint = 'Cut'
      ImageIndex = 1
      ShortCut = 16472
    end
    object EditPaste1: TEditPaste
      Category = 'Edit'
      Caption = '&Paste'
      Hint = 'Paste'
      ImageIndex = 3
      ShortCut = 16470
    end
    object EditUndo1: TEditUndo
      Category = 'Edit'
      Caption = '&Undo'
      Hint = 'Undo|Reverts the last action'
      ImageIndex = 15
      ShortCut = 16474
    end
    object EditDelete1: TEditDelete
      Category = 'Edit'
      Caption = '&Delete'
      Hint = 'Delete|Erases the selection'
      ImageIndex = 16
      ShortCut = 46
    end
    object RichEditUnderline1: TRichEditUnderline
      Category = 'Format'
      AutoCheck = True
      Caption = '&Underline'
      Hint = 'Underline'
      ImageIndex = 17
      ShortCut = 16469
    end
    object RichEditAlignCenter1: TRichEditAlignCenter
      Category = 'Format'
      AutoCheck = True
      Caption = '&Center'
      Hint = 'Center|Centers text between margins'
      ImageIndex = 18
    end
    object FileOpen1: TFileOpen
      Category = 'File'
      Caption = '&Open...'
      Hint = 'Open|Opens an existing file'
      ImageIndex = 19
      ShortCut = 16463
    end
    object FileSaveAs1: TFileSaveAs
      Category = 'File'
      Caption = 'Save &As...'
      Hint = 'Save As|Saves the active file with a new name'
      ImageIndex = 20
    end
    object SearchFind1: TSearchFind
      Category = 'Search'
      Caption = '&Find...'
      Hint = 'Find|Finds the specified text'
      ImageIndex = 21
      ShortCut = 16454
    end
  end
  object ImageList1: TImageList
    Left = 127
    Top = 134
    Bitmap = {
      494C010116001900040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
      0000000000003600000028000000400000007000000001002000000000000070
      000000000000000000000000000000000000CE297B00BDEF7300BD087B006300
      0000FFEF7300BDEF7300CE297B00BDEF7300BD087B0008000000FFEF7300BDEF
      7300CE297B00BDEF7300BD087B0010000000FFEF7300BDEF7300BDEF9400BDEF
      7300BD087B0029000000FFEF7300BDEF7300BDEF9400BDEF7300BD087B003100
      0000FFEF7300BDEF7300BDEF9400BDEF7300BD087B0039000000FFEF7300BDEF
      7300BDEF7300BDEF7300BD087B0052000000FFEF7300BDEF7300BDEF7300BDEF
      7300BD087B006B000000FFEFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000
      A500BDEF7300BDEF7300BDEF7300BDEF7300BDEF7300A5080000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000FFEF7300BDEF7300BDEF7300BDEF
      7300BD087B005A210000FFEF7300BDEF7300BDEF7300BDEF7300BD087B001800
      0000FFEF7300CE299C00BDF77300CE319C00BD087B0008218400FFEF7300BD29
      7B00BDEF7300CEEF7300BD087B0000000000FFEF7300BD297B00BDEF7300CEEF
      7300BD087B0018000000FFEF7300BDEF7300BDF77300BDF77300BD087B003900
      0000FFEF7300BDEF7300CE319C00BDF77300BD087B0018000000FFEF7300BDEF
      7300BDF77300BDF77300BD087B000000A500FFEF7300BDEF7300BDF77300BDF7
      7300BD087B0000000000FFEF7300BDEF73000000000000000000000000000000
      0000000000000000000000000000000000004200000000000000420000000000
      0000AD0000000000000008000000210000000000000000000000213100000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000FF10000000E7BD000000000000E7BD00FF10
      0000FF10000000000000FF100000FF100000FFF7BD00000000000018C6000018
      0000001084000010000000000000FF18000000E7FF000000000000E7FF00FF18
      0000FF18000000000000FF180000FF180000FFFFFF0000000000FFFFFF00FF18
      0000000000000000000000000000000000000039390000FFFF00EFFFFF00397B