2,722
社区成员
发帖
与我相关
我的任务
分享〔连载〕报表的监听器使用GDI+函数，你可以绘制自己喜欢的任何形状
〔连载〕报表的监听器使用GDI+函数，你可以绘制自己喜欢的任何形状
译者:Fbilo
SFReportListenerGraphic
ReportListener的OutputPage方法支持将报表页面们输出为图形文件。SFReportListener的一个子类SFReportListenerGraphic可以使这个任务更容易完成。它有两个自定义属性：cFileName被设置为将要建立的文件名，nFileType或者被设置为一个表示文件类型的数字、或者保留为0，在后一种情况下SFReportListenerGraphic将根据在cFileName中的文件名的扩展名来将之设置为正确的值。
如果ListenerType为2（“一次一页”模式并且不输出，这个类的默认值），OutputPage会在每一页被绘制后自动被调用。在这种情况下，OutputPage将处理输出到指定文件的工作。
如果ListenerType为3（“一次处理所有页”但不马上输出模式），报表页们只会在OutputPage被调用的时候才会输出，因此AfterReport方法将遍历所有被绘制好了的页，然后依次为每一页调用OutputPage。
如果指定的输出类型是一个多页的TIFF文件，要注意的是，第一页必须被输出为一个单的TIFF文件，然后后续的页将通过输出为一个多页TIFF文件的方式被添加到第一页的文件中。这里是取自AfterReport方法的代码；OutputPage与此类似但略为简单一些。（在这段代码中的LISTENER_* 是定义在FoxPro_Reporting.H文件中的常量，该文件被SFReporting.H所引用，而后者本身也是被本类的包含文件SFReportListener.H所引用的。）
local lcBaseName, lcExt, lnI, lcFileName
with This
dodefault()
If .ListenerType = LISTENER_TYPE_ALLPGS
if .nFileType = 0
.GetGraphicsType()
endif .nFileType = 0
lcBaseName = addbs(justpath(.cFileName)) + juststem(.cFileName)
lcExt = justext(.cFileName)
for lnI = 1 to .SharedOutputPageCount
do case
case .nFileType <> LISTENER_DEVICE_TYPE_MTIF
lcFileName = forceext(lcBaseName + padl(lnI, 3, '0'), lcExt)
.OutputPage(lnI, lcFileName, .nFileType)
case not file(.cFileName)
.OutputPage(lnI, .cFileName, LISTENER_DEVICE_TYPE_TIF)
otherwise
.OutputPage(lnI, .cFileName, .nFileType)
endcase
.DoStatus(strtran(strtran(ccSTR_PAGE_X_OF_Y, ccMSG_INSERT1, ;
transform(lnI)), ccMSG_INSERT2, ;
transform(.SharedOutputPageCount)))
next lnI
.ClearStatus()
endif .ListenerType = LISTENER_TYPE_ALLPGS
endwith
SFReportListenerGraphic 也有一个ShowFile方法可以通过使用Windows API函数 ShellExecute 来显示这个文件，该函数会自动调用该种文件类型的注册应用程序。
TestGraphicOutput.PRG 演示了SFReportListenerGraphic是如何工作的。它结合了多个listeners的效果来实现正确的绘制这个报表（这里使用了前面你见过的同一个报表TestDynamicFormatting.FRX）并输出为图形文件。
use _samples + 'Northwind\orders'
loListener = newobject('SFReportListenerGraphic', 'SFReportListener.vcx')
loListener.cFileName = fullpath('TestReport.gif')
loListener.Successor = newobject('SFReportListenerDirective', ;
'SFReportListener.vcx')
report form TestDynamicFormatting.FRX object loListener range 1, 6
loListener.ShowFile(1)
自定义的绘制
如果把Render方法和GDI+函数的能力整合起来，你就能够绘制任何东西来代替一个对象。比如一个常见的需求：在一个报表上绘制图表(chart)而不需要依赖于General字段和ActiveX控件。图4中显示的就是这么一个报表。其中的图表用列来表示各个产品类别的销售情况。不过在报表设计器中，在应该放图表的地方，你看到的将是一个矩形。
TestCustomRendering.PRG会运行TestCustomRendering.FRX报表，它使用SFColumnChartListener 类来将矩形替换成一个图表。这个类的代码就不冗述了。总之，作为一个例子，下面的代码取自DrawColumnChart方法，该方法在矩形将要被绘制的时候从BeforeRender方法中被调用。从代码中你可以看到，这里大量的使用了在FFC的 _GDIPlus.VCX中的那些类，这些类在本章的“_GDIPlus.VCX”一节中已经被讨论过了。这段代码使用了这个类的几个属性：
aValue是一个包含着用于生成图表的数据的二维数组。数组第一列中放的是产品类别的名称，第二列中则是每个类别的销售总数；
aColumnColors是一个包含着用于（图表中）每个列的颜色的数组；
nSapcing是列之间的间距；
cLegendFontName和nLegendFontSize是用于图例的字体名称和大小；
nLegendSpacing是在图表和它的图例之间的间距；
nLegendBoxSize是在图例中一个小方框的大小，nLegendBoxSpacing 是这些小方框之间的间距，而nLegendTextSpacing是在一个小方框和它的相关文本之间的间距。
lparameters tnLeft, tnTop, tnWidth, tnHeight
local lnMax, ;
lnColumns, ;
lnI, ;
lnColumnWidth, ;
loColumnBrush, ;
loPen, ;
loFont, ;
loStringFormat, ;
loPoint, ;
loTextBrush, ;
lnColors, ;
lnColor, ;
lnLeft, ;
lnHeight, ;
lnTop
with This
* 弄清楚每个列的最大值和宽度
lnMax = 0
lnColumns = alen(.aValues, 1)
for lnI = 1 to lnColumns
lnMax = max(lnMax, .aValues[lnI, 2])
next lnI
lnColumnWidth = (tnWidth - (lnColumns * .nSpacing))/lnColumns
* 建立我们将用于绘制的_GDIPlus 对象们
loColumnBrush = newobject('GPSolidBrush',home() + 'ffc\_GDIPlus.vcx')
loPen = newobject('GPPen', home() + 'ffc\_GDIPlus.vcx')
loFont = newobject('GPFont',home() + 'ffc\_GDIPlus.vcx')
loStringFormat=newobject('GPStringFormat',home() + 'ffc\_GDIPlus.vcx')
loPoint = newobject('GPPoint', home() + 'ffc\_GDIPlus.vcx')
loTextBrush= newobject('GPSolidBrush', home() + 'ffc\_GDIPlus.vcx')
loPen.Create(.CreateColor(0)) && 黑色
loFont.Create(.cLegendFontName, .nLegendFontSize, ;
GDIPLUS_FontStyle_Regular, GDIPLUS_Unit_Point)
* 画出图表列的边框
.oGDIGraphics.DrawLine(loPen, tnLeft, tnTop, tnLeft, ;
tnTop + tnHeight)
.oGDIGraphics.DrawLine(loPen, tnLeft, tnTop + tnHeight, ;
tnLeft + tnWidth, tnTop + tnHeight)
* 画列
lnColors = alen(.aColumnColors)
for lnI = 1 to lnColumns
lnColor = .aColumnColors[(lnI - 1) % lnColors + 1]
loColumnBrush.Create(lnColor)
lnLeft = tnLeft + lnI * .nSpacing + (lnI - 1) * lnColumnWidth
lnHeight = cast(tnHeight/lnMax * .aValues[lnI, 2] as Numeric(7, 2))
lnTop = tnTop + tnHeight - lnHeight
.oGDIGraphics.DrawRectangle(loPen, lnLeft, lnTop, ;
lnColumnWidth, lnHeight)
.oGDIGraphics.FillRectangle(loColumnBrush, lnLeft, lnTop, ;
lnColumnWidth, lnHeight)
* 画列的图例
lnLeft = tnLeft + tnWidth + .nLegendSpacing
lnTop = tnTop + (lnI - 1) * (.nLegendBoxSize + .nLegendBoxSpacing)
.oGDIGraphics.DrawRectangle(loPen, lnLeft, lnTop, ;
.nLegendBoxSize, .nLegendBoxSize)
.oGDIGraphics.FillRectangle(loColumnBrush, lnLeft, lnTop, ;
.nLegendBoxSize, .nLegendBoxSize)
lnLeft = lnLeft + .nLegendBoxSize + .nLegendTextSpacing
loPoint.Create(lnLeft, lnTop)
loTextBrush.Create(.CreateColor(0)) && 黑色
.oGDIGraphics.DrawStringA(.aValues[lnI, 1], loFont, loPoint, ;
loStringFormat, loTextBrush)
next lnI
endwith
...全文
请发表友善的回复…
发表回复
