Article ID: 108717
Article Last Modified on 5/6/2003
APPLIES TO
- Microsoft Visual FoxPro 3.0 Standard Edition
- Microsoft Visual FoxPro 3.0b Standard Edition
- Microsoft Visual FoxPro 5.0 Standard Edition
- Microsoft Visual FoxPro 5.0a
- Microsoft Visual FoxPro 6.0 Professional Edition
This article was previously published under Q108717
SYMPTOMS
When FoxPro is printing a large number of fonts under Windows 3.x (16-bit Windows), FoxPro displays the following error message:
Additionally, Visual FoxPro then displays the following error message:
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: KB108717
