不知道是不是 FastReport 的 bug!(10分)

  • 主题发起人 主题发起人 searoom
  • 开始时间 开始时间
S

searoom

Unregistered / Unconfirmed
GUEST, unregistred user!
当将 frReport.Columns 设置成大于 1 时,预览的第一页没有问题,但是第二页就出现了不正常
效果链接如下:
http://www.mis971.com/searoom/download/fr_1.jpg
 
在本站搜索一下,已有解决方法,是FR的BUG。
 
我从来就没成功使用过 DFW 的搜索功能
不知道什么原因
 
to wwwwb
能不能告诉我地址呢
 
顶一下,我也遇到
 
来自:wwwwb, 时间:2004-2-23 9:18:27, ID:2467158
在本站搜索一下,已有解决方法,是FR的BUG
------------------
在本站怎么搜索啊???????
 
唉..我也是啊..头痛死了..谁解决了我送50分!
 
哈哈..我找到了..
找到FR_CLASS文件..注释掉以下我注释掉得那几行.重新编译一下你得程序..就OK啦...
是翻帖子翻到得..嘿嘿
procedure TfrPage.DrawPageFooters;
//var
// sadj : integer;
begin
CurColumn := 0;
// sadj:=XAdjust;
XAdjust := LeftMargin;
if (PageNo <> 0) or ((Bands[btPageFooter].Flags and flBandOnFirstPage) <> 0) then
while PageNo < MasterReport.EMFPages.Countdo
begin
if not (Append and WasPF) then
begin
if (CurReport <> nil) and Assigned(CurReport.FOnEndPage) then
CurReport.FOnEndPage(PageNo);
if (MasterReport <> CurReport) and (MasterReport <> nil) and
Assigned(MasterReport.FOnEndPage) then
MasterReport.FOnEndPage(PageNo);
ShowBand(Bands[btPageFooter]);
end;
Inc(PageNo);
end;
PageNo := MasterReport.EMFPages.Count;
// XAdjust:=sadj;
end;
 
太感谢 “赌东道” 了!
 

Similar threads

D
回复
0
查看
724
DelphiTeacher的专栏
D
D
回复
0
查看
685
DelphiTeacher的专栏
D
后退
顶部