object frmFontSize: TfrmFontSize Left = 392 Top = 239 HelpContext = 58 BorderStyle = bsDialog Caption = 'Font' ClientHeight = 350 ClientWidth = 488 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] KeyPreview = True Position = poScreenCenter ShowHint = True OnClose = FormClose OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object OKBtn: TBitBtn Left = 234 Top = 320 Width = 77 Height = 25 Caption = 'OK' Default = True ModalResult = 1 TabOrder = 3 NumGlyphs = 2 Spacing = -1 IsControl = True end object CancelBtn: TBitBtn Left = 318 Top = 320 Width = 77 Height = 25 Cancel = True Caption = 'Cancel' ModalResult = 2 TabOrder = 4 NumGlyphs = 2 Spacing = -1 IsControl = True end object HelpBtn: TBitBtn Left = 402 Top = 320 Width = 77 Height = 25 Caption = '&Help' TabOrder = 5 OnClick = HelpBtnClick NumGlyphs = 2 Spacing = -1 IsControl = True end object gbSize: TGroupBox Left = 8 Top = 8 Width = 169 Height = 54 Caption = 'Size' TabOrder = 0 TabStop = True object lblFontSize: TLabel Left = 6 Top = 23 Width = 44 Height = 13 Caption = 'Font &Size' FocusControl = txtFontSize Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object txtFontSize: TEdit Left = 116 Top = 20 Width = 34 Height = 21 Hint = 'Absolute value (e.g., 12, 14, etc.) or relative value (e.g., +2,' + ' -1, etc.)' Ctl3D = True Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentCtl3D = False ParentFont = False TabOrder = 0 Text = '1' end object ud1: TUpDown Left = 150 Top = 20 Width = 13 Height = 19 Min = -1000 Max = 1000 Position = 0 TabOrder = 1 Thousands = False Wrap = False OnClick = ud1Click end object ud2: TUpDown Left = 103 Top = 20 Width = 13 Height = 19 Min = -1000 Max = 1000 Position = 0 TabOrder = 2 Thousands = False Wrap = False OnClick = ud2Click end end object gbColor: TGroupBox Left = 184 Top = 8 Width = 297 Height = 54 Caption = 'Color' TabOrder = 1 object lblFontColor: TLabel Left = 6 Top = 23 Width = 48 Height = 13 Caption = 'Font &Color' FocusControl = txtColor Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object shpBGColor: TShape Left = 192 Top = 16 Width = 25 Height = 27 end object txtColor: TComboBox Left = 96 Top = 20 Width = 89 Height = 21 Hint = 'Color can be in either text or hex format' ItemHeight = 13 Items.Strings = ( 'Aqua' 'Black' 'Blue' 'Fuchsia' 'Gray' 'Green' 'Lime' 'Maroon' 'Navy' 'Olive' 'Purple' 'Red' 'Silver' 'Teal' 'White' 'Yellow') TabOrder = 0 OnChange = txtColorChange end object bbtnSetColor: TBitBtn Left = 224 Top = 16 Width = 61 Height = 27 Hint = 'Set the font'#39's color' Caption = 'C&olor' TabOrder = 1 OnClick = bbtnSetColorClick Glyph.Data = { DE000000424DDE0000000000000076000000280000000F0000000D0000000100 0400000000006800000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00444444444444 444F4CCCCCC4BBBBBB4F4CCCCCC4BBBBBB4F4CCCCCC4BBBBBB4F4CCCCCC4BBBB BB4F4CCCCCC4BBBBBB4F444444444444444F49999994AAAAAA4F49999994AAAA AA4F49999994AAAAAA4F49999994AAAAAA4F49999994AAAAAA4F444444444444 444F} end end object gbFace: TGroupBox Left = 8 Top = 72 Width = 473 Height = 241 Caption = 'Face' TabOrder = 2 object lblFace1: TLabel Left = 34 Top = 24 Width = 55 Height = 13 Alignment = taRightJustify Caption = 'F&irst Choice' FocusControl = txt1stChoice end object lblFace2: TLabel Left = 16 Top = 61 Width = 73 Height = 13 Alignment = taRightJustify Caption = 'S&econd Choice' Enabled = False FocusControl = txt2ndChoice end object lblFace3: TLabel Left = 29 Top = 98 Width = 60 Height = 13 Alignment = taRightJustify Caption = 'T&hird Choice' Enabled = False FocusControl = txt3rdChoice end object lblFace4: TLabel Left = 23 Top = 134 Width = 66 Height = 13 Alignment = taRightJustify Caption = 'Fo&urth Choice' Enabled = False FocusControl = txt4thChoice end object lblFace5: TLabel Left = 33 Top = 171 Width = 56 Height = 13 Alignment = taRightJustify Caption = 'Fi&fth Choice' Enabled = False FocusControl = txt5thChoice end object txt1stChoice: TEdit Left = 96 Top = 21 Width = 265 Height = 21 Hint = 'The first font the browser should try to display text in' TabOrder = 0 OnChange = txt1stChoiceChange end object txt2ndChoice: TEdit Left = 96 Top = 58 Width = 265 Height = 21 Hint = 'Font to display text in, if first choice is not available' Enabled = False TabOrder = 2 OnChange = txt2ndChoiceChange end object txt3rdChoice: TEdit Left = 96 Top = 95 Width = 265 Height = 21 Hint = 'Font to display text in, if second choice is not available' Enabled = False TabOrder = 4 OnChange = txt3rdChoiceChange end object txt4thChoice: TEdit Left = 96 Top = 131 Width = 265 Height = 21 Hint = 'Font to display text in, if third choice is not available' Enabled = False TabOrder = 6 OnChange = txt4thChoiceChange end object txt5thChoice: TEdit Left = 96 Top = 168 Width = 265 Height = 21 Hint = 'Font to display text in, if fourth choice is not available' Enabled = False TabOrder = 8 end object bbtnSelect1: TBitBtn Left = 372 Top = 18 Width = 89 Height = 25 Hint = 'Select a font from a list' Caption = 'Select' TabOrder = 1 OnClick = bbtnSelect1Click Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000130B0000130B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333333333333333333333333333333333333FFF33FFFFF33333300033000 00333337773377777333333330333300033333337FF33777F333333330733300 0333333377FFF777F33333333700000073333333777777773333333333033000 3333333337FF777F333333333307300033333333377F777F3333333333703007 33333333377F7773333333333330000333333333337777F33333333333300003 33333333337777F3333333333337007333333333337777333333333333330033 3333333333377333333333333333033333333333333733333333333333333333 3333333333333333333333333333333333333333333333333333} NumGlyphs = 2 end object bbtnSelect2: TBitBtn Left = 372 Top = 55 Width = 89 Height = 25 Hint = 'Select a font from a list' Caption = 'Select' Enabled = False TabOrder = 3 OnClick = bbtnSelect2Click Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000130B0000130B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333333333333333333333333333333333333FFF33FFFFF33333300033000 00333337773377777333333330333300033333337FF33777F333333330733300 0333333377FFF777F33333333700000073333333777777773333333333033000 3333333337FF777F333333333307300033333333377F777F3333333333703007 33333333377F7773333333333330000333333333337777F33333333333300003 33333333337777F3333333333337007333333333337777333333333333330033 3333333333377333333333333333033333333333333733333333333333333333 3333333333333333333333333333333333333333333333333333} NumGlyphs = 2 end object bbtnSelect3: TBitBtn Left = 372 Top = 92 Width = 89 Height = 25 Hint = 'Select a font from a list' Caption = 'Select' Enabled = False TabOrder = 5 OnClick = bbtnSelect3Click Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000130B0000130B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333333333333333333333333333333333333FFF33FFFFF33333300033000 00333337773377777333333330333300033333337FF33777F333333330733300 0333333377FFF777F33333333700000073333333777777773333333333033000 3333333337FF777F333333333307300033333333377F777F3333333333703007 33333333377F7773333333333330000333333333337777F33333333333300003 33333333337777F3333333333337007333333333337777333333333333330033 3333333333377333333333333333033333333333333733333333333333333333 3333333333333333333333333333333333333333333333333333} NumGlyphs = 2 end object bbtnSelect4: TBitBtn Left = 372 Top = 128 Width = 89 Height = 25 Hint = 'Select a font from a list' Caption = 'Select' Enabled = False TabOrder = 7 OnClick = bbtnSelect4Click Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000130B0000130B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333333333333333333333333333333333333FFF33FFFFF33333300033000 00333337773377777333333330333300033333337FF33777F333333330733300 0333333377FFF777F33333333700000073333333777777773333333333033000 3333333337FF777F333333333307300033333333377F777F3333333333703007 33333333377F7773333333333330000333333333337777F33333333333300003 33333333337777F3333333333337007333333333337777333333333333330033 3333333333377333333333333333033333333333333733333333333333333333 3333333333333333333333333333333333333333333333333333} NumGlyphs = 2 end object bbtnSelect5: TBitBtn Left = 372 Top = 165 Width = 89 Height = 25 Hint = 'Select a font from a list' Caption = 'Select' Enabled = False TabOrder = 9 OnClick = bbtnSelect5Click Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000130B0000130B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333333333333333333333333333333333333FFF33FFFFF33333300033000 00333337773377777333333330333300033333337FF33777F333333330733300 0333333377FFF777F33333333700000073333333777777773333333333033000 3333333337FF777F333333333307300033333333377F777F3333333333703007 33333333377F7773333333333330000333333333337777F33333333333300003 33333333337777F3333333333337007333333333337777333333333333330033 3333333333377333333333333333033333333333333733333333333333333333 3333333333333333333333333333333333333333333333333333} NumGlyphs = 2 end object btnClearChoice: TButton Left = 11 Top = 200 Width = 449 Height = 25 Hint = 'Blanks out all font face selections' Caption = 'Clear &All Choices' TabOrder = 10 OnClick = btnClearChoiceClick end end object dlgColor: TColorDialog Ctl3D = True Left = 8 Top = 320 end object dlgFont: TFontDialog Font.Color = clWindowText Font.Height = -13 Font.Name = 'System' Font.Style = [] MinFontSize = 0 MaxFontSize = 0 Options = [] Left = 40 Top = 320 end end