lazarus/examples/fontenum/mainunit.lfm

object frmMain: TfrmMain
  Left = 216
  Height = 403
  Top = 153
  Width = 709
  HorzScrollBar.Page = 713
  VertScrollBar.Page = 439
  ActiveControl = lbFamily
  Caption = 'Font Enumeration'
  ClientHeight = 403
  ClientWidth = 709
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnShow = FormShow
  ShowHint = True
  LCLVersion = '2.3.0.0'
  object lflFontFaceList: TLabel
    AnchorSideLeft.Control = lbFamily
    AnchorSideTop.Control = lblFilter
    Left = 222
    Height = 15
    Top = 16
    Width = 67
    Caption = 'Face font list'
  end
  object lblStyles: TLabel
    AnchorSideLeft.Control = lbStyles
    AnchorSideTop.Control = lblFilter
    Left = 416
    Height = 15
    Top = 16
    Width = 30
    Caption = 'Styles'
  end
  object lblSizes: TLabel
    AnchorSideLeft.Control = lbSizes
    AnchorSideTop.Control = lblFilter
    Left = 624
    Height = 15
    Top = 16
    Width = 25
    Caption = 'Sizes'
  end
  object lblCharset: TLabel
    AnchorSideLeft.Control = lbStyles
    AnchorSideTop.Control = lbSizes
    AnchorSideTop.Side = asrCenter
    Left = 416
    Height = 15
    Top = 145
    Width = 41
    Caption = 'CharSet'
  end
  object lblFilter: TLabel
    AnchorSideLeft.Control = Owner
    AnchorSideTop.Control = Owner
    Left = 16
    Height = 15
    Top = 16
    Width = 26
    BorderSpacing.Left = 16
    BorderSpacing.Top = 16
    Caption = 'Filter'
  end
  object lbFamily: TListBox
    AnchorSideLeft.Control = cbCharset
    AnchorSideLeft.Side = asrBottom
    AnchorSideTop.Control = cbCharset
    AnchorSideRight.Control = lbStyles
    Left = 222
    Height = 239
    Top = 33
    Width = 186
    Anchors = [akTop, akLeft, akRight]
    BorderSpacing.Left = 12
    BorderSpacing.Right = 8
    ItemHeight = 0
    OnClick = lbFamilyClick
    TabOrder = 0
  end
  object cbCharset: TComboBox
    AnchorSideLeft.Control = lblFilter
    AnchorSideTop.Control = lblFilter
    AnchorSideTop.Side = asrBottom
    Left = 16
    Height = 23
    Top = 33
    Width = 194
    BorderSpacing.Top = 2
    DropDownCount = 24
    ItemHeight = 15
    TabOrder = 1
    Text = 'ANSI_CHARSET'
  end
  object btnApplyFilter: TButton
    AnchorSideLeft.Control = lblFilter
    AnchorSideTop.Control = cbPitch
    AnchorSideTop.Side = asrBottom
    Left = 16
    Height = 33
    Top = 99
    Width = 92
    AutoSize = True
    BorderSpacing.Top = 16
    BorderSpacing.InnerBorder = 4
    Caption = 'Apply filter'
    OnClick = btnApplyFilterClick
    TabOrder = 2
  end
  object lbStyles: TListBox
    AnchorSideTop.Control = cbCharset
    AnchorSideRight.Control = lbSizes
    AnchorSideBottom.Control = lblCharset
    Left = 416
    Height = 104
    Top = 33
    Width = 200
    Anchors = [akTop, akRight, akBottom]
    BorderSpacing.Right = 8
    BorderSpacing.Bottom = 8
    ItemHeight = 0
    OnClick = lbStylesClick
    TabOrder = 3
  end
  object lbSizes: TListBox
    AnchorSideLeft.Control = chkUnderLine
    AnchorSideTop.Control = cbCharset
    AnchorSideRight.Control = Owner
    AnchorSideRight.Side = asrBottom
    AnchorSideBottom.Control = lbFamily
    AnchorSideBottom.Side = asrBottom
    Left = 624
    Height = 239
    Top = 33
    Width = 69
    Anchors = [akTop, akRight, akBottom]
    BorderSpacing.Right = 16
    ItemHeight = 0
    OnClick = lbSizesClick
    TabOrder = 4
  end
  object lbCharset: TListBox
    AnchorSideLeft.Control = lbStyles
    AnchorSideTop.Control = lblCharset
    AnchorSideTop.Side = asrBottom
    AnchorSideRight.Control = lbSizes
    AnchorSideBottom.Control = lbFamily
    AnchorSideBottom.Side = asrBottom
    Left = 416
    Height = 110
    Top = 162
    Width = 200
    Anchors = [akTop, akLeft, akRight, akBottom]
    BorderSpacing.Top = 2
    BorderSpacing.Right = 8
    ItemHeight = 0
    OnClick = lbCharsetClick
    TabOrder = 5
  end
  object cbPitch: TComboBox
    AnchorSideLeft.Control = lblFilter
    AnchorSideTop.Control = cbCharset
    AnchorSideTop.Side = asrBottom
    AnchorSideRight.Control = cbCharset
    AnchorSideRight.Side = asrBottom
    Left = 16
    Height = 23
    Top = 60
    Width = 194
    BorderSpacing.Top = 4
    DropDownCount = 24
    ItemHeight = 15
    ItemIndex = 0
    Items.Strings = (
      'DEFAULT_PITCH'
      'FIXED_PITCH'
      'VARIABLE_PITCH'
      'MONO_FONT'
    )
    TabOrder = 6
    Text = 'DEFAULT_PITCH'
  end
  object btnFontDlg: TButton
    AnchorSideLeft.Control = btnResetText
    AnchorSideTop.Control = btnResetText
    AnchorSideTop.Side = asrBottom
    AnchorSideRight.Control = btnResetText
    AnchorSideRight.Side = asrBottom
    Left = 81
    Height = 33
    Top = 321
    Width = 129
    Anchors = [akTop, akLeft, akRight]
    AutoSize = True
    BorderSpacing.Top = 8
    BorderSpacing.InnerBorder = 4
    Caption = 'Font Dlg'
    OnClick = btnFontDlgClick
    TabOrder = 7
  end
  object chkStrike: TCheckBox
    AnchorSideLeft.Control = chkUnderLine
    AnchorSideTop.Control = grid
    Left = 624
    Height = 19
    Top = 280
    Width = 65
    Caption = 'Strikeout'
    OnChange = chkStrikeChange
    TabOrder = 8
  end
  object chkUnderLine: TCheckBox
    AnchorSideLeft.Side = asrBottom
    AnchorSideTop.Control = chkStrike
    AnchorSideTop.Side = asrBottom
    AnchorSideRight.Control = lbSizes
    AnchorSideRight.Side = asrBottom
    Left = 624
    Height = 19
    Top = 303
    Width = 69
    Anchors = [akTop, akRight]
    BorderSpacing.Top = 4
    Caption = 'Underline'
    OnChange = chkUnderLineChange
    TabOrder = 9
  end
  object btnResetText: TButton
    AnchorSideTop.Control = grid
    AnchorSideRight.Control = cbPitch
    AnchorSideRight.Side = asrBottom
    Left = 81
    Height = 33
    Top = 280
    Width = 129
    Anchors = [akTop, akRight]
    AutoSize = True
    BorderSpacing.InnerBorder = 4
    Caption = 'Reset Sample Text'
    OnClick = btnResetTextClick
    TabOrder = 10
  end
  object grid: TStringGrid
    AnchorSideLeft.Control = lbFamily
    AnchorSideTop.Control = lbFamily
    AnchorSideTop.Side = asrBottom
    AnchorSideRight.Control = chkUnderLine
    AnchorSideBottom.Control = Owner
    AnchorSideBottom.Side = asrBottom
    Left = 222
    Height = 107
    Top = 280
    Width = 394
    Anchors = [akTop, akLeft, akRight, akBottom]
    AutoFillColumns = True
    BorderSpacing.Top = 8
    BorderSpacing.Right = 8
    BorderSpacing.Bottom = 16
    ColCount = 1
    DefaultRowHeight = 17
    FixedCols = 0
    FixedRows = 0
    Options = [goFixedVertLine, goFixedHorzLine, goHorzLine, goRangeSelect, goEditing, goThumbTracking, goSmoothScroll]
    TabOrder = 11
    ColWidths = (
      390
    )
  end
  object FontDialog1: TFontDialog
    MinFontSize = 0
    MaxFontSize = 0
    Left = 248
    Top = 320
  end
end