BUG: Resource Manager Error When Printing Lots of FontsLast reviewed: December 18, 1996Article ID: Q108717 |
The information in this article applies to:
SYMPTOMSWhen 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 ErrorAdditionally, 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.
CAUSEFoxPro is not properly releasing graphics device interface (GDI) resources under Windows.
STATUSMicrosoft has confirmed this to be a problem in the Microsoft products listed at the beginning of this article. We are researching this problem and will post new information here in the Microsoft Knowledge Base as it becomes available.
MORE INFORMATION
Steps to Reproduce ProblemThe 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 m.sizes = 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 OFFENDIF RETURN PROCEDURE rpthead EJECT _PLINENO = 1 ? ? 'A LISTING OF YOUR AVAILABLE WINDOWS FONTS' AT 25 ? '-----------------------------------------' AT 25 ? RETURN
|
Additional reference words: VFoxWin 3.00 3.00b FoxWin 2.50 2.50a 2.50b 2.60
© 1998 Microsoft Corporation. All rights reserved. Terms of Use. |