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;
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;

展开阅读全文

没有更多推荐了,返回首页