本人设计一中文样式的报表,带边框的,在中间有一QRRichtext,在预览时,本人将数据库中的数据赋给它,当数据超出原先定义的大小时让它自动分行分页,但是会覆盖后面的数据(QRRichtext在报表中间),本想通过记录QRRichtext的增长量,然后将后面的所有控件的top+增长量来调整的,但是增长量不知怎么计算,还请各位高手帮帮小弟。谢了
下面的程序输出rt_1,rt_2结果一样
var
rt_1,rt_2:integer;
begin
rt_1:=QRqyda2.QRRichText1.Height;
QRqyda2.QRRichText1.Lines.Text:=adoquery1.FieldValues['企业简介'];
rt_2:=QRqyda2.QRRichText1.Height;
showmessage(inttostr(rt_2));
sub:=rt_2-rt_1;
//QRRichText1下的所有控件下移包括边框线条
QRqyda2.QRShape11.Top:=QRqyda2.QRShape11.Top+sub;
QRqyda2.QRShape12.Top:=QRqyda2.QRShape12.Top+sub;
.........
end;
下面的程序输出rt_1,rt_2结果一样
var
rt_1,rt_2:integer;
begin
rt_1:=QRqyda2.QRRichText1.Height;
QRqyda2.QRRichText1.Lines.Text:=adoquery1.FieldValues['企业简介'];
rt_2:=QRqyda2.QRRichText1.Height;
showmessage(inttostr(rt_2));
sub:=rt_2-rt_1;
//QRRichText1下的所有控件下移包括边框线条
QRqyda2.QRShape11.Top:=QRqyda2.QRShape11.Top+sub;
QRqyda2.QRShape12.Top:=QRqyda2.QRShape12.Top+sub;
.........
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货