main.dfm

这是一个DELPHI7应用案例开发篇有配套程序种子光盘

object frmMain: TfrmMain
  Left = 228
  Top = 299
  Width = 632
  Height = 351
  BorderIcons = [biSystemMenu, biMinimize, biMaximize, biHelp]
  Caption = 'RichEditor'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIForm
  Menu = MainMenu
  OldCreateOrder = False
  ShowHint = True
  WindowMenu = WindowMenu
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object ControlBar1: TControlBar
    Left = 0
    Top = 0
    Width = 624
    Height = 30
    Align = alTop
    AutoSize = True
    TabOrder = 0
    object ToolBar1: TToolBar
      Left = 11
      Top = 2
      Width = 158
      Height = 22
      AutoSize = True
      Caption = 'ToolBar1'
      EdgeBorders = []
      Flat = True
      Images = ToolbarImages
      TabOrder = 0
      object ToolButton1: TToolButton
        Left = 0
        Top = 0
        Action = FileNew1
      end
      object ToolButton2: TToolButton
        Left = 23
        Top = 0
        Action = FileOpen1
      end
      object ToolButton3: TToolButton
        Left = 46
        Top = 0
        Action = FileSave1
      end
      object ToolButton7: TToolButton
        Left = 69
        Top = 0
        Width = 8
        Caption = 'ToolButton7'
        ImageIndex = 6
        Style = tbsSeparator
      end
      object ToolButton4: TToolButton
        Left = 77
        Top = 0
        Action = FilePrint1
      end
      object ToolButton5: TToolButton
        Left = 100
        Top = 0
        Width = 8
        Caption = 'ToolButton5'
        ImageIndex = 23
        Style = tbsSeparator
      end
      object tbtWhatThis: TToolButton
        Left = 108
        Top = 0
        Action = HelpWhatsThis1
      end
      object ToolButton6: TToolButton
        Left = 131
        Top = 0
        Action = FileExit1
      end
    end
    object ToolBar2: TToolBar
      Left = 182
      Top = 2
      Width = 103
      Height = 22
      Caption = 'ToolBar2'
      EdgeBorders = []
      Flat = True
      Images = ToolbarImages
      TabOrder = 1
      object ToolButton8: TToolButton
        Left = 0
        Top = 0
        Action = EditCut1
      end
      object ToolButton9: TToolButton
        Left = 23
        Top = 0
        Action = EditCopy1
      end
      object ToolButton10: TToolButton
        Left = 46
        Top = 0
        Action = EditPaste1
      end
      object ToolButton18: TToolButton
        Left = 69
        Top = 0
        Width = 8
        Caption = 'ToolButton18'
        ImageIndex = 5
        Style = tbsSeparator
      end
      object ToolButton12: TToolButton
        Left = 77
        Top = 0
        Caption = 'ToolButton12'
        ImageIndex = 4
      end
    end
    object ToolBar3: TToolBar
      Left = 298
      Top = 2
      Width = 203
      Height = 22
      Caption = 'ToolBar2'
      EdgeBorders = []
      Flat = True
      Images = ToolbarImages
      TabOrder = 2
      object ToolButton13: TToolButton
        Left = 0
        Top = 0
        Action = RichEditAlignLeft1
      end
      object ToolButton14: TToolButton
        Left = 23
        Top = 0
        Action = RichEditAlignCenter1
      end
      object ToolButton15: TToolButton
        Left = 46
        Top = 0
        Action = RichEditAlignRight1
      end
      object ToolButton11: TToolButton
        Left = 69
        Top = 0
        Width = 8
        Caption = 'ToolButton11'
        ImageIndex = 5
        Style = tbsSeparator
      end
      object ToolButton16: TToolButton
        Left = 77
        Top = 0
        Action = RichEditBold1
      end
      object ToolButton17: TToolButton
        Left = 100
        Top = 0
        Action = RichEditItalic1
      end
      object ToolButton19: TToolButton
        Left = 123
        Top = 0
        Action = RichEditUnderline1
      end
      object ToolButton20: TToolButton
        Left = 146
        Top = 0
        Action = RichEditStrikeOut1
      end
      object ToolButton22: TToolButton
        Left = 169
        Top = 0
        Width = 8
        Caption = 'ToolButton22'
        ImageIndex = 33
        Style = tbsSeparator
      end
      object ToolButton21: TToolButton
        Left = 177
        Top = 0
        Caption = 'ToolButton21'
        ImageIndex = 32
      end
    end
    object ToolBar4: TToolBar
      Left = 514
      Top = 2
      Width = 69
      Height = 22
      Caption = 'ToolBar2'
      EdgeBorders = []
      Flat = True
      Images = ToolbarImages
      TabOrder = 3
      object ToolButton23: TToolButton
        Left = 0
        Top = 0
        Action = SearchFind1
      end
      object ToolButton24: TToolButton
        Left = 23
        Top = 0
        Action = SearchFindNext1
      end
      object ToolButton25: TToolButton
        Left = 46
        Top = 0
        Action = SearchReplace1
      end
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 286
    Width = 624
    Height = 19
    Panels = <
      item
        Text = 'Ready'
        Width = 200
      end
      item
        Width = 100
      end
      item
        Width = 100
      end>
  end
  object ActionList1: TActionList
    Images = ToolbarImages
    Left = 84
    Top = 88
    object EditCut1: TEditCut
      Category = 'Edit'