请教各位大虾,用fastreport打印报表时,如果memo中内容多了如何将字体缩小?
解决方案 »
- 录入数据校验问题
- 一个关于登陆框的问题!请高手指点!谢谢
- 如何在一个LABEL上显示出'¥'这个人民币符号?
- 自写的组件在设计时设置的属性为什么在程序运行后不能得以体现?
- 请问大虾如何在delphi中控制word
- 关于dbgrid的问题???
- 一个局域网的问题,谁能给解决一下(再线等,再送200分)
- 数据库中控件的位置
- 两个问题,不难,来看看吧。
- 关于Pascal语言,问题4
- 我都要疯了,三层,客户端clientdataset+dbgrid, 在编辑dbgrid时,修改记录后,老出现:“Trying to modify read-only field”
- Delphi 如何通过配置ini文件去连接SQL
ccrun(老妖)(www.ccrun.com) ,现在Strethed是true。
real_name(*真名),如果不自动缩小到自适应的情况,可不可以在onbeforeprint里,设置memo的字体可以小一点呢?
frReport1->FindObject("Memo10")->Memo->Font->......=值!
可是怎么使用呢?
以前是这样用的。 khqc_rprt := TfrMemoView(frRprt_ck.FindObject('Rm_khqc')); khqc_rprt.Memo.Text := Edt_khqc.Text;
现在应该怎么写呢?
使用FR 的 frxDBCrossView 生成的交叉表,如何改变列宽度?
procedure MasterData1OnBeforePrint(Sender: TfrxComponent);
begin
if Length(Memo1.value)>100 then
Memo1.Font.size:=10
else Memo1.Font.size:=20;
end;以上代码经fastreport3.2测试通过
可是我的fastreport的版本是2.52,告诉Memo1.value这个值是错误的,应该怎么办呢?
begin
t1:=TfrMemoView(fastreport1.FindObject('Memo1'));
if (t1<>nil) and (Length(t1.Memo.Text)>100) then t1.Font.Size:=10;
end;