首页 > 代码库 > 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 自定义代码 画细线