object FontForm: TFontForm
  Left = 78
  Top = 134
  Width = 524
  Height = 316
  Caption = 'Viewer Preferences'
  Font.Color = clBlack
  Font.Height = -13
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  PixelsPerInch = 96
  Position = poScreenCenter
  OnCreate = FormCreate
  TextHeight = 16
  object Viewer: THTMLViewer
    Left = 0
    Top = 0
    Width = 327
    Height = 289
    Cursor = crIBeam
    ViewImages = True
    TabOrder = 0
    Align = alClient
    BorderStyle = htFocused
    HistoryMaxCount = 0
    DefFontName = 'Times New Roman'
    DefPreFontName = 'Courier New'
    NoSelect = False
  end
  object Panel2: TPanel
    Left = 327
    Top = 0
    Width = 189
    Height = 289
    Align = alRight
    Locked = True
    TabOrder = 1
    object Label1: TLabel
      Left = 10
      Top = 112
      Width = 21
      Height = 13
      Caption = 'Text'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label2: TLabel
      Left = 80
      Top = 8
      Width = 20
      Height = 13
      Caption = 'Link'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      WordWrap = True
    end
    object Bevel1: TBevel
      Left = 8
      Top = 240
      Width = 169
      Height = 41
      Shape = bsFrame
    end
    object Label5: TLabel
      Left = 10
      Top = 8
      Width = 61
      Height = 13
      Caption = 'Background '
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object SpeedButton2: TSpeedButton
      Tag = 1
      Left = 10
      Top = 192
      Width = 65
      Height = 17
      Hint = 'Select a color from Windows Color Palette'
      Caption = 'Color Palette'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      OnClick = SpeedButton2Click
    end
    object SpeedButton3: TSpeedButton
      Tag = 2
      Left = 10
      Top = 88
      Width = 65
      Height = 17
      Hint = 'Select a color from Windows Color Palette'
      Caption = 'Color Palette'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      OnClick = SpeedButton2Click
    end
    object SpeedButton4: TSpeedButton
      Tag = 3
      Left = 80
      Top = 88
      Width = 65
      Height = 17
      Hint = 'Select a color from Windows Color Palette'
      Caption = 'Color Palette'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      OnClick = SpeedButton2Click
    end
    object FntColorGrid: TColorGrid
      Tag = 1
      Left = 10
      Top = 128
      Width = 64
      Height = 64
      Hint = 'Use left mouse button to pick color'
      ClickEnablesColor = True
      ForegroundIndex = -1
      ForegroundEnabled = False
      BackgroundEnabled = False
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      ParentShowHint = False
      Selection = 3
      ShowHint = True
      TabOrder = 0
      TabStop = True
      OnChange = FntColorGridChange
    end
    object BitBtn1: TBitBtn
      Left = 16
      Top = 248
      Width = 70
      Height = 25
      Caption = '&OK'
      TabOrder = 1
      Kind = bkOK
    end
    object BitBtn2: TBitBtn
      Left = 96
      Top = 248
      Width = 70
      Height = 25
      Caption = '&Cancel'
      TabOrder = 2
      Kind = bkCancel
    end
    object LinkColorGrid: TColorGrid
      Tag = 3
      Left = 80
      Top = 24
      Width = 64
      Height = 64
      ClickEnablesColor = True
      ForegroundIndex = -1
      ForegroundEnabled = False
      BackgroundEnabled = False
      TabOrder = 3
      TabStop = True
      OnChange = FntColorGridChange
    end
    object BGColorGrid: TColorGrid
      Tag = 2
      Left = 10
      Top = 24
      Width = 64
      Height = 64
      ClickEnablesColor = True
      ForegroundIndex = -1
      ForegroundEnabled = False
      BackgroundEnabled = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 4
      TabStop = True
      OnChange = FntColorGridChange
    end
    object CHK_Default: TCheckBox
      Left = 8
      Top = 220
      Width = 97
      Height = 17
      Caption = '&Save as Default'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      State = cbChecked
      TabOrder = 5
    end
    object GroupBox1: TGroupBox
      Left = 80
      Top = 120
      Width = 100
      Height = 89
      Caption = 'Set Font'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 6
      object BT_PFONT: TButton
        Left = 5
        Top = 16
        Width = 89
        Height = 25
        Caption = 'Proportional Font'
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 0
        OnClick = BT_PFONTClick
      end
      object BT_FFONT: TButton
        Left = 5
        Top = 48
        Width = 90
        Height = 25
        Caption = 'Fixed Font'
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 1
        OnClick = BT_FFONTClick
      end
    end
  end
  object ColorDialog1: TColorDialog
    Left = 440
    Top = 200
  end
  object FontDialog1: TFontDialog
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'System'
    Font.Style = []
    MinFontSize = 0
    MaxFontSize = 0
    Left = 352
    Top = 200
  end
  object FontDialog2: TFontDialog
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'System'
    Font.Style = []
    MinFontSize = 0
    MaxFontSize = 0
    Options = []
    Left = 479
    Top = 24
  end
end