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;