object MainForm: TMainForm Left = 310 Top = 238 Width = 632 Height = 279 ActiveControl = FontList Caption = 'FontLister' Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] FormStyle = fsMDIForm Icon.Data = {} Menu = MainMenu OnClose = FormClose OnCreate = FormCreate OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object Panel1: TPanel Left = 0 Top = 35 Width = 624 Height = 177 Align = alClient BevelOuter = bvNone TabOrder = 2 object FontList: TListBox Left = 0 Top = 0 Width = 165 Height = 177 Hint = 'Choose the font you wanna see!' Align = alLeft ItemHeight = 13 MultiSelect = True Sorted = True TabOrder = 0 OnClick = FontListClick OnDrawItem = FontListDrawItem OnMeasureItem = FontListMeasureItem end object memFont: TMemo Left = 165 Top = 0 Width = 459 Height = 177 Align = alClient Font.Color = clWindowText Font.Height = -16 Font.Name = 'MS Sans Serif' Font.Style = [] Lines.Strings = ( 'ABCDEFGHIJKLMNOPQRSTUVWXYZ' 'abcdefghijklmnopqrstuvwxyz' '1234567890 +-*/') ParentFont = False ScrollBars = ssVertical TabOrder = 1 end end object StatusLine: TStatusBar Left = 0 Top = 212 Width = 624 Height = 21 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Panels = <> ParentFont = False SimplePanel = True SizeGrip = False end object SpeedBar: TPanel Left = 0 Top = 0 Width = 624 Height = 35 Align = alTop BevelInner = bvRaised BevelOuter = bvLowered TabOrder = 0 OnResize = SpeedBarResize object sbPrintAll: TSpeedButton Left = 5 Top = 5 Width = 25 Height = 25 Hint = 'Print all installed fonts' Glyph.Data = { C6010000424DC6010000000000007600000028000000300000000E0000000100 0400000000005001000000000000000000001000000010000000000000007B7B 7B00DEC6B500BDBDBD00FFFFFF0000FFFF00FFFFFF0000FF0000FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF000000FF00FFFFFF00FFFFFF00550000000000 0555551111111111154555000000000005555033333333303055514444444441 4154503333333330305500000000000003051111111111111414000000000000 0305033333344433000514555555444511140333333777330005033333311133 0305144444411144141503333334443303050000000000000330111111111111 1541000000000000033003333333333030301544444444415151033333333330 3030500000000003030051111111111515115000000000030300550FFFFFFFF0 30305515454444414141550FFFFFFFF030305550F00000F00005555141111151 11155504000000F000055550FFFFFFFF055555515454444414555504FFFFFFF0 555555550F00000F05555555141111151545550400000040555555550FFFFFFF F055555515444444414555044FFFFFF055555555500000000055555551111111 11555500000000005555} NumGlyphs = 3 OnClick = FilePrint end object sbExit: TSpeedButton Left = 594 Top = 5 Width = 25 Height = 25 Hint = 'Exit FontLister' Glyph.Data = { F6010000424DF601000000000000760000002800000030000000100000000100 0400000000008001000000000000000000001000000010000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00330000000000 00333377777777777F3333000000000000333301111111111033337F33333333 7F333301BBBBBBBBB0333301111111111033337F333333337F3333011BBBBBBB B0333301111111111033337F333333337F33330111BBBBBBB033330111111111 1033337F333333337F333301110BBBBBB0333301111111111033337F33333333 7F333301110BBBBBB0333301111111111033337F3333333F7F333301110BBBBB B0333301111111BB1033337F333333737F333301110BBBBBB033330111111111 1033337F333333337F333301110BBBBBB0333301111111111033337F33FFFFF3 7F333301110BBBBBB03333011EEEEEE11033337F377777F37F33330111B0BBBB B03333011EEEEEE11033337F37FFF7F37F333301110BBBBBB03333011EEEEEE1 1033337F377777337F333301110BBBBBB0333301111111111033337F33333333 7F333301E10BBBBBB0333301111111111033337FFFFFFFFF7F333301EE0BBBBB B033330000000000003333777777777773333300000000000033} Layout = blGlyphTop NumGlyphs = 3 Spacing = 0 OnClick = FileExit end object sbReset: TSpeedButton Left = 200 Top = 5 Width = 25 Height = 25 Hint = 'Clear text-window. Click+Ctrl: Show all ASCII-characters. Click+' + 'Alt: Reset to sample-text.' AllowAllUp = True Glyph.Data = { F6010000424DF601000000000000760000002800000030000000100000000100 0400000000008001000000000000000000001000000010000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00500005000555 555557777F777555F555500005005555555500000000555055557777777755F7 55550500555555555555005500055055555577F5777F57555555001105555555 5555005550055555555577FF577F5FF555550999105555555555500550050055 5555577FF77577FF5555099991055555555555005050110555555577F757777F F5555099903055555555555505099910555555FF75777777FF5555090B030555 55555005550999910555577F5F77777775F50550B0B030555555500505509990 3055577F75F77777575F55550B0B3305555555005055090B0305557757557775 7575055550BBB33055555555555550B0B03055555F55575757575055550BBB33 055555550555550B0B33555575555575755555555550BBB33055555555555550 BBB35555F55555575F55555555550BBB33055550555555550BBB555755555555 75F55555555550BBB33055555555555550BB555555555555575F55555555550B BB33555555555555550B5555555555555575555555555550BBB3} Layout = blGlyphTop NumGlyphs = 3 Spacing = 0 OnMouseDown = sbResetMouseDown end object sbPrintFont: TSpeedButton Left = 170 Top = 5 Width = 25 Height = 25 Hint = 'Print textwindow with selected font' Glyph.Data = { F6010000424DF601000000000000760000002800000030000000100000000100 0400000000008001000000000000000000001000000010000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000 000337777777777777733000F00F800F000308888888888888807F3333333333 33370880FFFFFFFF088008888888888888807FFFFFFFFFFFFFF70880F0000F0F 08800000000000000000777777777777777700000000000000000F8F8F8F8F8F 8F807F333333333333F70F8F8F8F8F8F8F8008F8F8F8F8F899F07F3333333333 373708F8F8F8F8F8AAF00F8F8F8F8F8F8F807FFFFFFFFFFFFFF70F8F8F8F8F8F 8F800000000000000000777777777777777700000000000000003330FFFFFFFF 03333337F3FFFF3F7F333330FFFFFFFF03333330F0000F0F03333337F7777373 7F333330F08F000F03333330FFFFFFFF03333337F3FF3FFF7F333330FFFFFFFF 03333330F00F000003333337F7737777733333300000000003333330FFFF0FF0 33333337F3F37F37333333333333333333333330F08F0F0333333337F7337F73 333333333333333333333330FFFF003333333337FFFF77333333333333333333 3333333000000333333333377777733333333333333333333333} NumGlyphs = 3 OnClick = sbPrintFontClick end object sbBold: TSpeedButton Left = 260 Top = 5 Width = 25 Height = 25 Hint = 'Bold font' AllowAllUp = True GroupIndex = 1 Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 0400000000000001000000000000000000001000000010000000000000009C9C 9C007F7F7F00007F7F00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00333333333333 3333333333333333333333333333333333333333333333333333333333333333 3333333344444444333333300000000333333332222222244333333300033000 3333333322243222433333330003300033333333222432224333333300033000 3333333322244222333333330000000333333333222222244333333300033000 3333333322243222433333330003300033333333222432224333333300033000 3333333322244222333333300000000333333332222222233333333333333333 3333333333333333333333333333333333333333333333333333333333333333 3333333333333333333333333333333333333333333333333333} NumGlyphs = 2 ParentFont = False OnClick = sbBoldClick end object sbItalic: TSpeedButton Left = 285 Top = 5 Width = 25 Height = 25 Hint = 'Italic font' AllowAllUp = True GroupIndex = 2 Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsItalic] Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 0400000000000001000000000000000000001000000010000000000000009C9C 9C007F7F7F00007F7F00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00333333333333 3333333333333333333333333333333333333333333333333333333333333333 3333333344444433333333300000033333333332222223333333333330023333 3333333332224333333333333200333333333333322244333333333333002333 3333333333222433333333333320033333333333332224433333333333300233 3333333333322243333333333332003333333333333222443333333333330023 3333333333332224433333333330000033333333333222223333333333333333 3333333333333333333333333333333333333333333333333333333333333333 3333333333333333333333333333333333333333333333333333} NumGlyphs = 2 ParentFont = False OnClick = sbItalicClick end object sbUnderline: TSpeedButton Left = 310 Top = 5 Width = 25 Height = 25 Hint = 'Underline font' AllowAllUp = True GroupIndex = 3 Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsUnderline] Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 0400000000000001000000000000000000001000000010000000000000009C9C 9C007F7F7F00007F7F00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00333333333333 3333333333333333333333333333333333333333444444444333333000000000 3333333222222222333333333333333333333333334444433333333330000033 3333333332222244333333330023200333333333224312243333333300333003 3333333322433224333333330033300333333333224332243333333300333003 3333333322433224333333330033300333333333224332243333333300333003 3333333322433224333333330033300333333333224432244333333000030000 3333333222232222333333333333333333333333333333333333333333333333 3333333333333333333333333333333333333333333333333333} NumGlyphs = 2 ParentFont = False OnClick = sbUnderlineClick end object sbPrintSelected: TSpeedButton Left = 35 Top = 5 Width = 25 Height = 25 Hint = 'Only print the selected font(s)' Glyph.Data = { F6010000424DF601000000000000760000002800000030000000100000000100 0400000000008001000000000000000000001000000010000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000 00033FFFFFFFFFFFFFFF30000000000000030888888888888880777777777777 777F0880FFFFFFFF08800888888888888880777777777777777F0880F0FFFF0F 08800000000000000000FFFFFFFFFFFFFFFF00000000000000000F8F8F8F8F8F 8F80777777777777777F0F8F8F8F8F8F8F8008F8F8F8F8F899F0777777777777 777F08F8F8F8F8F8AAF00F8F8F8F8F8F8F807777777777777F7F0F8F8F8F8F8F 8F800000000000000000777777777777777F00000000000000003330FFFFFFFF 03333337F3F3333F7F333330FF0000FF03333330F0FFFF0F03333337F7FF33FF 7F333330FFFFFFFF03333330F00FF00F03333337F7FFFFFF7F33333000000000 03333330F000000F03333337F7FF77FF7F3333333333333333333330F00FF00F 03333337F77FFFF37F3333333333333333333330FF0000FF03333337F3777733 7F3333333333333333333330FFFFFFFF03333337FFFFFFFFFF33333333333333 3333333000000000033333377777777773333333333333333333} NumGlyphs = 3 OnClick = sbPrintSelectedClick end object sbCompare: TSpeedButton Left = 136 Top = 5 Width = 25 Height = 25 Hint = 'Switch between edit- or browse-mode' AllowAllUp = True GroupIndex = 4 Glyph.Data = { F6010000424DF601000000000000760000002800000030000000100000000100 04000000000080010000120B0000120B00001000000010000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 33333333333333333333333333333333333333333333333333333FFFFFFFFFFF FFFF333333333333333300000000000000007777777777777777000000000000 0000FFFFFFFFFFFFFFFF333FFFFF33FFFFF3FFFFFFFFFFFFFFFFFF00000FF000 00FF3377777337777733FF0000000000000FFFFFFFFFFFFFFFFF333FFFFFF3FF FFFFFFFFFFFFFFFFFFFFFF000000F000000F3377777737777773FF0000000000 FFFFFFFFFFFFFFFFFFFF333FFFF333FFFF33FFFFFFFFFFFFFFFFFF0000FFF000 0FFF3377773337777333FF00000000000FFFFFFFFFFFFFFFFFFF333FFFFFF3FF FFFFFFFFFFFFFFFFFFFFFF000000F000000F3377777737777773FF0000000000 000FFFFFFFFFFFFFFFFF333FFFFF33FFFFF3FFFFFFFFFFFFFFFFFF00000FF000 00FF3377777337777733FF000000000000FFFFFFFFFFFFFFFFFF3FFFFFFFFFFF FFFFFFFFFFFFFFFFFFFF00000000000000007777777777777777000000000000 0000333333333333333333333333333333333333333333333333} NumGlyphs = 3 ParentShowHint = False ShowHint = False OnClick = sbCompareClick end object sbASCII: TSpeedButton Left = 230 Top = 5 Width = 25 Height = 25 Hint = 'Shows all ASCII-codes' AllowAllUp = True GroupIndex = 5 Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 33333FFFFFFFFFFFFFFF000000000000000077777777777777770FFFFFFFFFFF FFF07F3FF3FF3FF3FFF70F00F00F00F000F07F773773773777370FFFFFFFFFFF FFF07F3FF3FF3FF3FFF70F00F00F00F000F07F773773773777370FFFFFFFFFFF FFF07F3FF3FF3FF3FFF70F00F00F00F000F07F773773773777370FFFFFFFFFFF FFF07F3FF3FF3FF3FFF70F00F00F00F000F07F773773773777370FFFFFFFFFFF FFF07FFFFFFFFFFFFFF70CCCCCCCCCCCCCC07777777777777777088CCCCCCCCC C8807FF7777777777FF700000000000000007777777777777777333333333333 33333333333333333333333333333333333333333333333333330000} NumGlyphs = 2 OnClick = sbASCIIClick end object edSize: TEdit Left = 340 Top = 7 Width = 26 Height = 21 Hint = 'Change the fontsize' Ctl3D = True MaxLength = 3 ParentCtl3D = False TabOrder = 1 Text = '12' OnChange = edSizeChange end object UpDown: TUpDown Left = 366 Top = 7 Width = 15 Height = 21 Hint = 'Click uparrow to increase fontsize or downarrow to decrease font' + 'size' Associate = edSize ArrowKeys = False Min = 1 Max = 200 Position = 12 TabOrder = 0 Thousands = False Wrap = False end end object MainMenu: TMainMenu Left = 480 Top = 175 object FileMenu: TMenuItem Caption = '&File' ShortCut = 16457 object FilePrintItem: TMenuItem Caption = 'Print &All Fonts' Hint = 'Print all fonts installed on the system' ShortCut = 0 OnClick = FilePrint end object FilePrintSelectedItem: TMenuItem Caption = 'Print &Selected Font(s)' ShortCut = 0 OnClick = sbPrintSelectedClick end object OptionsPrintTextItem: TMenuItem Caption = '&Print Textwindow' Hint = 'Print text in textwindow' ShortCut = 16464 OnClick = sbPrintFontClick end object FilePrintSetupItem: TMenuItem Caption = 'P&rint Setup...' Hint = 'Change printer setup' ShortCut = 0 OnClick = FilePrintSetup end object N1: TMenuItem Caption = '-' ShortCut = 0 end object FileImportTextItem: TMenuItem Caption = 'I&mport Text...' Hint = 'Use a (text)file as sample-text' ShortCut = 16461 OnClick = FileImport end object N4: TMenuItem Caption = '-' ShortCut = 0 end object FileExitItem: TMenuItem Caption = 'E&xit' Hint = 'Exit FontLister!' ShortCut = 16465 OnClick = FileExit end end object EditMenu: TMenuItem Caption = '&Edit' ShortCut = 0 object EditCutItem: TMenuItem Caption = 'Cu&t' ShortCut = 16472 OnClick = CutClick end object EditCopyItem: TMenuItem Caption = '&Copy' ShortCut = 16451 OnClick = CopyClick end object EditPasteItem: TMenuItem Caption = '&Paste' ShortCut = 16470 OnClick = PasteClick end object N2: TMenuItem Caption = '-' ShortCut = 0 end object EditWordwrapItem: TMenuItem Caption = '&WordWrap' Checked = True ShortCut = 0 OnClick = WrapItemClick end end object StyleMenu: TMenuItem Caption = '&Styles' ShortCut = 0 object StylesBoldItem: TMenuItem Caption = '&Bold' Hint = 'Bold font' ShortCut = 16450 OnClick = StylesBold end object StylesItalicItem: TMenuItem Caption = '&Italic' Hint = 'Italic font' ShortCut = 16457 OnClick = StylesItalic end object StylesUnderlineItem: TMenuItem Caption = '&Underline' Hint = 'Underline font' ShortCut = 16469 OnClick = StylesUnderline end end object OptionsMenu: TMenuItem Caption = '&Options' ShortCut = 0 object OptionsForeItem: TMenuItem Caption = '&Foreground Color' Hint = 'Change foreground color for the selected font' ShortCut = 0 OnClick = OptionsForeItemClick end object OptionsBackItem: TMenuItem Caption = '&Background Color' Hint = 'Change background color in the textwindow' ShortCut = 0 OnClick = OptionsBackItemClick end object OptionsInfoItem: TMenuItem Caption = 'Font &Info' Hint = 'Shows height and width of selected font' ShortCut = 0 OnClick = OptionsInfo end end object HelpMenu: TMenuItem Caption = '&Help' ShortCut = 0 object HelpAboutItem: TMenuItem Caption = '&About...' Hint = 'Show program information' ShortCut = 0 OnClick = HelpAbout end end end object PrintDialog: TPrintDialog Options = [poPrintToFile, poWarning] Left = 540 Top = 175 end object PrintSetupDialog: TPrinterSetupDialog Left = 570 Top = 175 end object ColorDialog: TColorDialog Ctl3D = True Color = clNone CustomColors.Strings = ( 'ColorA=000000' 'ColorB=F00000' 'ColorC=FF0000' 'ColorD=0FF000' 'ColorE=00FF00' 'ColorF=000FF0' 'ColorG=0000FF' 'ColorH=00000F' 'ColorI=FFFFFF') Left = 510 Top = 175 end object OpenDialog: TOpenDialog DefaultExt = '*.txt' FileEditStyle = fsEdit Filter = 'Text-files(*.txt)|*.txt|All files(*.*)|*.*' Options = [ofReadOnly] Title = 'Import Text-file' Left = 450 Top = 175 end end