DOCUMENT:Q108717  17-AUG-1999  [foxpro]
TITLE   :BUG: Resource Manager Error When Printing Lots of Fonts
PRODUCT :Microsoft FoxPro
PROD/VER:WINDOWS: 2.5x,2.6x,3.0,3.0b,5.0,5.0a,6.0
OPER/SYS:
KEYWORDS:kbbuglist

======================================================================
-------------------------------------------------------------------------------
The information in this article applies to:

 - Microsoft Visual FoxPro for Windows, versions 3.0, 3.0b, 5.0, 5.0a, 6.0 
 - Microsoft FoxPro for Windows, versions 2.5x, 2.6x 
-------------------------------------------------------------------------------

SYMPTOMS
========

When FoxPro is printing a large number of fonts under Windows 3.x (16-bit
Windows), FoxPro displays the following error message:

   Resource Manager Internal Consistency Error

Additionally, Visual FoxPro then displays the following error message:

   Win32s - Error Unhandled Exception detected. Application will be terminated.

NOTE: Visual FoxPro 3.0b for Windows prints a much greater number of fonts than
Visual FoxPro 3.0 for Windows does before displaying the error message.

CAUSE
=====

FoxPro is not properly releasing graphics device interface (GDI) resources under
Windows.

STATUS
======

Microsoft has confirmed this to be a problem in the Microsoft products listed at
the beginning of this article.

MORE INFORMATION
================

Steps to Reproduce Problem
--------------------------

The following program demonstrates the problem:

   SET TALK OFF
   CLEAR
   m.points = 10
   @ 12,20 SAY 'Enter the point size ' GET m.points PICTURE '99'
   READ
   @ 12,0
   @ 12,30 SAY 'Printing'
   SET CONSOLE OFF
   IF afont[FONTS]
      SET PRINT ON
      _PLINENO = 56
      m.counter = 1
      m.numfonts = ALEN(fonts,1)
      DO WHILE m.counter <= m.numfonts
         m.this_font = LTRIM(fonts(m.counter))
         SET CONSOLE ON
         @ 12,39 SAY SPACE(20)
         @ 12,39 SAY m.this_font
         SET CONSOLE OFF
         AFONT(sizes,(m.this_font))
         IF _PLINENO > 52
            DO rpthead
         ENDIF
         ?
         ? 'This is a 10 point sample of ' + m.this_font
         IF ALEN(sizes) = 1 .AND. TYPE('sizes(1)') = 'L' .AND. sizes(1) = .T.
            ?? '. This is a scalable font.'
         ENDIF
         ?   'ABCDEFGHIJKLMNOPQRSTUVWXYZ' + ;
             'abcdefghijklmnopqrstuvwxyz' + ;
             '1234567890!@#$%^& ; ())' FONT m.this_font,m.points
         ? 'This is ' + m.this_font + ' bold.'
         ?   'ABCDEFGHIJKLMNOPQRSTUVWXYZ' + ;
             'abcdefghijklmnopqrstuvwxyz' + ;
             '1234567890!@#$%^& ; ())' FONT m.this_font,m.points STYLE 'B'
         ? 'This is ' + m.this_font + ' italic.'
         ?   'ABCDEFGHIJKLMNOPQRSTUVWXYZ' + ;
             'abcdefghijklmnopqrstuvwxyz' + ;
             '1234567890!@#$%^& ; ())' FONT m.this_font,m.points STYLE 'I'
         ? 'This is ' + m.this_font + ' underline.'
         ?   'ABCDEFGHIJKLMNOPQRSTUVWXYZ' + ;
             'abcdefghijklmnopqrstuvwxyz' + ;
             '1234567890!@#$%^& ; ())' FONT m.this_font,m.points STYLE 'U'
         m.counter = m.counter + 1
      ENDDO
      EJECT
      SET PRINT OFF
      SET CONSOLE OFF
   ENDIF
   RETURN

   PROCEDURE rpthead
   EJECT
   _PLINENO = 1
   ?
   ? 'A LISTING OF YOUR AVAILABLE WINDOWS FONTS' AT 25
   ? '-----------------------------------------' AT 25
   ?
   RETURN

Additional query words: VFoxWin FoxWin 2.50 2.50a 2.50b 2.60 2.60a buglist2.50 buglist2.50a buglist2.50b buglist2.60 buglist3.00 kbvfp300 kbvfp500 kbvfp500a kbvfp600 buglist3.00b errmsg err msg ice

======================================================================
Keywords          :  kbbuglist
Technology        : kbVFPsearch kbAudDeveloper kbFoxproSearch kbVFP300 kbVFP300b kbVFP500 kbVFP600 kbVFP500a
Version           : WINDOWS: 2.5x,2.6x,3.0,3.0b,5.0,5.0a,6.0

=============================================================================

THE INFORMATION PROVIDED IN THE MICROSOFT KNOWLEDGE BASE IS
PROVIDED "AS IS" WITHOUT WARRANTY OF ANY KIND.  MICROSOFT DISCLAIMS
ALL WARRANTIES, EITHER EXPRESS OR IMPLIED, INCLUDING THE WARRANTIES
OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.  IN NO
EVENT SHALL MICROSOFT CORPORATION OR ITS SUPPLIERS BE LIABLE FOR
ANY DAMAGES WHATSOEVER INCLUDING DIRECT, INDIRECT, INCIDENTAL,
CONSEQUENTIAL, LOSS OF BUSINESS PROFITS OR SPECIAL DAMAGES, EVEN IF
MICROSOFT CORPORATION OR ITS SUPPLIERS HAVE BEEN ADVISED OF THE
POSSIBILITY OF SUCH DAMAGES.  SOME STATES DO NOT ALLOW THE EXCLUSION
OR LIMITATION OF LIABILITY FOR CONSEQUENTIAL OR INCIDENTAL DAMAGES
SO THE FOREGOING LIMITATION MAY NOT APPLY.

Copyright Microsoft Corporation 1999.