object frmFontDialog: TfrmFontDialog
  Left = 252
  Top = 98
  Hint = '|Font'
  HorzScrollBar.Visible = False
  VertScrollBar.Visible = False
  BorderIcons = [biSystemMenu]
  AutoScroll = False
  Caption = 'Font'
  ClientHeight = 253
  ClientWidth = 385
  Font.Color = clBlack
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsStayOnTop
  Icon.Data = {<image000.ico>}
  Position = poScreenCenter
  Scaled = False
  OnClose = FormClose
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 264
    Top = 92
    Width = 97
    Height = 13
    AutoSize = False
    Caption = 'Font Preview:'
  end
  object lbledt_lbxFont: TEnhLabel
    Left = 8
    Top = 8
    Width = 24
    Height = 13
    Caption = '&Font:'
    FocusControl = edt_lbxFont
  end
  object lbledt_lbxSize: TEnhLabel
    Left = 192
    Top = 8
    Width = 23
    Height = 13
    Caption = '&Size:'
    FocusControl = edt_lbxSize
  end
  object btnOk: TBitBtn
    Left = 296
    Top = 190
    Width = 81
    Height = 25
    Hint = '|Accept selected font and close dialog box'
    Caption = 'OK'
    Default = True
    Enabled = False
    ModalResult = 1
    TabOrder = 5
    OnClick = btnOkClick
    NumGlyphs = 2
    Spacing = -1
  end
  object btnCancel: TBitBtn
    Left = 296
    Top = 218
    Width = 81
    Height = 25
    Hint = '|Cancel font  dialog box'
    Cancel = True
    Caption = 'Cancel'
    ModalResult = 2
    TabOrder = 6
    OnClick = btnCancelClick
    NumGlyphs = 2
    Spacing = -1
  end
  object edtFontPreview: TLblMemo
    Left = 264
    Top = 112
    Width = 113
    Height = 57
    Hint = '|Shows currently selected font'
    TabStop = False
    Font.Color = clWindow
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    Lines.Strings = (
      'ABCDEFGHIJKLMNOPQRSTUVWXYZ'
      'abcdefghijklmnopqrstuvwxyz'
      '1234567890'
      'Preview Font and Size')
    ParentFont = False
    PopupMenu = ef_InputBoxMenu
    ReadOnly = True
    TabOrder = 7
    WordWrap = False
    OverwriteMode = False
    UndoWhenEsc = False
    WindowsUndo = False
    TabUnits = luInches
    LabelRelLeft = 0
    LabelRelTop = 0
  end
  object lbxFont: TInputListBox
    Left = 8
    Top = 56
    Width = 169
    Height = 185
    Hint = '|Available fonts'
    ItemHeight = 13
    Sorted = True
    TabOrder = 1
    AllowToggle = False
    CaseSensitive = False
    CustomColor = clBlack
    DestroyObjects = False
    ReadOnly = False
    ScrollWidth = 0
    UndoWhenEsc = False
    TabUnits = luInches
    OnChange = FontNameChanged
    AddNewToList = False
    AutoCheckInput = False
    LimitToList = True
    ResetFocus = True
    Editor = edt_lbxFont
    EditorMargin = 6
    ShowEditor = True
  end
  object edt_lbxFont: TLblEdit
    Left = 8
    Top = 29
    Width = 169
    Height = 21
    PopupMenu = ef_InputBoxMenu
    TabOrder = 0
    OverwriteMode = False
    UndoWhenEsc = False
    WordWrap = False
    LabelPos = lpTop
    LabelComponent = lbledt_lbxFont
    LabelRelLeft = 0
    LabelRelTop = -21
  end
  object lbxSize: TInputListBox
    Left = 192
    Top = 56
    Width = 57
    Height = 185
    Hint = 
      '|Available sizes for current font (True Type fonts can be any si' +
      'ze)'
    ItemHeight = 13
    TabOrder = 3
    AllowToggle = False
    CaseSensitive = False
    CustomColor = clBlack
    DestroyObjects = False
    ReadOnly = False
    ScrollWidth = 0
    UndoWhenEsc = False
    TabUnits = luInches
    OnChange = SizeChanged
    AddNewToList = False
    LimitToList = False
    ResetFocus = False
    Editor = edt_lbxSize
    EditorMargin = 6
    ShowEditor = True
    OnEdited = SizeChanged
  end
  object edt_lbxSize: TLblEdit
    Left = 192
    Top = 29
    Width = 57
    Height = 21
    Hint = '|Enter a font size (True Type fonts can be any size)'
    PopupMenu = ef_InputBoxMenu
    TabOrder = 2
    OnKeyPress = edtSizeKeyPress
    OverwriteMode = False
    UndoWhenEsc = False
    WordWrap = False
    LabelPos = lpTop
    LabelComponent = lbledt_lbxSize
    LabelRelLeft = 0
    LabelRelTop = -21
  end
  object gbxStyle: TGroupBox
    Left = 264
    Top = 20
    Width = 113
    Height = 61
    Caption = 'Style'
    TabOrder = 4
    object cbxBold: TCheckBox
      Left = 8
      Top = 16
      Width = 73
      Height = 17
      Hint = '|Set bold style'
      Caption = '&Bold'
      TabOrder = 0
      OnClick = cbxBoldClick
    end
    object cbxItalic: TCheckBox
      Left = 8
      Top = 36
      Width = 73
      Height = 17
      Hint = '|Set italic style'
      Caption = '&Italic'
      TabOrder = 1
      OnClick = cbxItalicClick
    end
  end
  object InputBoxMaster1: TInputBoxMaster
    InputBoxMenu = ef_InputBoxMenu
    OverwriteMode = False
    UseContextMenu = True
    Left = 24
    Top = 176
  end
  object ef_InputBoxMenu: TInputBoxMenu
    Left = 24
    Top = 208
    object ef_InputBoxMenu_Undo: TMenuItem
      Caption = '&Undo'
      Hint = 'Undo changes to input text'
      ShortCut = 0
    end
    object ef_InputBoxMenu_Overwrite: TMenuItem
      Tag = 1
      Caption = '&Overwrite Mode'
      Hint = 'Toggle Insert/Overwrite mode'
      ShortCut = 0
    end
    object ef_InputBoxMenu_Break1: TMenuItem
      Tag = 2
      Caption = '-'
      ShortCut = 0
    end
    object ef_InputBoxMenu_Cut: TMenuItem
      Tag = 3
      Caption = 'Cu&t'
      Hint = 'Cut selected text to clipboard'
      ShortCut = 0
    end
    object ef_InputBoxMenu_Copy: TMenuItem
      Tag = 4
      Caption = '&Copy'
      Hint = 'Copy selected text to clipboard'
      ShortCut = 0
    end
    object ef_InputBoxMenu_Paste: TMenuItem
      Tag = 5
      Caption = '&Paste'
      Hint = 'Paste text from clipboard to input box'
      ShortCut = 0
    end
    object ef_InputBoxMenu_Delete: TMenuItem
      Tag = 6
      Caption = '&Delete'
      Hint = 'Delete selected text'
      ShortCut = 0
    end
    object ef_InputBoxMenu_Clear: TMenuItem
      Tag = 7
      Caption = 'C&lear All'
      Hint = 'Clear all text from input box'
      ShortCut = 0
    end
    object ef_InputBoxMenu_Break2: TMenuItem
      Tag = 8
      Caption = '-'
      ShortCut = 0
    end
    object ef_InputBoxMenu_SelectAll: TMenuItem
      Tag = 9
      Caption = 'Select &All'
      Hint = 'Select all text in input box'
      ShortCut = 0
    end
  end
end