Hi all,
I'm a regular in the Delphi forum, but my roots are in Pascal, and so I offer a tool I made for myself back when I still used Pascal. It's a program that allows you to change the font used in DOS. It's got a easy to use interface, and allows you to create and save different font tables, and then invoke them in your Pascal programs, simply by calling a procedure called MyNewFont, or whatever.
Download the package here (76kb) if you're interested. Full source included - but mind you it's from my early days, so the formatting is not that good
To use it:
Create, Load and Save the font files in the studio, and press Alt-M to make the UltraFNT unit (my personal libraries were Ultra-something ). Then, simply add UltraFNT to your program's uses clause, and make a call to MyNewFont (if the font table was called MyNew) to change the Font set. Make a call to StandardFont to go back to the original.
The fonts only work if you're in DOS, or full-screen mode in Windows (Windows disregards the system calls when the dos box is in a window).
The Font Studio program uses routines in some of my other libraries, which are also included in the package. There's no need to reference them in your programs.
I hope this is useful to somebody.
I'm a regular in the Delphi forum, but my roots are in Pascal, and so I offer a tool I made for myself back when I still used Pascal. It's a program that allows you to change the font used in DOS. It's got a easy to use interface, and allows you to create and save different font tables, and then invoke them in your Pascal programs, simply by calling a procedure called MyNewFont, or whatever.
Download the package here (76kb) if you're interested. Full source included - but mind you it's from my early days, so the formatting is not that good
To use it:
Create, Load and Save the font files in the studio, and press Alt-M to make the UltraFNT unit (my personal libraries were Ultra-something
). Then, simply add UltraFNT to your program's uses clause, and make a call to MyNewFont (if the font table was called MyNew) to change the Font set. Make a call to StandardFont to go back to the original.The fonts only work if you're in DOS, or full-screen mode in Windows (Windows disregards the system calls when the dos box is in a window).
The Font Studio program uses routines in some of my other libraries, which are also included in the package. There's no need to reference them in your programs.
I hope this is useful to somebody.