在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;
这个样子就可以拉。
to lotusxp,
fastereport2.46到处都有啊,你去delphi.mychangshu.com找找,找不到我再发给你吧。
to 816
你好,放心,分我会给你,只是我需要在band的onBeforePrint中控制有否图片以控制
picture1是否显示,且要控制memo的自动增高和减少,比如我有一字段,80个字符,memo
每行才10个字符,我想让它自动变为8行,100个字符的变10行,20个2行高。该如何做?