Re: changing fonts and sizes II

Allen,

It's not too tough. It just takes time to dig through the Windows
API. I posted two files on our site (SwiftForth FAQ is still
down???):

http://www.logix-controls.com/SwiftForth/FontTools.htm
http://www.logix-controls.com/SwiftForth/FormatText.htm

You'll need to copy/paste the contents to files named FontTools.F and
FormatText.F.

First, INCLUDE FontTools.F then FormatText.F

FormatText.F has three examples SIMPLE TEST and SHOW-FILE. Type PAGE
first if your cursor is at the bottom of the console window.

Mike

-----Original Message-----
From: sftalk-bounce_at_forth.com [mailto:sftalk-bounce_at_forth.com]On
Behalf
Of Allen Anway
Sent: Thursday, May 29, 2003 12:25 PM
To: sftalk_at_forth.com
Subject: [sftalk] changing fonts and sizes II

Thanks to Glenn Dixon for his help. I tried his program on the
SwiftForth window and observed that it changed the font and made it
smaller. Also the active width for the window became smaller along
with the characters. Characters emitted in the past before the font
change became smaller also.
My ultimate goal, which may be too complex, is to make an invoicing
program. My desire is to be able to print any font anywhere just as
my cheap CAD/CAM program does, and maybe a horizontal or vertical line
or two. Other people skilled in the art tell me that the only
language that can do this is unreadable. I was hoping SwiftForth
could save the day.

Best wishes to all

----------------------------------------------------------------------
sftalk_at_forth.com The SwiftForth programming discussion email list
To unsubscribe, send subject "unsubscribe" to sftalk-request_at_forth.com
For list command help, send subject "help" to sftalk-request_at_forth.com
Message archives are located at http://www.forth.com/archive/sftalk
----------------------------------------------------------------------
This list is a forum for SwiftForth users. For product support and bug
reports, please send email to support_at_forth.com
----------------------------------------------------------------------
Received on Mon Jun 02 2003 - 11:52:13 PDT