Fixed fonts

How can I print in Delphi  1.0 with fixed (no proportional) fonts and the PC-8 symbol set  when using the writeln commands.
I'm converting a Clipper program to Delphi, but for a while the customer has to use both. In the mean time both programs must generate output with the same style (so standard DOS print)
The output is generated by reading an ASCII txt  file, changing some fields and writing it to the printer.
Even with adding the statements ...canvas.font.name := 'Courier' and ..canvas.font.size:= 12, I still get a proportional font.
softinfoAsked:
Who is Participating?

[Product update] Infrastructure Analysis Tool is now available with Business Accounts.Learn More

x
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

fcverCommented:
To print in Delphi you should use TPrinter class.
The printed surface represented by TPrinter.Canvas property
To change print font you should set Canvas.Font.Name to
the name of fixed font.

Windows fixed fonts are : Courier TTF, Courier, FixedSys or
may be you have some another.
You can choose font which look like you need.



0

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
softinfoAuthor Commented:
I've tried this solution but it does not work completely. I've added ...font.name :='FixedSys' and ...font.size:=12 statement but I get a proportional font.
When i added some esc sequences at the beginning of the text file that  I want to print: <esc>(s0P to get fixed spacing and <esc>(10U to get PC-8 Symbol set, but this is naturally not a good final solution.
0
softinfoAuthor Commented:
Edited text of question
0
Angular Fundamentals

Learn the fundamentals of Angular 2, a JavaScript framework for developing dynamic single page applications.

fcverCommented:
Fixed font means that all letters and spaces have the same width. Courier, FixedSys are such fonts. All letter widht are the same.

That do you mean proportional, May be I didn't understand something.

Btw, have you email, my : vlads@uniyar.ac.ru
0
softinfoAuthor Commented:
The way you described fixed font is my understanding also from fixed and  proportional fonts.
So, even with adding a font.name := 'FixedSys' statement, I didn't get a fixed font. Is maybe the order of the statements (assign, font.name, writeln) important?
0
softinfoAuthor Commented:
My  email address : mark.jacobs@club.innet.be
0
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Fonts Typography

From novice to tech pro — start learning today.