>Here's David's email follow up he sent to me:
>
>******************************
>Thank you for the suggestions on my font problem.
>
>I checked my fonts through the control panel and discovered I had 396
>fonts. I scrolled to the end of my list and started to delete some (that
>I didn't recognize) and realized this might be dumb--I should have a
>backup of these.
>
>To shorten the story, I deleted 6 of my fonts--I now have 390 fonts--and
>it works OK! Unfortunately, I don't know which fonts I deleted. They may
>have started with Z..
>
>Thank you for your help!
>David Crawford
>***************************************************
>
>I'm glad it worked. The thanks go, actually, to David Frankenbach for this suggestion!
Everybody,
This is an old VFP 3.0 bug that comes from having too many fonts in your font directory. There is a freeware patch that can be run in a program whenever you need to change fonts on a property that will work around this problem. The code is:
=ASELOBJ(tarray)
getfont_result = getfont()
tarray(1).FontName = LEFT(getfont_result,AT(",",getfont_result) - 1)
Save this in a file called "formfont.prg" and run it when you need to change a font property.
HTH,
Bill
CySolutions, Medical Information Technology
You're only as good as your last
success, so . . .If it works. . .don't fix it!