fontframe.dfm

来自「一个可以把源代码以语法高亮的形式转换成HTML格式或RTF格式。」· DFM 代码 · 共 114 行

object FrameFont: TFrameFont
  Left = 0
  Top = 0
  Width = 377
  Height = 123
  ParentShowHint = False
  ShowHint = True
  TabOrder = 0
  object lblFontColor: TLabel
    Left = 240
    Top = 4
    Width = 48
    Height = 13
    Caption = #23383#20307#39068#33394
  end
  object lblFontSize: TLabel
    Left = 184
    Top = 4
    Width = 48
    Height = 13
    Caption = #23383#20307#23610#23544
  end
  object lblFontName: TLabel
    Left = 8
    Top = 4
    Width = 48
    Height = 13
    Caption = #23383#20307#21517#31216
  end
  object Bevel1: TBevel
    Left = 8
    Top = 48
    Width = 169
    Height = 65
    Shape = bsFrame
  end
  object cbFontColor: TColorBox
    Left = 240
    Top = 19
    Width = 129
    Height = 22
    Style = [cbStandardColors, cbExtendedColors, cbCustomColor, cbPrettyNames]
    ItemHeight = 16
    TabOrder = 2
    OnSelect = cbFontColorSelect
  end
  object cbFontSize: TComboBox
    Left = 184
    Top = 20
    Width = 49
    Height = 21
    Style = csDropDownList
    ItemHeight = 13
    TabOrder = 1
    OnSelect = cbFontSizeSelect
  end
  object cbFontName: TComboBox
    Left = 8
    Top = 20
    Width = 169
    Height = 21
    AutoDropDown = True
    ItemHeight = 13
    TabOrder = 0
    OnExit = cbFontNameExit
    OnSelect = cbFontNameSelect
  end
  object chkItalic: TCheckBox
    Left = 13
    Top = 85
    Width = 60
    Height = 17
    Caption = #26012#20307
    TabOrder = 3
    OnClick = chkItalicClick
  end
  object chkStrikethrough: TCheckBox
    Left = 80
    Top = 85
    Width = 73
    Height = 17
    Caption = #21024#38500#32447
    TabOrder = 5
    OnClick = chkStrikethroughClick
  end
  object chkBold: TCheckBox
    Left = 13
    Top = 57
    Width = 60
    Height = 16
    Caption = #31895#20307
    TabOrder = 4
    OnClick = chkBoldClick
  end
  object chkUnderline: TCheckBox
    Left = 80
    Top = 57
    Width = 73
    Height = 17
    Caption = #19979#21010#32447
    TabOrder = 6
    OnClick = chkUnderlineClick
  end
  object pnlFontTest: TPanel
    Left = 184
    Top = 48
    Width = 185
    Height = 65
    BevelOuter = bvLowered
    Caption = '0-9 AaBb '#20013#25991
    TabOrder = 7
  end
end