Datatid 2000 #2/Datatid-2000-02.iso/internet/databox/_setup.1/DataBox.exe/0/RCDATA/TFONTFORM/TFONTFORM.txt

Text File | 1999-12-11 | 4.4 KB | 230 lines

object FontForm: TFontForm
  Left = 208
  Top = 83
  Width = 292
  Height = 183
  Hint = 'Click here to modify the font'
  Caption = 'Publish Font Colour/Size selection'
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  ShowHint = True
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 4
    Top = 4
    Width = 249
    Height = 13
    Caption = 'Please select the Font, style and size by clicking '#39'>>'#39' '
  end
  object Label2: TLabel
    Left = 24
    Top = 45
    Width = 52
    Height = 13
    Caption = 'Font Name'
  end
  object Label3: TLabel
    Left = 24
    Top = 65
    Width = 47
    Height = 13
    Caption = 'Font Style'
  end
  object Label4: TLabel
    Left = 24
    Top = 86
    Width = 44
    Height = 13
    Hint =
      'This is converted from the Font Pitch (-1=pitch 7, 0=pitch8,  +1' +
      '=pitch 9, etc....'
    Caption = 'Font Size'
  end
  object Label5: TLabel
    Left = 4
    Top = 17
    Width = 195
    Height = 13
    Caption = 'or '#39'Clear'#39' for the browsers default settings.'
  end
  object Label6: TLabel
    Left = 24
    Top = 107
    Width = 30
    Height = 13
    Caption = 'Colour'
  end
  object OKButton: TBitBtn
    Left = 178
    Top = 129
    Width = 75
    Height = 25
    TabOrder = 0
    Kind = bkOK
  end
  object CancelButton: TBitBtn
    Left = 36
    Top = 129
    Width = 75
    Height = 25
    TabOrder = 1
    OnClick = CancelButtonClick
    Kind = bkCancel
  end
  object FontName: TEdit
    Left = 95
    Top = 41
    Width = 122
    Height = 21
    Hint = 'Leave blank for the browsers default font'
    ParentShowHint = False
    ReadOnly = True
    ShowHint = True
    TabOrder = 2
    OnExit = FontNameExit
  end
  object FontButton: TButton
    Left = 2
    Top = 40
    Width = 20
    Height = 20
    Caption = '>>'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 3
    OnClick = FontButtonClick
  end
  object ColourMenu: TComboBox
    Left = 95
    Top = 103
    Width = 73
    Height = 21
    Hint = 'Select the colour for the field'
    Color = clSilver
    DropDownCount = 16
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ItemHeight = 13
    Items.Strings = (
      'Black'
      'Maroon'
      'Green'
      'Olive'
      'Navy'
      'Purple'
      'Teal'
      'Gray'
      'Silver'
      'Red'
      'Lime'
      'Yellow'
      'Blue'
      'Fuschia'
      'Aqua'
      'White')
    ParentFont = False
    TabOrder = 4
    Text = 'Black'
    OnExit = ColourMenuExit
  end
  object ClearFontButton: TButton
    Left = 234
    Top = 40
    Width = 39
    Height = 20
    Caption = 'Clear'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 5
    OnClick = ClearFontButtonClick
  end
  object FontStyle: TComboBox
    Left = 95
    Top = 62
    Width = 121
    Height = 21
    Hint = 'Select the published style for this Font from the Popup menu'
    ItemHeight = 13
    Items.Strings = (
      'Normal'
      'Bold'
      'Italic'
      'Underline'
      'Bold Italic'
      'Normal Italic'
      'Bold Underline'
      'Bold Italic Underline'
      'Italic Underline'
      '')
    TabOrder = 6
    Text = 'Normal'
    OnExit = FontStyleExit
  end
  object FontSize: TComboBox
    Left = 95
    Top = 83
    Width = 50
    Height = 21
    Hint =
      'The Font Size is converted from the Selected Pitch by subtractin' +
      'g 9. (i.e. Pitch 8 = Publish Size -1).'
    ItemHeight = 13
    Items.Strings = (
      '-12'
      '-11'
      '-10'
      '-9'
      '-8'
      '-7'
      '-6'
      '-5'
      '-4'
      '-3'
      '-2'
      '-1'
      '0'
      '+1'
      '+2'
      '+3'
      '+4'
      '+5'
      '+6'
      '+7'
      '+8'
      '+9'
      '+10'
      '+11'
      '+12')
    TabOrder = 7
    Text = '0'
    OnExit = FontSizeExit
  end
  object FontDialog: TFontDialog
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    MinFontSize = 0
    MaxFontSize = 0
    Options = [fdForceFontExist]
    Left = 152
    Top = 65520
  end
end