lazarus/examples/fontenum/mainunit.lfm

object frmMain: TfrmMain
  Left = 33
  Height = 440
  Top = 116
  Width = 714
  HorzScrollBar.Page = 713
  VertScrollBar.Page = 439
  ActiveControl = lbFamily
  Caption = 'frmMain'
  ClientHeight = 440
  ClientWidth = 714
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnShow = FormShow
  ShowHint = True
  LCLVersion = '1.1'
  object Label3: TLabel
    Left = 548
    Height = 13
    Top = 257
    Width = 24
    Caption = 'Filtro'
    ParentColor = False
  end
  object Label4: TLabel
    Left = 216
    Height = 13
    Top = 16
    Width = 62
    Caption = 'Face font list'
    ParentColor = False
  end
  object Label5: TLabel
    Left = 424
    Height = 13
    Top = 11
    Width = 29
    Caption = 'Styles'
    ParentColor = False
  end
  object Sizes: TLabel
    Left = 648
    Height = 13
    Top = 11
    Width = 24
    Caption = 'Sizes'
    ParentColor = False
  end
  object lblCharset: TLabel
    Left = 424
    Height = 13
    Top = 176
    Width = 48
    Caption = 'lblCharset'
    ParentColor = False
  end
  object Label6: TLabel
    Left = 11
    Height = 13
    Top = 16
    Width = 24
    Caption = 'Filter'
    ParentColor = False
  end
  object lbFamily: TListBox
    Left = 216
    Height = 272
    Top = 32
    Width = 200
    ItemHeight = 0
    OnClick = lbFamilyClick
    TabOrder = 0
  end
  object cbCharset: TComboBox
    Left = 8
    Height = 21
    Top = 37
    Width = 194
    ItemHeight = 13
    TabOrder = 1
    Text = 'ANSI_CHARSET'
  end
  object Button2: TButton
    Left = 8
    Height = 25
    Top = 96
    Width = 75
    BorderSpacing.InnerBorder = 4
    Caption = 'apply filter'
    OnClick = Button2Click
    TabOrder = 2
  end
  object lbStyles: TListBox
    Left = 424
    Height = 128
    Top = 32
    Width = 208
    ItemHeight = 0
    OnClick = lbStylesClick
    TabOrder = 3
  end
  object lbSizes: TListBox
    Left = 640
    Height = 272
    Top = 32
    Width = 56
    ItemHeight = 0
    OnClick = lbSizesClick
    TabOrder = 4
  end
  object lbCharset: TListBox
    Left = 424
    Height = 112
    Top = 192
    Width = 208
    ItemHeight = 0
    OnClick = lbCharsetClick
    TabOrder = 5
  end
  object cbPitch: TComboBox
    Left = 8
    Height = 21
    Top = 61
    Width = 194
    ItemHeight = 13
    ItemIndex = 0
    Items.Strings = (
      'DEFAULT_PITCH'
      'FIXED_PITCH'
      'VARIABLE_PITCH'
      'MONO_FONT'
    )
    TabOrder = 6
    Text = 'DEFAULT_PITCH'
  end
  object BtnFontDlg: TButton
    Left = 56
    Height = 40
    Top = 368
    Width = 152
    BorderSpacing.InnerBorder = 4
    Caption = 'Font Dlg'
    OnClick = BtnFontDlgClick
    TabOrder = 7
  end
  object chkStrike: TCheckBox
    Left = 591
    Height = 17
    Top = 312
    Width = 61
    Caption = 'Strikeout'
    TabOrder = 8
  end
  object chkUnderLine: TCheckBox
    Left = 592
    Height = 17
    Top = 336
    Width = 66
    Caption = 'UnderLine'
    TabOrder = 9
  end
  object Button1: TButton
    Left = 56
    Height = 41
    Top = 312
    Width = 153
    BorderSpacing.InnerBorder = 4
    Caption = 'Reset Sample Text'
    OnClick = Button1Click
    TabOrder = 10
  end
  object grid: TStringGrid
    Left = 216
    Height = 120
    Top = 312
    Width = 368
    AutoFillColumns = True
    ColCount = 1
    DefaultRowHeight = 17
    FixedCols = 0
    FixedRows = 0
    Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goEditing, goSmoothScroll]
    TabOrder = 11
    ColWidths = (
      364
    )
  end
  object FontDialog1: TFontDialog
    Title = 'Select a font'
    MinFontSize = 0
    MaxFontSize = 0
    left = 312
    top = 384
  end
end