dialogfrm.dfm

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

object Form1: TForm1
  Left = 305
  Top = 125
  Width = 472
  Height = 445
  Caption = #28014#21160#24037#20855#26639#28436#31034#31243#24207
  Color = clBtnFace
  DockSite = True
  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>
    DragKind = dkDock
    DragMode = dmAutomatic
    Images = ImageList1
    OnEndDock = CoolBar1EndDock
    object ToolBar1: TToolBar
      Left = 9
      Top = 0
      Width = 447
      Height = 25
      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 = 23
        Top = 0
        Caption = #25171#24320'(&O)'
        ImageIndex = 1
        MenuItem = FileOpen
      end
      object SaveToolButton: TToolButton
        Left = 46
        Top = 0
        Caption = #20445#23384'(&S)'
        ImageIndex = 2
        MenuItem = FileSave
      end
      object ToolButton4: TToolButton
        Left = 69
        Top = 0
        Width = 8
        Caption = 'ToolButton4'
        ImageIndex = 3
        Style = tbsSeparator
      end
      object FindToolButton: TToolButton
        Left = 77
        Top = 0
        Caption = #26597#25214'(&S)'
        ImageIndex = 14
        MenuItem = EditFind
      end
      object ReplaceToolButton: TToolButton
        Left = 100
        Top = 0
        Caption = #26367#25442'(&R)'
        ImageIndex = 15
        MenuItem = EditReplace
      end
      object ToolButton14: TToolButton
        Left = 123
        Top = 0
        Width = 8
        Caption = 'ToolButton14'
        ImageIndex = 17
        Style = tbsSeparator
      end
      object FontToolButton: TToolButton
        Left = 131
        Top = 0
        Caption = #23383#20307'(&F)'
        ImageIndex = 21
        MenuItem = EditFont
      end
      object ColorToolButton: TToolButton
        Left = 154
        Top = 0
        Caption = #32972#26223#33394'(&C)'
        ImageIndex = 19
        MenuItem = EditColor
      end
      object ToolButton7: TToolButton
        Left = 177
        Top = 0
        Width = 8
        Caption = 'ToolButton7'
        ImageIndex = 5
        Style = tbsSeparator
      end
      object UndoToolButton: TToolButton
        Left = 185
        Top = 0
        Hint = #25764#38144
        Caption = 'UndoToolButton'
        ImageIndex = 8
        OnClick = UndoToolButtonClick
      end
      object WrapToolButton: TToolButton
        Left = 208
        Top = 0
        Hint = #25991#23383#22238#32469
        ImageIndex = 13
        Style = tbsCheck
        OnClick = WrapToolButtonClick
      end
      object CutToolButton: TToolButton
        Left = 231
        Top = 0
        Hint = #21098#20999
        Caption = 'CutToolButton'
        ImageIndex = 5
        OnClick = CutToolButtonClick
      end
      object CopyToolButton: TToolButton
        Left = 254
        Top = 0
        Hint = #22797#21046
        Caption = 'CopyToolButton'
        ImageIndex = 6
        OnClick = CopyToolButtonClick
      end
      object PasteToolButton: TToolButton
        Left = 277
        Top = 0
        Hint = #31896#36148
        Caption = 'PasteToolButton'
        ImageIndex = 7
        OnClick = PasteToolButtonClick
      end
      object ToolButton12: TToolButton
        Left = 300
        Top = 0
        Width = 8
        Caption = 'ToolButton12'
        ImageIndex = 9
        Style = tbsSeparator
      end
      object HelpToolButton: TToolButton
        Left = 308
        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
        Hint = #21152#31895
        ImageIndex = 17
        Style = tbsCheck
        OnClick = BoldToolButtonClick
      end
      object ItalicToolButton: TToolButton
        Left = 249
        Top = 0
        Hint = #26012#20307
        ImageIndex = 18
        Style = tbsCheck
        OnClick = ItalicToolButtonClick
      end
      object UnderlineToolButton: TToolButton
        Left = 272
        Top = 0
        Hint = #19979#21010#32447
        ImageIndex = 22
        Style = tbsCheck
        OnClick = UnderlineToolButtonClick
      end
      object ToolButton23: TToolButton
        Left = 295
        Top = 0
        Width = 10
        Caption = 'ToolButton23'
        ImageIndex = 7
        Style = tbsSeparator
      end
      object LeftToolButton: TToolButton
        Left = 305
        Top = 0
        Hint = #24038#23545#40784
        Grouped = True
        ImageIndex = 9
        Style = tbsCheck
        OnClick = LeftToolButtonClick