首页 / MAC / ReportMachine 自定义代码 画细线

ReportMachine 自定义代码 画细线

内容导读

互联网集市收集整理的这篇技术教程文章主要介绍了ReportMachine 自定义代码 画细线，小编现在分享给大家，供广大互联网技能从业者学习和参考。文章包含1287字，纯文字阅读大概需要2分钟。

内容图文

procedure Memo3_OnBeforePrint(Sender: TObject);
begin
 Memo3.Text := inttostr(Footer1.Top);
 Memo4.Text :=   inttostr(MasterData1.datasetName);
 Diagonal1.height :=(15-strtoint(MasterData1.datasetName))*20;

end;

数据集下面填充斜线

 procedure Diagonal1_OnBeforePrint(Sender: TObject);
begin
 Memo3.Text := inttostr(Footer1.Top);
 Memo4.Text :=   inttostr(MasterData1.datasetName);
 Footer1.height :=(25-strtoint(MasterData1.datasetName))*20;
 Diagonal1.top:= Footer1.top+100;
 Diagonal1.height :=   Footer1.height;
end;

TRMDiagonalView控件就是斜线表头，如何去掉斜下的线条 在RM_Diagonal.pas单元中定义的

用普通的Memo控件，右键》边框 菜单，就可以实现斜线了，这个斜线功能是正常的。

procedure Memo3_OnBeforePrint(Sender: TObject);
begin
  Footer1.height :=(25-strtoint(MasterData1.datasetName))*20;
 Memo3.top:= Footer1.top+100;
 Memo3.height :=   Footer1.height;
end;

procedure Footer1_OnBeforePrint(Sender: TObject);
var
  acount:integer;
begin

acount:=   RMDBDataSet1.dataset.recordcount;
if acount>=7 then
begin
     Footer1.Height:=  50;
     Memo4.Height := Footer1.Height;
end else
begin
     Footer1.Height:=  ( 7-acount)*50;
     Memo4.Height := Footer1.Height;
end;
end;

 技术分享

 

 

 

在数据行后面一组画斜线。

groupstart分组起始号

groupcount分组行数

Memo4.top :=MasterData1.top+ groupstart-20;
memo4.height:=groupcount*MasterData1.Height;

原文：http://www.cnblogs.com/westsoft/p/5919160.html

内容总结

以上是互联网集市为您收集整理的ReportMachine 自定义代码 画细线全部内容，希望文章能够帮你解决ReportMachine 自定义代码 画细线所遇到的程序开发问题。 如果觉得互联网集市技术教程内容还不错，欢迎将互联网集市网站推荐给程序员好友。

内容备注

版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 gblab@vip.qq.com 举报，一经查实，本站将立刻删除。

内容手机端

扫描二维码推送至手机访问。

本文链接：https://qyyshop.com/info/1148476.html

来源：【匿名】