TheGameCreators - CodeBase - Font Tester [Regular Version]

Return to the CodeBase listing

Category: Complete Applications

Version: 3.0

Information

Uploaded: 8th Apr 2005 13:09

Modified: 8th Apr 2005 13:09

Author: 00bk

Summary

Locate the best font for your needs!

Full Description

Locate the best font for your needs!<br /> Either type in the name of your font or browse to select it; then type in the size you wish to view (optional) and voila! Perfect for finding the ideal font and size for your program.

DarkBASIC Professional Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

remstart

#################

# FONT TESTER - #

#REGULAR VERSION#

#Created by Ben #

#     Kahan     #

#################

remend

`Set the window settings for the start

cls -1

ink 0,-1

set window size 1,1

maximize window

set window title "Font Tester - Regular Version"

set text font "Arial Narrow"

set text size 16

start:

`Give the user options

cls -1

set text font "Arial Narrow"

set text size 16

print "a) Test a font only"

print "b) Test a font and size"

print "c) Exit"

print "d) About"

repeat until inkey$()="a" or inkey$()="b" or inkey$()="c" or inkey$()="d"

if inkey$()="a" then testfont()

if inkey$()="b" then testfontandsize()

if inkey$()="c" then end

if inkey$()="d" then about()

`Say what will happen if the user selects option a

function testfont()

cls -1

set text font "Arial Narrow"

set text size 16

input "Please select what font you would like to test:", selectfont$

set text font selectfont$

print "the quick brown fox jumps over the lazy dog"

print "THE QUICK BROWN FOX JUMPS OVER THE LAZY DOG"

set text font "Arial Narrow"

set text size 16

print "Press any key to continue."

wait key

goto start

endfunction

`Say what will happen if the user selects option b

function testfontandsize()

cls -1

set text font "Arial Narrow"

set text size 16

input "Please select what font you would like to test:", selectfont$

input "What size do you wish to test: ", fontsize$

set text font selectfont$

set text size val(fontsize$)

print "the quick brown fox jumps over the lazy dog"

print "THE QUICK BROWN FOX JUMPS OVER THE LAZY DOG"

set text font "Arial Narrow"

set text size 16

print "Press any key to continue."

wait key

goto start

endfunction

`Say what will happen if the user selects option d

function about()

cls -1

set text font "Arial Narrow"

set text size 16

print "Created by Ben Kahan. Also available with BlueGUI plugin."

print "Press any key to continue."

wait key

goto start

endfunction

Download

Please login to download

Comments

No comments yet.

Author Name:	00bk
CodeBase Entries:	5

CodeBase - Font Tester [Regular Version]

Information

Summary

Full Description

DarkBASIC Professional Source Code

Download

Screen Shot

Author

Comments