object FontSelFrm: TFontSelFrm Left = 359 Top = 188 BorderIcons = [] BorderStyle = bsDialog Caption = 'FontSelFrm' ClientHeight = 202 ClientWidth = 321 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] OldCreateOrder = False Position = poMainFormCenter OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object Label1: TLabel Left = 8 Top = 6 Width = 21 Height = 13 Caption = '&Font' end object Label2: TLabel Left = 190 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 = 145 Top = 71 Width = 54 Height = 13 Caption = 'Foreground' end object OKBtn: TBitBtn Left = 241 Top = 23 Width = 73 Height = 25 TabOrder = 0 OnClick = OKBtnClick Kind = bkOK end object CancelBtn: TBitBtn Left = 241 Top = 55 Width = 73 Height = 25 TabOrder = 1 OnClick = CancelBtnClick Kind = bkCancel end object GroupBox1: TGroupBox Left = 8 Top = 119 Width = 225 Height = 73 Caption = 'Sample Text' TabOrder = 2 object SampleText: TPanel Left = 8 Top = 16 Width = 209 Height = 49 BevelOuter = bvLowered Caption = 'AaBbYyZz' TabOrder = 0 end end object FontComboBox: TFontComboBox Left = 8 Top = 23 Width = 169 Height = 23 UseFonts = True Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -15 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 3 OnChange = FontComboBoxChange 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 = 4 Text = 'SizeComboBox' OnChange = SizeComboBoxChange Items.Strings = ( '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 = 46 Width = 105 Height = 17 Caption = 'Show Font Faces' Checked = True State = cbChecked TabOrder = 5 OnClick = ckShowFontClick end object BGColorCmb: TColorComboBox Left = 8 Top = 86 Width = 89 Height = 20 ColorValue = clWhite ColorNames.Strings = ( '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' 'More...') Options = [coIncludeDefault] TabOrder = 6 OnChange = BGColorCmbChange end object FGColorCmb: TColorComboBox Left = 143 Top = 88 Width = 89 Height = 20 ColorNames.Strings = ( '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' 'More...') Options = [coIncludeDefault] TabOrder = 7 OnChange = FGColorCmbChange end object BackColorDlg: TColorDialog Ctl3D = True Left = 288 Top = 111 end object ForeColorDlg: TColorDialog Ctl3D = True OnShow = FormShow Left = 288 Top = 151 end end