mommentframe.dfm

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

object FrameMomment: TFrameMomment
  Left = 0
  Top = 0
  Width = 385
  Height = 241
  AutoSize = True
  TabOrder = 0
  object TntLabel1: TTntLabel
    Left = 8
    Top = 64
    Width = 56
    Height = 13
    Caption = 'Begin value'
  end
  object TntLabel2: TTntLabel
    Left = 136
    Top = 64
    Width = 48
    Height = 13
    Caption = 'End value'
  end
  object TntBevel1: TTntBevel
    Left = 80
    Top = 104
    Width = 289
    Height = 10
    Shape = bsBottomLine
  end
  object TntLabel3: TTntLabel
    Left = 0
    Top = 104
    Width = 75
    Height = 13
    Caption = 'Font information'
  end
  object TntBevel2: TTntBevel
    Left = 96
    Top = 0
    Width = 273
    Height = 9
    Shape = bsBottomLine
  end
  object TntLabel4: TTntLabel
    Left = 0
    Top = 0
    Width = 91
    Height = 13
    Caption = 'General information'
  end
  object TntLabel5: TTntLabel
    Left = 8
    Top = 16
    Width = 32
    Height = 13
    Caption = 'Range'
  end
  object TntLabel6: TTntLabel
    Left = 240
    Top = 16
    Width = 48
    Height = 13
    Caption = 'HightLight'
  end
  inline MMFontFrame: TFrameFont
    Left = 8
    Top = 120
    Width = 377
    Height = 121
    TabOrder = 2
    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 edtBValue: TEdit
    Left = 8
    Top = 80
    Width = 121
    Height = 21
    Hint = 'It can only input symbol'
    TabOrder = 0
    OnKeyPress = edtBValueKeyPress
  end
  object edtEValue: TEdit
    Left = 136
    Top = 80
    Width = 105
    Height = 21
    Hint = 'It can only input symbol'
    TabOrder = 1
    OnKeyPress = edtBValueKeyPress
  end
  object cbRange: TComboBox
    Left = 8
    Top = 32
    Width = 121
    Height = 21
    Style = csDropDownList
    ItemHeight = 13
    ItemIndex = 0
    TabOrder = 3
    Text = 'MultiLine'
    OnChange = cbRangeChange
    Items.Strings = (
      'MultiLine'
      'SingleLine'
      'OneWord')
  end
  object cbHightLight: TComboBox
    Left = 240
    Top = 32
    Width = 105
    Height = 21
    Style = csDropDownList
    ItemHeight = 13
    ItemIndex = 0
    TabOrder = 4
    Text = 'Both'
    Items.Strings = (
      'Both'
      'Symbol'
      'Content')
  end
  object cbDoubleSym: TCheckBox
    Left = 136
    Top = 32
    Width = 97
    Height = 17
    Caption = 'Double Symbol'
    Checked = True
    Enabled = False
    State = cbChecked
    TabOrder = 5
    OnClick = cbDoubleSymClick
  end
end