dialogfrm.dfm

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

object Form1: TForm1
  Left = 281
  Top = 168
  Width = 472
  Height = 445
  Caption = #20844#29992#23545#35805#26694#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 = 0
    Width = 464
    Height = 399
    Align = alClient
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    Lines.Strings = (
      '')
    ParentFont = False
    ScrollBars = ssBoth
    TabOrder = 0
  end
  object OpenDialog1: TOpenDialog
    Options = [ofNoDereferenceLinks]
    Left = 32
    Top = 32
  end
  object SaveDialog1: TSaveDialog
    DefaultExt = 'txt'
    Left = 72
    Top = 32
  end
  object FontDialog1: TFontDialog
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    MinFontSize = 0
    MaxFontSize = 0
    OnApply = FontDialog1Apply
    Left = 112
    Top = 32
  end
  object ColorDialog1: TColorDialog
    Ctl3D = True
    Options = [cdFullOpen]
    Left = 152
    Top = 32
  end
  object PrintDialog1: TPrintDialog
    Options = [poPrintToFile]
    Left = 32
    Top = 64
  end
  object FindDialog1: TFindDialog
    OnFind = FindDialog1Find
    Left = 72
    Top = 64
  end
  object ReplaceDialog1: TReplaceDialog
    OnReplace = ReplaceDialog1Replace
    Left = 112
    Top = 64
  end
  object MainMenu1: TMainMenu
    Left = 152
    Top = 64
    object FileMenu: TMenuItem
      Caption = #25991#20214'(&F)'
      object FileNew: TMenuItem
        Caption = #26032#24314'(&N)'
        OnClick = FileNewClick
      end
      object FileOpen: TMenuItem
        Caption = #25171#24320'(&O)'
        OnClick = FileOpenClick
      end
      object FileSave: TMenuItem
        Caption = #20445#23384'(&S)'
        OnClick = FileSaveClick
      end
      object N2: TMenuItem
        Caption = '-'
      end
      object FilePrint: TMenuItem
        Caption = #25171#21360'(&P)'
        OnClick = FilePrintClick
      end
      object N3: TMenuItem
        Caption = '-'
      end
      object FileQuit: TMenuItem
        Caption = #36864#20986'(&X)'
        OnClick = FileQuitClick
      end
    end
    object EditMenu: TMenuItem
      Caption = #32534#36753'(&E)'
      object EditFont: TMenuItem
        Caption = #23383#20307'(&F)'
        OnClick = EditFontClick
      end
      object N6: TMenuItem
        Caption = '-'
      end
      object EditFind: TMenuItem
        Caption = #26597#25214'(&S)'
        OnClick = EditFindClick
      end
      object EditReplace: TMenuItem
        Caption = #26367#25442'(&R)'
        OnClick = EditReplaceClick
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object EditColor: TMenuItem
        Caption = #32972#26223#33394'(&C)'
        OnClick = EditColorClick
      end
    end
    object HelpMenu: TMenuItem
      Caption = #24110#21161'(&H)'
      object HelpAbout: TMenuItem
        Caption = #20851#20110'(&A)'
      end
    end
  end
end