Re: changing fonts and sizes III

Allen,

To change font attributes, try 1 FONT Italic C! or 1 FONT Underline
C!. You'll need to become familiar with the Windows function
CreateFontIndirect and its LOGFONT structure (SwiftForth names this
object LOGICAL-FONT).

Mike

-----Original Message-----
From: sftalk-bounce_at_forth.com [mailto:sftalk-bounce_at_forth.com]On
Behalf
Of Allen Anway
Sent: Wednesday, June 25, 2003 12:15 PM
To: sftalk_at_forth.com
Subject: [sftalk] changing fonts and sizes III

Dear Forth people,

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

Thanks to these listings I am half way done with my invoice program.
I also
purchased Programming Windows by Charles Petzold, pretty heavy going.
I
note he doesn't tell how to put a cursor object into a text, which I
would
like to do someday. I found out how to do BOLD print but not itallic:
FW_BOLD FONT Weight ! when forming the fonts.

I have an index for my font names. Along with the font sizes I form
another
indexed list of windows font handles. If I call an identical
font&size
later I fetch the old handle I stored. When I make a pass of typing
across
the screen, I create all the fonts when starting and destroy all the
fonts
when stopping, thinking that this is what I should do. The program is
like
this:

: FORMAT-TESTZ ( --- )
  0 0 800 800 MY-FORMAT SET-RECT
  MY-DC SaveDC DROP ( Save DC )
  MY-FORMAT HOME-POS ( Initial XY Position )

  PRINT-ZZ

  MY-DC -1 ( Previous ) RestoreDC DROP
  A-DESTROY-FONTS ;

The program generally runs perfectly. My trouble is that after a
while of
updating the window, the fonts change from the desired to the
grotesque:
All become the same wrong size, size and font changing from scan to
scan
Even the fonts are changed of the simple editor I use. When I exit
SwiftForth, it is clear that something is consuming shutdown time.
Are
there any solutions out there?

Best wishes --- Allen

----------------------------------------------------------------------
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
----------------------------------------------------------------------

----------------------------------------------------------------------
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 Wed Jun 25 2003 - 13:32:31 PDT