dialogfrm.dfm

关于利用DELPHI来进行企业级方案解决的著作的附书源码

object Form1: TForm1
  Left = 349
  Top = 153
  Width = 472
  Height = 445
  Caption = 'Action'#28436#31034#31243#24207
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object RichEdit1: TRichEdit
    Left = 0
    Top = 57
    Width = 464
    Height = 342
    Align = alClient
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    HideSelection = False
    Lines.Strings = (
      '')
    ParentFont = False
    ScrollBars = ssBoth
    TabOrder = 0
    OnSelectionChange = RichEdit1SelectionChange
  end
  object CoolBar1: TCoolBar
    Left = 0
    Top = 0
    Width = 464
    Height = 57
    Bands = <
      item
        Control = ToolBar1
        ImageIndex = -1
        Width = 460
      end
      item
        Control = ToolBar2
        ImageIndex = -1
        Width = 460
      end>
    Images = ImageList1
    object ToolBar1: TToolBar
      Left = 9
      Top = 0
      Width = 447
      Height = 25
      ButtonWidth = 27
      Caption = 'ToolBar1'
      Flat = True
      Images = ImageList1
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      object NewToolButton: TToolButton
        Left = 0
        Top = 0
        Caption = #26032#24314'(&N)'
        ImageIndex = 0
        MenuItem = FileNew
      end
      object OpenToolButton: TToolButton
        Left = 27
        Top = 0
        Hint = 'Open|Opens an existing file'
        Caption = #25171#24320'(&O)'
        ImageIndex = 1
        MenuItem = FileOpen
      end
      object SaveToolButton: TToolButton
        Left = 54
        Top = 0
        Hint = 'Save As|Saves the active file with a new name'
        Caption = #20445#23384'(&S)'
        ImageIndex = 2
        MenuItem = FileSave
      end
      object ToolButton4: TToolButton
        Left = 81
        Top = 0
        Width = 8
        Caption = 'ToolButton4'
        ImageIndex = 3
        Style = tbsSeparator
      end
      object FindToolButton: TToolButton
        Left = 89
        Top = 0
        Caption = #26597#25214'(&S)'
        ImageIndex = 14
        MenuItem = EditFind
      end
      object ReplaceToolButton: TToolButton
        Left = 116
        Top = 0
        Caption = #26367#25442'(&R)'
        ImageIndex = 15
        MenuItem = EditReplace
      end
      object ToolButton14: TToolButton
        Left = 143
        Top = 0
        Width = 8
        Caption = 'ToolButton14'
        ImageIndex = 17
        Style = tbsSeparator
      end
      object FontToolButton: TToolButton
        Left = 151
        Top = 0
        Caption = #23383#20307'(&F)'
        ImageIndex = 21
        MenuItem = EditFont
      end
      object ColorToolButton: TToolButton
        Left = 178
        Top = 0
        Caption = #32972#26223#33394'(&C)'
        ImageIndex = 19
        MenuItem = EditColor
      end
      object ToolButton7: TToolButton
        Left = 205
        Top = 0
        Width = 8
        Caption = 'ToolButton7'
        ImageIndex = 5
        Style = tbsSeparator
      end
      object UndoToolButton: TToolButton
        Left = 213
        Top = 0
        Action = EditUndo1
      end
      object WrapToolButton: TToolButton
        Left = 240
        Top = 0
        Hint = #25991#23383#22238#32469
        ImageIndex = 13
        Style = tbsCheck
        OnClick = WrapToolButtonClick
      end
      object CutToolButton: TToolButton
        Left = 267
        Top = 0
        Action = EditCut1
      end
      object CopyToolButton: TToolButton
        Left = 294
        Top = 0
        Action = EditCopy1
      end
      object PasteToolButton: TToolButton
        Left = 321
        Top = 0
        Action = EditPaste1
      end
      object ToolButton12: TToolButton
        Left = 348
        Top = 0
        Width = 8
        Caption = 'ToolButton12'
        ImageIndex = 9
        Style = tbsSeparator
      end
      object HelpToolButton: TToolButton
        Left = 356
        Top = 0
        Hint = #24110#21161
        Caption = 'HelpToolButton'
        ImageIndex = 16
      end
    end
    object ToolBar2: TToolBar
      Left = 9
      Top = 27
      Width = 447
      Height = 25
      ButtonHeight = 23
      Caption = 'ToolBar2'
      Flat = True
      Images = ImageList1
      ParentShowHint = False
      ShowHint = True
      TabOrder = 1
      object NameComboBox: TComboBox
        Left = 0
        Top = 1
        Width = 145
        Height = 21
        ItemHeight = 13
        TabOrder = 0
        Text = #23383#20307
        OnSelect = NameComboBoxSelect
      end
      object SizeComboBox: TComboBox
        Left = 145
        Top = 1
        Width = 81
        Height = 21
        ItemHeight = 13
        TabOrder = 1
        Text = #23383#21495
        OnSelect = SizeComboBoxSelect
        Items.Strings = (
          '8'
          '10'
          '12'
          '14'
          '16'
          '18'
          '20'
          '22'
          '24')
      end
      object BoldToolButton: TToolButton
        Left = 226
        Top = 0
        Action = RichEditBold1
        Style = tbsCheck
      end
      object ItalicToolButton: TToolButton
        Left = 249
        Top = 0
        Action = RichEditItalic1
        Style = tbsCheck
      end
      object UnderlineToolButton: TToolButton
        Left = 272
        Top = 0
        Action = RichEditUnderline1
        Style = tbsCheck
      end
      object ToolButton23: TToolButton
        Left = 295
        Top = 0
        Width = 10
        Caption = 'ToolButton23'
        ImageIndex = 7
        Style = tbsSeparator
      end
      object LeftToolButton: TToolButton
        Left = 305
        Top = 0
        Action = RichEditAlignLeft1
        Grouped = True