inifrm.dfm

来自「关于利用DELPHI来进行企业级方案解决的著作的附书源码」· DFM 代码 · 共 87 行

object IniForm: TIniForm
  Left = 295
  Top = 185
  Width = 580
  Height = 386
  Caption = #35835#20889#21021#22987#21270#25991#20214
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Memo1: TMemo
    Left = 0
    Top = 0
    Width = 572
    Height = 340
    Align = alClient
    Lines.Strings = (
      '')
    ScrollBars = ssBoth
    TabOrder = 0
  end
  object OpenDialog1: TOpenDialog
    Left = 88
    Top = 104
  end
  object MainMenu1: TMainMenu
    Left = 120
    Top = 104
    object FileMenu: TMenuItem
      Caption = #25991#20214'(&F)'
      object FileOpen: TMenuItem
        Caption = #25171#24320'(&O)'
        OnClick = FileOpenClick
      end
      object FileExit: TMenuItem
        Caption = #36864#20986'(&E)'
        OnClick = FileExitClick
      end
      object N1: TMenuItem
        Caption = '-'
      end
    end
    object SetupMenu: TMenuItem
      Caption = #35774#32622'(&S)'
      object SetupFont: TMenuItem
        Caption = #23383#20307'(&F)'
        OnClick = SetupFontClick
      end
      object SetupColor: TMenuItem
        Caption = #39068#33394'(&C)'
        OnClick = SetupColorClick
      end
    end
    object HelpMenu: TMenuItem
      Caption = #24110#21161'(&H)'
      object HelpAbout: TMenuItem
        Caption = #20851#20110'(&A)'
        OnClick = HelpAboutClick
      end
    end
  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
    Left = 56
    Top = 104
  end
  object ColorDialog1: TColorDialog
    Ctl3D = True
    Left = 24
    Top = 104
  end
end