KnowledgeBase Archive

An Archive of Early Microsoft KnowledgeBase Articles

View on GitHub

Q108717: BUG: Resource Manager Error When Printing Lots of Fonts

Article: Q108717
Product(s): Microsoft FoxPro
Version(s): WINDOWS: 2.5x,2.6x,3.0,3.0b,5.0,5.0a,6.0
Operating System(s): 
Keyword(s): kbbuglist
Last Modified: 17-AUG-1999

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