IT.SOFT 22/ITSOFTCD_22.iso/pc/shareware22/file/HTMLTOOL.ZIP/HTMLTOOL.exe/0/RCDATA/TFRMFONT/TFRMFONT.txt

Text File | 1998-01-30 | 5.0 KB | 229 lines

object FrmFont: TFrmFont
  Left = 320
  Top = 140
  BorderStyle = bsDialog
  Caption = 'Font'
  ClientHeight = 215
  ClientWidth = 303
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'System'
  Font.Style = []
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 16
  object lbl1stChoice: TLabel
    Left = 8
    Top = 80
    Width = 49
    Height = 13
    Caption = '&1st choice'
    FocusControl = cb1stChoice
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object lbl2ndChoice: TLabel
    Left = 8
    Top = 112
    Width = 53
    Height = 13
    Caption = '&2nd choice'
    Enabled = False
    FocusControl = cb2ndChoice
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object lblSize: TLabel
    Left = 8
    Top = 144
    Width = 20
    Height = 13
    Caption = '&Size'
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object lblColor: TLabel
    Left = 8
    Top = 16
    Width = 24
    Height = 13
    Caption = '&Color'
    FocusControl = cbColor
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object btnOK: TButton
    Left = 112
    Top = 184
    Width = 89
    Height = 25
    Caption = 'OK'
    Default = True
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ModalResult = 1
    ParentFont = False
    TabOrder = 5
  end
  object btnCancel: TButton
    Left = 208
    Top = 184
    Width = 89
    Height = 25
    Caption = 'Cancel'
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ModalResult = 2
    ParentFont = False
    TabOrder = 6
  end
  object btnColor: TBitBtn
    Left = 200
    Top = 16
    Width = 97
    Height = 22
    Hint = 'Select font color'
    Caption = 'Select color'
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 1
    OnClick = btnColorClick
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      0400000000000001000000000000000000000000000000000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777703333300
      7777777788888888777777733B7B7B7B007777788777777788777737B7B74447
      B707778777778FF77787737B117B44447B707877FF77888F777833B99917B744
      B7B0887888F7778877783B7B997B7B7B7B70877788777777777837B7B7B7B000
      073087777777788887883B222B7B70F40707877FF77778F8878737AA27B7B000
      40778788F777788888773BAA7B7B7B737407878877777778788737B7B555B730
      778087777FFF778877883F7BFFF57B0777008777888F7787778833F7BFF7B307
      7700887778877887778873FF7B7B70777770787F7777787777787733FFF30777
      77777788FFF88777777777733333777777777778888877777777}
    NumGlyphs = 2
  end
  object pnlColor: TPanel
    Left = 72
    Top = 47
    Width = 121
    Height = 23
    Hint = 'Current color'
    BevelInner = bvRaised
    BevelOuter = bvLowered
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 7
  end
  object cbColor: TComboBox
    Left = 72
    Top = 16
    Width = 121
    Height = 21
    Hint = 'Enter color name here'
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ItemHeight = 13
    Items.Strings = (
      'Aqua'
      'Black'
      'Blue'
      'Fuchsia'
      'Gray'
      'Green'
      'Lime'
      'Maroon'
      'Navy'
      'Olive'
      'Purple'
      'Red'
      'Silver'
      'Teal'
      'White'
      'Yellow')
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 0
    OnChange = cbColorChange
  end
  object EditSize: TEdit
    Left = 72
    Top = 144
    Width = 121
    Height = 21
    Hint = 'Font size (either absolute or relative)'
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 4
  end
  object cb1stChoice: TComboBox
    Left = 72
    Top = 80
    Width = 225
    Height = 21
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ItemHeight = 13
    ParentFont = False
    Sorted = True
    TabOrder = 2
    OnChange = cb1stChoiceChange
  end
  object cb2ndChoice: TComboBox
    Left = 72
    Top = 112
    Width = 225
    Height = 21
    Enabled = False
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ItemHeight = 13
    ParentFont = False
    Sorted = True
    TabOrder = 3
  end
  object DlgColor: TColorDialog
    Ctl3D = True
    Left = 8
    Top = 184
  end
end