ASCII font display

[Steffan-68]

I have about 750 true type fonts on my computer.  Thus I needed some way to display them before I commit a program to using a particular font.  So I wrote a simple program to display all the ascii characters and the upper and lower case alphabet.   For this program it starts asking the name of the .ttf font.  One would just type in 'arial' and it will fill in the .ttf.  It then goes to a 1200x800 screen and displays the characters.  At the end it asks for another font to display. 
John

Not bad what you did there. I like it.
I just changed it so that I don't always have to enter the name of the font.

Code: (Select All)

handle& = _NewImage(1200, 800, 32)

Screen handle&

$Color:32

colorx

Color Black, LightBlue

Cls



top:

ttfont$ = _OpenFileDialog$("Font Öffnen", "", "*.ttf", "Fontdatei", 0)

If ttfont$ = "" Then End



'Input "font name: "; ttfont$

_Title "Font Display: " + ttfont$

'ttfont$ = "courbd"

Cls

height& = 20

fnt& = _LoadFont(ttfont$, height&, style$)

_Font fnt&



TextSize wide&, high& 'get the font or current screen mode's text block pixel size

For i = 1 To 255

    If i > 8 And i < 14 Then Print i; "NA",: GoTo x 'these cause screen problems (linefeed, carriage return)

    Print i; Chr$(i);

    Print " ",

    x:

    If i / 10 = Int(i / 10) Then Print



Next

Print "  "

Print " "

Print "abcdefghijklmnopqrstuvwxyz"

Print UCase$("abcdefghijklmnopqrstuvwxyz")

Print

Sleep

_Font 8

_FreeFont fnt&

GoTo top

End



Sub TextSize (TextWidth&, TextHeight&)

    TextWidth& = _PrintWidth("W") 'measure width of one font or text character

    TextHeight& = _FontHeight 'can measure normal text block heights also

End Sub

Sub colorx

    Cls

    Color Black, DarkCyan

End Sub