spewordframe.dfm

一个可以把源代码以语法高亮的形式转换成HTML格式或RTF格式。

object FrameSpeWord: TFrameSpeWord
  Left = 0
  Top = 0
  Width = 401
  Height = 222
  TabOrder = 0
  object TntLabel1: TTntLabel
    Left = 120
    Top = 32
    Width = 56
    Height = 13
    Caption = 'Begin value'
  end
  object TntLabel2: TTntLabel
    Left = 232
    Top = 32
    Width = 48
    Height = 13
    Caption = 'End value'
  end
  object TntBevel1: TTntBevel
    Left = 88
    Top = 80
    Width = 289
    Height = 10
    Shape = bsBottomLine
  end
  object TntLabel3: TTntLabel
    Left = 8
    Top = 80
    Width = 75
    Height = 13
    Caption = 'Font information'
  end
  object TntBevel2: TTntBevel
    Left = 104
    Top = 16
    Width = 273
    Height = 9
    Shape = bsBottomLine
  end
  object TntLabel4: TTntLabel
    Left = 8
    Top = 16
    Width = 91
    Height = 13
    Caption = 'General information'
  end
  inline SWFontFrame: TFrameFont
    Left = 16
    Top = 96
    Width = 377
    Height = 121
    TabOrder = 3
    inherited TntLabel2: TTntLabel
      Left = 232
    end
    inherited TntLabel4: TTntLabel
      Left = 160
    end
    inherited TntLabel3: TTntLabel
      Left = 0
    end
    inherited TntBevel1: TTntBevel
      Left = 0
    end
    inherited cbFontColor: TColorBox
      Left = 232
      Width = 105
    end
    inherited cbFontSize: TComboBox
      Left = 160
    end
    inherited CBFontName: TComboBox
      Left = 0
    end
    inherited CBUnderline: TTntCheckBox
      Width = 73
    end
    inherited pnlFontTest: TPanel
      Left = 232
      Width = 105
    end
  end
  object cbLineOnly: TTntCheckBox
    Left = 16
    Top = 48
    Width = 97
    Height = 17
    Caption = 'Line only'
    TabOrder = 0
    OnClick = cbLineOnlyClick
  end
  object edtBValue: TEdit
    Left = 120
    Top = 48
    Width = 105
    Height = 21
    TabOrder = 1
  end
  object edtEValue: TEdit
    Left = 232
    Top = 48
    Width = 105
    Height = 21
    TabOrder = 2
  end
end