symbolframe.dfm

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

object FrameSymbol: TFrameSymbol
  Left = 0
  Top = 0
  Width = 393
  Height = 255
  ParentShowHint = False
  ShowHint = True
  TabOrder = 0
  object lblBValue: TLabel
    Left = 16
    Top = 64
    Width = 42
    Height = 13
    Caption = #24320#22987#20540
  end
  object lblEValue: TLabel
    Left = 144
    Top = 64
    Width = 42
    Height = 13
    Caption = #32467#26463#20540
  end
  object Bevel1: TBevel
    Left = 32
    Top = 104
    Width = 353
    Height = 10
    Shape = bsBottomLine
  end
  object lblFont: TLabel
    Left = 8
    Top = 104
    Width = 56
    Height = 13
    Caption = #23383#20307#20449#24687
  end
  object Bevel2: TBevel
    Left = 40
    Top = 0
    Width = 345
    Height = 9
    Shape = bsBottomLine
  end
  object lblGeneral: TLabel
    Left = 8
    Top = 0
    Width = 56
    Height = 13
    Caption = #24120#35268#20449#24687
  end
  object lblRange: TLabel
    Left = 16
    Top = 16
    Width = 28
    Height = 13
    Caption = #33539#22260
  end
  object lblHightLight: TLabel
    Left = 272
    Top = 16
    Width = 56
    Height = 13
    Caption = #39640#20142#37096#20221
  end
  object lblSEC: TLabel
    Left = 272
    Top = 64
    Width = 42
    Height = 13
    Caption = #36716#20041#31526
  end
  inline SMFontFrame: TFrameFont
    Left = 8
    Top = 120
    Width = 376
    Height = 121
    ParentShowHint = False
    ShowHint = True
    TabOrder = 5
    inherited lblFontColor: TLabel
      Left = 264
    end
    inherited cbFontColor: TColorBox
      Left = 264
      Width = 105
    end
    inherited cbFontSize: TComboBox
      Width = 65
    end
    inherited chkItalic: TCheckBox
      Left = 14
    end
    inherited chkStrikethrough: TCheckBox
      Left = 83
    end
    inherited chkBold: TCheckBox
      Left = 14
    end
    inherited chkUnderline: TCheckBox
      Left = 83
    end
  end
  object edtBValue: TEdit
    Left = 16
    Top = 80
    Width = 121
    Height = 21
    TabOrder = 3
    OnKeyPress = edtBValueKeyPress
  end
  object edtEValue: TEdit
    Left = 144
    Top = 80
    Width = 113
    Height = 21
    TabOrder = 4
    OnKeyPress = edtBValueKeyPress
  end
  object cbRange: TComboBox
    Left = 16
    Top = 32
    Width = 121
    Height = 21
    Style = csDropDownList
    ItemHeight = 13
    ItemIndex = 0
    TabOrder = 0
    Text = 'MultiLine'
    OnChange = cbRangeChange
    Items.Strings = (
      'MultiLine'
      'SingleLine'
      'OneWord'
      'None')
  end
  object cbHightLight: TComboBox
    Left = 272
    Top = 32
    Width = 105
    Height = 21
    Style = csDropDownList
    ItemHeight = 13
    ItemIndex = 0
    TabOrder = 2
    Text = 'Both'
    Items.Strings = (
      'Both'
      'Symbol'
      'Content')
  end
  object cbDoubleSym: TCheckBox
    Left = 144
    Top = 32
    Width = 97
    Height = 17
    Caption = #21452#31526#21495
    Checked = True
    State = cbChecked
    TabOrder = 1
    OnClick = cbDoubleSymClick
  end
  object edtESC: TEdit
    Left = 272
    Top = 80
    Width = 105
    Height = 21
    MaxLength = 1
    TabOrder = 6
    OnKeyPress = edtBValueKeyPress
  end
end