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
----------------------------------------------------------------------
Received on Wed Jun 25 2003 - 12:27:47 PDT