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;