Z zjjzl Unregistered / Unconfirmed GUEST, unregistred user! 2002-11-14 #21 如果打印确实不正常的话,可以适当增大 brichh 如inc(brichh,PenW)等等
M mblk Unregistered / Unconfirmed GUEST, unregistred user! 2002-11-15 #22 在那里加inc(brichh,PenW) ? 能否把PageHeader放在BeforeGridText的后面?
F fangws_hzb Unregistered / Unconfirmed GUEST, unregistred user! 2002-11-15 #23 www.playicq.com。我改的已经放到上面去了。在数据库这一栏
Z zjjzl Unregistered / Unconfirmed GUEST, unregistred user! 2002-11-15 #24 inc(brichh,PenW) 放在循环之前; 至于PageHeader放在BeforeGridText的后面改起来比较麻烦, 这可要你自己改了,我只能做到这样了,抱歉!
M mblk Unregistered / Unconfirmed GUEST, unregistred user! 2002-11-16 #28 zjjzl, 加入 inc(brichh,PenW) 后,表格的竖线又出头了
L lldhz Unregistered / Unconfirmed GUEST, unregistred user! 2002-11-16 #29 各位大哥:我的EHLIB老装不上去(说找不到文件),能不能给我发一个(D6)? 邮箱:lld_hz@163.com
M mblk Unregistered / Unconfirmed GUEST, unregistred user! 2002-11-16 #30 zjjzl,我没有注意,出现了重大错误,虽然每页都可显示beforetext所定义的标题,但每 页的表头都没了.
T taiwan999 Unregistered / Unconfirmed GUEST, unregistred user! 2002-11-17 #31 谁可以给我发ehlib,e_mail:wulinkun999@sohu.com,我给他200 这是我仅有的积分。谢谢了
Z zjjzl Unregistered / Unconfirmed GUEST, unregistred user! 2002-11-17 #32 如果打印还好的话,inc(brichh,PenW)还是不加吧,毕竟打印才最主要的,模拟显示在不同比例下是不尽相同 后面重大错误不知是一直有还是后来才有的,如是前者的话,那就很麻烦了,得重新看源码了
Z zjjzl Unregistered / Unconfirmed GUEST, unregistred user! 2002-11-17 #33 to taiwan99: fangws_hzb已经告诉你在那儿下载了,在http://202.117.210.31/delphi/下也有,自己去下吧。
Z zjjzl Unregistered / Unconfirmed GUEST, unregistred user! 2002-11-18 #36 我这边试过了好的,可能是你漏掉了一条语句,将你的代码贴出来,我来检查一下
M mblk Unregistered / Unconfirmed GUEST, unregistred user! 2002-11-19 #37 zjjzl, 我用的是delphi7.0, 我的代码如下: procedure PrintOutInfo; var richh,brichh : integer; //** saveCalcInfoMode:boolean; begin //首先必须保证beforetext与aftertext两者高度不得超过DataPrintRec的高度,否则将陷入死循环; saveCalcInfoMode:=CalcInfoMode; CalcInfoMode := True; PrintRichText(TRichEditStrings(AfterGridText)); richh:=PrintOffset; PrintOffset:=0; PrintRichText(TRichEditStrings(BeforeGridText)); brichh:=PrintOffset;//** PrintOffset:=0; //** CalcInfoMode := saveCalcInfoMode; // if brichh+richh>=DataPrintRec.Bottom-DataPrintRec.Top { +Grid的最小高度 } then // 此处加入发出错误信息代码 InitPolyBookmark(PBm1); inc(brichh,PenW); while True do begin PrintOffset:=brichh; PBm2 := CalcPrintRows(PBm1, DataPrintRec.Top + brichh { *** } , DataPrintRec.Bottom-richh - PenW); PrintOffset := DrawRowsRange(PBm1,PBm2) + PenW; PrintRichText(TRichEditStrings(AfterGridText)); PrintOffset := 0; //** PrintRichText(TRichEditStrings(BeforeGridText));//** if (PBm2.EOF = True) then Break else PrintOffset := 0; PBm1 := PBm2; end; VPrinter_Canvas.BRUSH.Style := bsClear; VPrinter_Canvas.Brush.Color := clWhite; end;
zjjzl, 我用的是delphi7.0, 我的代码如下: procedure PrintOutInfo; var richh,brichh : integer; //** saveCalcInfoMode:boolean; begin //首先必须保证beforetext与aftertext两者高度不得超过DataPrintRec的高度,否则将陷入死循环; saveCalcInfoMode:=CalcInfoMode; CalcInfoMode := True; PrintRichText(TRichEditStrings(AfterGridText)); richh:=PrintOffset; PrintOffset:=0; PrintRichText(TRichEditStrings(BeforeGridText)); brichh:=PrintOffset;//** PrintOffset:=0; //** CalcInfoMode := saveCalcInfoMode; // if brichh+richh>=DataPrintRec.Bottom-DataPrintRec.Top { +Grid的最小高度 } then // 此处加入发出错误信息代码 InitPolyBookmark(PBm1); inc(brichh,PenW); while True do begin PrintOffset:=brichh; PBm2 := CalcPrintRows(PBm1, DataPrintRec.Top + brichh { *** } , DataPrintRec.Bottom-richh - PenW); PrintOffset := DrawRowsRange(PBm1,PBm2) + PenW; PrintRichText(TRichEditStrings(AfterGridText)); PrintOffset := 0; //** PrintRichText(TRichEditStrings(BeforeGridText));//** if (PBm2.EOF = True) then Break else PrintOffset := 0; PBm1 := PBm2; end; VPrinter_Canvas.BRUSH.Style := bsClear; VPrinter_Canvas.Brush.Color := clWhite; end;
崔 崔占东 Unregistered / Unconfirmed GUEST, unregistred user! 2002-11-19 #39 设置后应该每页都有,我现在对DBGRIDEH进行了功能扩展和集成, 形成新控件DBGridEhPrintBuilder.pas,我们的项目都用它。 新功能有:对数据集排序、 右键菜单(剪切,复制,粘贴,删除,全选,预览,保存,打开,查找) 新方法: procedure Preview; procedure Print; procedure SaveSelectDataToFile; procedure LoadDataFromFile; 新属性: property UsePopupMenuEx: boolean; property ReportPage: TReportPage; property ReportTitle: string;
设置后应该每页都有,我现在对DBGRIDEH进行了功能扩展和集成, 形成新控件DBGridEhPrintBuilder.pas,我们的项目都用它。 新功能有:对数据集排序、 右键菜单(剪切,复制,粘贴,删除,全选,预览,保存,打开,查找) 新方法: procedure Preview; procedure Print; procedure SaveSelectDataToFile; procedure LoadDataFromFile; 新属性: property UsePopupMenuEx: boolean; property ReportPage: TReportPage; property ReportTitle: string;