mainform.lfm

object frmMain: TfrmMain
  Left = 276
  Height = 752
  Top = 299
  Width = 1057
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'FON Font Creator'
  ClientHeight = 752
  ClientWidth = 1057
  KeyPreview = True
  Menu = MainMenu
  OnClose = FormClose
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnKeyDown = FormKeyDown
  LCLVersion = '3.4.0.0'
  object gbFontProps: TGroupBox
    Left = 8
    Height = 175
    Top = 8
    Width = 290
    Caption = 'Font Properties'
    ClientHeight = 155
    ClientWidth = 286
    TabOrder = 0
    object lblFontName: TLabel
      Left = 8
      Height = 15
      Top = 8
      Width = 62
      Caption = 'Font Name:'
    end
    object edtFontName: TEdit
      Left = 80
      Height = 23
      Top = 4
      Width = 200
      TabOrder = 0
    end
    object lblCopyright: TLabel
      Left = 8
      Height = 15
      Top = 34
      Width = 56
      Caption = 'Copyright:'
    end
    object edtCopyright: TEdit
      Left = 80
      Height = 23
      Top = 30
      Width = 200
      TabOrder = 1
    end
    object lblPointSize: TLabel
      Left = 8
      Height = 15
      Top = 60
      Width = 54
      Caption = 'Point Size:'
    end
    object spnPointSize: TSpinEdit
      Left = 80
      Height = 23
      Top = 56
      Width = 55
      MaxValue = 72
      MinValue = 4
      TabOrder = 2
      Value = 10
    end
    object lblHeight: TLabel
      Left = 152
      Height = 15
      Hint = 'Change Height for All Characters in the Font'
      Top = 60
      Width = 66
      Caption = 'Font Height:'
      ParentShowHint = False
      ShowHint = True
    end
    object spnHeight: TSpinEdit
      Left = 225
      Height = 23
      Top = 56
      Width = 55
      MaxValue = 64
      MinValue = 4
      OnChange = spnHeightChange
      TabOrder = 3
      Value = 12
    end
    object cboBold: TCheckBox
      Left = 8
      Height = 19
      Top = 80
      Width = 42
      Caption = 'Bold'
      TabOrder = 4
    end
    object cboItalic: TCheckBox
      Left = 80
      Height = 19
      Top = 80
      Width = 43
      Caption = 'Italic'
      TabOrder = 5
    end
    object cboUnderline: TCheckBox
      Left = 140
      Height = 19
      Top = 80
      Width = 69
      Caption = 'Underline'
      TabOrder = 6
    end
    object lblCharSet: TLabel
      Left = 8
      Height = 15
      Top = 112
      Width = 47
      Caption = 'Char Set:'
    end
    object cmbCharSet: TComboBox
      Left = 80
      Height = 23
      Top = 108
      Width = 100
      ItemHeight = 15
      Style = csDropDownList
      TabOrder = 7
    end
    object lblPitchFamily: TLabel
      Left = 8
      Height = 15
      Top = 138
      Width = 38
      Caption = 'Family:'
    end
    object cmbPitchFamily: TComboBox
      Left = 80
      Height = 23
      Top = 134
      Width = 100
      ItemHeight = 15
      Style = csDropDownList
      TabOrder = 8
    end
  end
  object gbCharList: TGroupBox
    Left = 8
    Height = 474
    Top = 190
    Width = 306
    Caption = 'Characters'
    ClientHeight = 454
    ClientWidth = 302
    TabOrder = 1
    object lblRangeStart: TLabel
      Left = 8
      Height = 15
      Top = 8
      Width = 36
      Caption = 'Range:'
    end
    object spnRangeStart: TSpinEdit
      Left = 55
      Height = 23
      Top = 4
      Width = 60
      MaxValue = 255
      TabOrder = 0
      Value = 32
    end
    object lblRangeTo: TLabel
      Left = 120
      Height = 15
      Top = 8
      Width = 11
      Caption = 'to'
    end
    object spnRangeEnd: TSpinEdit
      Left = 140
      Height = 23
      Top = 4
      Width = 60
      MaxValue = 255
      TabOrder = 1
      Value = 127
    end
    object btnApplyRange: TButton
      Left = 210
      Height = 23
      Top = 4
      Width = 65
      Caption = 'Apply'
      TabOrder = 2
      OnClick = btnApplyRangeClick
    end
    object lstChars: TListBox
      Left = 8
      Height = 412
      Top = 32
      Width = 283
      ItemHeight = 0
      ScrollWidth = 250
      TabOrder = 3
      OnClick = lstCharsClick
      OnDrawItem = lstCharsDrawItem
    end
  end
  object gbCharEditor: TGroupBox
    Left = 322
    Height = 462
    Top = 8
    Width = 418
    Caption = 'Character Editor'
    ClientHeight = 442
    ClientWidth = 414
    TabOrder = 2
    object lblCurrentChar: TLabel
      Left = 8
      Height = 17
      Top = 4
      Width = 87
      Caption = 'Editing: 65 ''A'''
      Font.Height = -13
      Font.Style = [fsBold]
      ParentFont = False
    end
    object lblZoom: TLabel
      Left = 200
      Height = 15
      Top = 4
      Width = 35
      Caption = 'Zoom:'
    end
    object cmbZoom: TComboBox
      Left = 240
      Height = 23
      Top = 0
      Width = 60
      ItemHeight = 15
      Style = csDropDownList
      TabOrder = 0
      OnChange = cmbZoomChange
    end
    object cboShowGrid: TCheckBox
      Left = 310
      Height = 19
      Top = 2
      Width = 40
      Caption = 'Grid'
      Checked = True
      State = cbChecked
      TabOrder = 1
      OnChange = cboShowGridChange
    end
    object sbCharEdit: TScrollBox
      Left = 0
      Height = 360
      Top = 28
      Width = 406
      HorzScrollBar.Increment = 20
      HorzScrollBar.Page = 200
      HorzScrollBar.Smooth = True
      HorzScrollBar.Tracking = True
      VertScrollBar.Increment = 20
      VertScrollBar.Page = 200
      VertScrollBar.Smooth = True
      VertScrollBar.Tracking = True
      ClientHeight = 356
      ClientWidth = 402
      TabOrder = 2
      object pnlCharEdit: TPaintBox
        Left = 0
        Height = 200
        Top = 0
        Width = 200
        OnMouseDown = pnlCharEditMouseDown
        OnMouseMove = pnlCharEditMouseMove
        OnMouseUp = pnlCharEditMouseUp
        OnPaint = pnlCharEditPaint
      end
    end
    object lblCharWidth: TLabel
      Left = 8
      Height = 15
      Hint = 'Change Width for this Character'
      Top = 396
      Width = 63
      Caption = 'Char Width:'
      ParentShowHint = False
      ShowHint = True
    end
    object spnCharWidth: TSpinEdit
      Left = 80
      Height = 23
      Top = 392
      Width = 55
      MaxValue = 64
      MinValue = 1
      OnChange = spnCharWidthChange
      TabOrder = 3
      Value = 8
    end
    object btnClearChar: TButton
      Left = 145
      Height = 25
      Top = 392
      Width = 70
      Caption = 'Clear'
      TabOrder = 4
      OnClick = btnClearCharClick
    end
    object btnCopyChar: TButton
      Left = 220
      Height = 25
      Top = 392
      Width = 50
      Caption = 'Copy'
      TabOrder = 5
      OnClick = btnCopyCharClick
    end
    object btnPasteChar: TButton
      Left = 275
      Height = 25
      Top = 392
      Width = 50
      Caption = 'Paste'
      TabOrder = 6
      OnClick = btnPasteCharClick
    end
    object btnClearAll: TButton
      Left = 330
      Height = 25
      Top = 392
      Width = 78
      Caption = 'Clear All'
      TabOrder = 7
      OnClick = btnClearAllClick
    end
    object btnInvert: TButton
      Left = 8
      Height = 25
      Top = 420
      Width = 55
      Caption = 'Invert'
      TabOrder = 8
      OnClick = btnInvertClick
    end
    object btnFlipH: TButton
      Left = 68
      Height = 25
      Top = 420
      Width = 55
      Caption = 'Flip H'
      TabOrder = 9
      OnClick = btnFlipHClick
    end
    object btnFlipV: TButton
      Left = 128
      Height = 25
      Top = 420
      Width = 55
      Caption = 'Flip V'
      TabOrder = 10
      OnClick = btnFlipVClick
    end
    object btnShiftLeft: TButton
      Left = 220
      Height = 25
      Top = 420
      Width = 30
      Caption = '←'
      TabOrder = 11
      OnClick = btnShiftLeftClick
    end
    object btnShiftRight: TButton
      Left = 255
      Height = 25
      Top = 420
      Width = 30
      Caption = '→'
      TabOrder = 12
      OnClick = btnShiftRightClick
    end
    object btnShiftUp: TButton
      Left = 290
      Height = 25
      Top = 420
      Width = 30
      Caption = '↑'
      TabOrder = 14
      OnClick = btnShiftUpClick
    end
    object btnShiftDown: TButton
      Left = 325
      Height = 25
      Top = 420
      Width = 30
      Caption = '↓'
      TabOrder = 13
      OnClick = btnShiftDownClick
    end
  end
  object gbPreview: TGroupBox
    Left = 320
    Height = 160
    Top = 504
    Width = 420
    Caption = 'Preview'
    ClientHeight = 140
    ClientWidth = 416
    TabOrder = 3
    object lblPreviewText: TLabel
      Left = 8
      Height = 15
      Top = 4
      Width = 24
      Caption = 'Text:'
    end
    object edtPreviewText: TEdit
      Left = 40
      Height = 23
      Top = 0
      Width = 370
      TabOrder = 0
      OnChange = edtPreviewTextChange
    end
    object pnlPreview: TPaintBox
      Left = 2
      Height = 96
      Top = 32
      Width = 408
      OnPaint = pnlPreviewPaint
    end
  end
  object gbLineMarkers: TGroupBox
    Left = 752
    Height = 264
    Top = 8
    Width = 292
    Caption = 'Line Markers'
    ClientHeight = 244
    ClientWidth = 288
    TabOrder = 4
    object cboShowBaseline: TCheckBox
      Left = 8
      Height = 19
      Top = 20
      Width = 92
      Caption = 'Baseline (Red)'
      Checked = True
      State = cbChecked
      TabOrder = 0
      OnChange = cboShowBaselineChange
    end
    object chkShowAscender: TCheckBox
      Left = 8
      Height = 19
      Top = 44
      Width = 105
      Caption = 'Ascender (Cyan)'
      Checked = True
      State = cbChecked
      TabOrder = 1
      OnChange = chkLineMarkerChange
    end
    object chkShowDescender: TCheckBox
      Left = 8
      Height = 19
      Top = 68
      Width = 123
      Caption = 'Descender (Orange)'
      Checked = True
      State = cbChecked
      TabOrder = 2
      OnChange = chkLineMarkerChange
    end
    object chkShowXHeight: TCheckBox
      Left = 8
      Height = 19
      Top = 92
      Width = 111
      Caption = 'X-Height (Purple)'
      Checked = True
      State = cbChecked
      TabOrder = 3
      OnChange = chkLineMarkerChange
    end
    object spnAscenderLine: TSpinEdit
      Left = 220
      Height = 23
      Top = 42
      Width = 60
      MaxValue = 100
      MinValue = -1
      OnChange = spnLineMarkerChange
      TabOrder = 5
      Value = -1
    end
    object spnDescenderLine: TSpinEdit
      Left = 220
      Height = 23
      Top = 66
      Width = 60
      MaxValue = 100
      MinValue = -1
      OnChange = spnLineMarkerChange
      TabOrder = 6
      Value = -1
    end
    object spnXHeightLine: TSpinEdit
      Left = 220
      Height = 23
      Top = 90
      Width = 60
      MaxValue = 100
      MinValue = -1
      OnChange = spnLineMarkerChange
      TabOrder = 7
      Value = -1
    end
    object btnResetLines: TButton
      Left = 8
      Height = 25
      Top = 120
      Width = 90
      Caption = 'Reset to Auto'
      TabOrder = 8
      OnClick = btnResetLinesClick
    end
    object btnScanLines: TButton
      Left = 105
      Height = 25
      Top = 120
      Width = 90
      Caption = 'Scan Font'
      TabOrder = 9
      OnClick = btnScanLinesClick
    end
    object lblLineValues: TLabel
      Left = 8
      Height = 77
      Top = 155
      Width = 280
      AutoSize = False
      Caption = 'Current Values:'
      WordWrap = True
    end
    object spnAscent: TSpinEdit
      Left = 220
      Height = 23
      Top = 16
      Width = 60
      MaxValue = 64
      MinValue = 1
      OnChange = spnLineMarkerChange
      TabOrder = 4
      Value = 10
    end
  end
  object StatusBar: TStatusBar
    Left = 0
    Height = 23
    Top = 729
    Width = 1057
    Panels = <    
      item
        Width = 300
      end    
      item
        Width = 100
      end    
      item
        Width = 150
      end>
    SimplePanel = False
  end
  object MainMenu: TMainMenu
    Left = 64
    Top = 664
    object mnuFile: TMenuItem
      Caption = '&File'
      object mnuNew: TMenuItem
        Caption = '&New'
        ShortCut = 16462
        OnClick = mnuNewClick
      end
      object mnuOpen: TMenuItem
        Caption = '&Open...'
        ShortCut = 16463
        OnClick = btnLoadFontClick
      end
      object mnuSave: TMenuItem
        Caption = '&Save...'
        ShortCut = 16467
        OnClick = btnSaveFontClick
      end
      object mnuSep1: TMenuItem
        Caption = '-'
      end
      object mnuExit: TMenuItem
        Caption = 'E&xit'
        OnClick = mnuExitClick
      end
    end
    object mnuEdit: TMenuItem
      Caption = '&Edit'
      object mnuUndo: TMenuItem
        Caption = '&Undo'
        ShortCut = 16474
        OnClick = mnuUndoClick
      end
      object mnuRedo: TMenuItem
        Caption = '&Redo'
        ShortCut = 16473
        OnClick = mnuRedoClick
      end
      object mnuSep2: TMenuItem
        Caption = '-'
      end
      object mnuCopy: TMenuItem
        Caption = '&Copy Character'
        ShortCut = 16451
        OnClick = btnCopyCharClick
      end
      object mnuPaste: TMenuItem
        Caption = '&Paste Character'
        ShortCut = 16470
        OnClick = btnPasteCharClick
      end
    end
    object mnuTools: TMenuItem
      Caption = '&Tools'
      object mnuGenerateFromFont: TMenuItem
        Caption = '&Generate from System Font...'
        OnClick = mnuGenerateFromFontClick
      end
      object mnuSep4: TMenuItem
        Caption = '-'
      end
      object mnuFontMetrics: TMenuItem
        Caption = 'Font &Metrics...'
        OnClick = mnuFontMetricsClick
      end
      object mnuSep5: TMenuItem
        Caption = '-'
      end
      object mnuIncreaseWidth: TMenuItem
        Caption = '&Increase Width of All Characters'
        OnClick = mnuIncreaseWidthClick
      end
      object mnuDecreaseWidth: TMenuItem
        Caption = '&Decrease Width of All Characters'
        OnClick = mnuDecreaseWidthClick
      end
      object mnuSep6: TMenuItem
        Caption = '-'
      end
      object mnuShiftLeft: TMenuItem
        Caption = 'Shift All Characters &Left'
        OnClick = mnuShiftLeftClick
      end
      object mnuShiftRight: TMenuItem
        Caption = 'Shift All Characters &Right'
        OnClick = mnuShiftRightClick
      end
      object mnuSep7: TMenuItem
        Caption = '-'
      end
      object mnuAutoTrim: TMenuItem
        Caption = '&Auto Trim All Characters'
        OnClick = mnuAutoTrimClick
      end
      object mnuSep8: TMenuItem
        Caption = '-'
      end
      object mnuScript: TMenuItem
        Caption = 'Script Manager'
        OnClick = mnuScriptClick
      end
    end
    object mnuHelp: TMenuItem
      Caption = '&Help'
      object mnuAbout: TMenuItem
        Caption = '&About...'
        OnClick = mnuAboutClick
      end
    end
  end
  object dlgOpen: TOpenDialog
    Title = 'Open Font File'
    DefaultExt = '.FON'
    Filter = 'All Font Files|*.FON;*.FNT;*.ROM|Windows Font Files (*.FON)|*.FON|DOS BIOS Fonts (*.FNT;*.ROM)|*.FNT;*.ROM|All Files (*.*)|*.*'
    Left = 104
    Top = 664
  end
  object dlgSave: TSaveDialog
    Title = 'Save Font File'
    Filter = 'Windows Font Files (*.FON)|*.FON|DOS BIOS Fonts (*.FNT)|*.FNT|ROM Fonts (*.ROM)|*.ROM|All Files (*.*)|*.*'
    Options = [ofOverwritePrompt, ofEnableSizing, ofViewDetail]
    Left = 152
    Top = 664
  end
  object tmrPreview: TTimer
    Enabled = False
    Interval = 100
    OnTimer = tmrPreviewTimer
    Left = 200
    Top = 664
  end
end