在fastreport的脚本中,如何判断一个picture为空?(100分)

  • 主题发起人 主题发起人 baniu
  • 开始时间 开始时间
fastReport中如何让memo根据其内容调节自身高度?
 
在FRREPORT1里,放置一个PICTURE,
然后,在FORM里放一个按钮和一个IMAGE组件。
看以下我写的程序:
procedure TForm1.Button2Click(Sender: TObject);
begin
with frreport1do
begin
if (findobject('picture1') as tfrpictureview).picture.graphic=nil then
//关键在这里
showmessage('ok')
else
image1.picture.assign((findobject('picture1') as tfrpictureview).picture);
end;
end;
这个样子就可以拉。
 
问题解决,该结拉。
 
谢谢你的回答,但我是说要在fastreport的脚本中判断啊.
别急,分是少不了你的。
 
哪里有fastreport控件下载?哪位大虾能发过来一个给我?
我的邮箱:lotus133@163.com
谢谢!!!
 
为什么非要放在FR的脚本里实现呢,你想要什么效果吧,说清楚。
如果想在报表打印之前就判断出是否为空,你可以在FRREPORT1。ONBEFOREPRINT事件里写呀。
说说你打算放在什么地方实现吧,是BAND的ONBEFOREPRINT还是什么别的。
 
to lotusxp,
fastereport2.46到处都有啊,你去delphi.mychangshu.com找找,找不到我再发给你吧。
to 816
你好,放心,分我会给你,只是我需要在band的onBeforePrint中控制有否图片以控制
picture1是否显示,且要控制memo的自动增高和减少,比如我有一字段,80个字符,memo
每行才10个字符,我想让它自动变为8行,100个字符的变10行,20个2行高。该如何做?
 
band的onBeforePrint中
和frreport1.onbeforeprint中控制的效果应该是一样的吧。用我的那个判断语句,
然后,如果为空的话用
(findobject('picture1') as tfrpictureview).Visible:=false;
就可以的。
关于MEMO的换行处理,好象有相关的帖子,我还没仔细研究。
今天下午好忙。
你一定要在band的onBeforePrint中实现么?变通下可以么?
 
to baniu:
已经找到了,谢谢!
 
接受答案了.
 
后退
顶部