Grr. That should, of course, have read:

DEFINE CLASS myFontListener as ReportListener

ListenerType = 1

PROCEDURE EvaluateContents

LPARAMETERS nFrxRecno, oObjProperties

oObjProperties.FontName = cFont

oObjProperties.Reload = .T.

ENDPROC

ENDDEFINE

On Thu, 3 Jun 2004 14:40:12 -0700, Garrett Fitzgerald

<sarekofvulcan@gmail.com> wrote:

>

> Once you pull it down, try this.

>

> CREATE CURSOR crsrFontList ( ;

> cFont char(30))

>

> llGotFonts = AFONT(laFonts)

> FOR i = 1 TO ALEN(laFonts)

> INSERT INTO crsrFontList VALUES (laFonts(i))

> ENDFOR

>

> CREATE REPORT fontList FROM DBF("crsrFontList")

>

> loListen = CREATEOBJECT("myFontListener")

>

> REPORT FORM fontList PREVIEW OBJECT loListen

>

> DEFINE CLASS myFontListener as ReportListener

> ListenerType = 1

> PROCEDURE EvaluateContents

> LPARAMETERS nFrxRecno, oObjProperties

>

> oObjProperties.FontName = cFont oObjProperties.Reload = .T.

> ENDPROC

> ENDDEFINE

>

> On Thu, 3 Jun 2004 15:30:05 -0600, Brian Erickson <pantegra@dashley.net> wrote:

> > Cool

> > And thanks

>

>

> > -----Original Message-----

> > From: profoxtech-bounces@leafe.com [mailto:profoxtech-bounces@leafe.com] On

> > Behalf Of Ken Levy

> > Sent: Thursday, June 03, 2004 3:20 PM

> > To: profoxtech@leafe.com

> > Subject: Visual FoxPro 9.0 Beta available

> >

> > The Visual FoxPro 9.0 public beta is now available for download!

>