Re: changing fonts and sizes III

Allen,

I don't see where fonts are loaded, only where they are destroyed.
Posting the code for both would be useful. Also, the MY-DC user
variable needs to be set with IS-MY-DC or GET-MY-DC. See the TEST
example in FormatText.F. GET-MY-DC will retrieve the DC (Device
Context - a window, printer, memory block etc) from the window in
which it is executed. IS-MY-DC expects the handle of a DC on the
stack.

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:23:57 PDT