object FontSelFrm: TFontSelFrm Left = 376 Top = 241 BorderIcons = [] BorderStyle = bsDialog Caption = 'Font Selection' ClientHeight = 412 ClientWidth = 363 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] OldCreateOrder = False Position = poMainFormCenter Scaled = False OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object Panel1: TPanel Left = 0 Top = 149 Width = 363 Height = 263 Align = alClient TabOrder = 0 object GroupBox1: TGroupBox Left = 1 Top = 1 Width = 361 Height = 261 Align = alClient Caption = 'Sample Text' TabOrder = 0 object SampleText: TPanel Left = 2 Top = 15 Width = 357 Height = 244 Align = alClient BevelOuter = bvNone Caption = 'AaBbYyZz' TabOrder = 0 end end end object Panel2: TPanel Left = 0 Top = 0 Width = 363 Height = 149 Align = alTop TabOrder = 1 DesignSize = ( 363 149) object Label1: TLabel Left = 8 Top = 6 Width = 21 Height = 13 Caption = 'Font' end object Label2: TLabel Left = 186 Top = 6 Width = 20 Height = 13 Caption = 'Size' end object Label3: TLabel Left = 8 Top = 71 Width = 58 Height = 13 Caption = 'Background' end object Label4: TLabel Left = 153 Top = 71 Width = 54 Height = 13 Caption = 'Foreground' end object SizeComboBox: TComboBox Left = 184 Top = 23 Width = 49 Height = 24 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -15 Font.Name = 'MS Sans Serif' Font.Style = [] ItemHeight = 16 ParentFont = False TabOrder = 0 Text = 'SizeComboBox' OnChange = SizeComboBoxChange Items.Strings = ( '8' '9' '10' '11' '12' '13' '14' '16' '18' '20' '22' '24' '26' '28' '30' '32' '34' '36' '38' '40' '42') end object ckShowFont: TCheckBox Left = 8 Top = 50 Width = 257 Height = 18 Caption = 'Show Font Faces' Checked = True State = cbChecked TabOrder = 1 OnClick = ckShowFontClick end object pnlFontComboBox: TPanel Left = 8 Top = 23 Width = 169 Height = 29 BevelOuter = bvNone Caption = 'Font ComboBox' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -15 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 2 end object pnlBGColorCmb: TPanel Left = 8 Top = 86 Width = 134 Height = 20 BevelOuter = bvNone Caption = 'Color Combo' TabOrder = 3 end object pnlFGColorCmb: TPanel Left = 151 Top = 86 Width = 134 Height = 20 BevelOuter = bvNone Caption = 'Color Combo' TabOrder = 4 end object OKBtn: TBitBtn Left = 280 Top = 7 Width = 75 Height = 25 Anchors = [akTop, akRight] TabOrder = 5 OnClick = OKBtnClick Kind = bkOK end object CancelBtn: TBitBtn Left = 280 Top = 35 Width = 75 Height = 25 Anchors = [akTop, akRight] TabOrder = 6 OnClick = CancelBtnClick Kind = bkCancel end end object FGColorDlg: TColorDialog Left = 312 Top = 72 end object BGColorDlg: TColorDialog Left = 312 Top = 104 end end