lazarus/examples/fontenum/mainunit.lfm

201 lines
3.7 KiB
Plaintext

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.9.0.0'
object Label3: TLabel
Left = 548
Height = 15
Top = 257
Width = 27
Caption = 'Filtro'
ParentColor = False
end
object Label4: TLabel
Left = 216
Height = 15
Top = 16
Width = 67
Caption = 'Face font list'
ParentColor = False
end
object Label5: TLabel
Left = 424
Height = 15
Top = 11
Width = 30
Caption = 'Styles'
ParentColor = False
end
object Sizes: TLabel
Left = 648
Height = 15
Top = 11
Width = 25
Caption = 'Sizes'
ParentColor = False
end
object lblCharset: TLabel
Left = 424
Height = 15
Top = 176
Width = 53
Caption = 'lblCharset'
ParentColor = False
end
object Label6: TLabel
Left = 11
Height = 15
Top = 16
Width = 26
Caption = 'Filter'
ParentColor = False
end
object lbFamily: TListBox
Left = 216
Height = 272
Top = 32
Width = 200
ItemHeight = 0
OnClick = lbFamilyClick
Options = [lboDrawFocusRect]
TabOrder = 0
end
object cbCharset: TComboBox
Left = 8
Height = 23
Top = 37
Width = 194
ItemHeight = 15
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
Options = [lboDrawFocusRect]
TabOrder = 3
end
object lbSizes: TListBox
Left = 640
Height = 272
Top = 32
Width = 56
ItemHeight = 0
OnClick = lbSizesClick
Options = [lboDrawFocusRect]
TabOrder = 4
end
object lbCharset: TListBox
Left = 424
Height = 112
Top = 192
Width = 208
ItemHeight = 0
OnClick = lbCharsetClick
Options = [lboDrawFocusRect]
TabOrder = 5
end
object cbPitch: TComboBox
Left = 8
Height = 23
Top = 61
Width = 194
ItemHeight = 15
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 = 19
Top = 312
Width = 67
Caption = 'Strikeout'
OnChange = chkStrikeChange
TabOrder = 8
end
object chkUnderLine: TCheckBox
Left = 592
Height = 19
Top = 336
Width = 74
Caption = 'UnderLine'
OnChange = chkUnderLineChange
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, goThumbTracking, goSmoothScroll]
TabOrder = 11
ColWidths = (
364
)
end
object FontDialog1: TFontDialog
MinFontSize = 0
MaxFontSize = 0
left = 312
top = 384
end
end