ReportListener [بایگانی] - برنامه نویس

frahimi

شنبه 13 مهر 1387, 09:37 صبح

با سلام خدمت دوستان

دوستان عزیز اگر محبت کنند و توضیحی مختصر در باره Reportlistener و نحوه استفاده از آن
با یک مثال ارائه کنند بسیار ممنون خواهم شد . چون من از Reportlistener چیز ی نمیدانم

با تشکر

kia1349

شنبه 13 مهر 1387, 12:37 عصر

در help و مثالهای فاکس موجود است
اطلاعات بیشتر:
www.universalthread.com
www.foxite.com

Esikhoob

یک شنبه 09 فروردین 1388, 15:45 عصر

از معدود مثالهایی که روی اینترنت پیدا کردم و بدرد میخورد:

CREATE CURSOR crsrFontList (cFont char(32))

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 OBJECT loListen

DEFINE CLASS myFontListener as ReportListener
ListenerType = 1

PROCEDURE EvaluateContents
LPARAMETERS nFrxRecno, oObjProperties

oObjProperties.FontName = ALLTRIM(cFont)
oObjProperties.Reload = .T.
ENDPROC
ENDDEFINE