首页 > 代码库 > ReportMachine 自定义代码 画细线

ReportMachine 自定义代码 画细线

ReportMachine 自定义代码 画细线

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;beginacount:=   RMDBDataSet1.dataset.recordcount;if acount>=7 thenbegin     Footer1.Height:=  50;     Memo4.Height := Footer1.Height;end elsebegin     Footer1.Height:=  ( 7-acount)*50;     Memo4.Height := Footer1.Height;end;end;

 技术分享

 

 

 

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

groupstart分组起始号

groupcount分组行数

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

ReportMachine 自定义代码 画细线