softinfo
asked on
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.
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.
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
ASKER
Edited text of question
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
That do you mean proportional, May be I didn't understand something.
Btw, have you email, my : vlads@uniyar.ac.ru
ASKER
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?
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?
ASKER
My email address : mark.jacobs@club.innet.be
ASKER
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.