关于FastReport打印图片的问题。(急)(100分)

  • 主题发起人 主题发起人 fookk
  • 开始时间 开始时间
F

fookk

Unregistered / Unconfirmed
GUEST, unregistred user!
关于FastReport打印图片的问题。(急)
我想实现:
Form中放置button、OpenPictureDialog、frReport控件各一个,其中frReport中已放置picture控件。想实现点击button按钮,通过OpenPictureDialog打开一个图片并且通过frReport预览。
 
是不是考题呀,呵呵。(另,看看Demo,就不用花这冤枉钱了)
--------
procedure TForm1.Button1Click(Sender: TObject);
var
PicName:string;
v: TfrPictureView;
Page: TfrPage;
begin
OpenPictureDialog1.Execute;
PicName:=OpenPictureDialog1.FileName;
frReport1.Pages.Clear;
frReport1.Pages.Add;
Page := frReport1.Pages[0];
v := TfrPictureView.Create;
v.SetBounds(0, 0, 500, 500);
//这里可以调整到你认为合适的地方
v.Picture.LoadFromFile(PicName);
Page.Objects.Add(v);
frReport1.ShowReport;

end;
--------
 
对不起,我表达的不好。
我不是要动态的创建frReport中的picture,而是在frReport之外为frReport中静态picture指定图片的路径。
 
Revised on Aug-16-2003 18:14(差点误人子弟,赶紧修改)
为了有助你理解,先看一个FAQ
-----
2.34. How to print a picture that stored in a file?
a) use TfrReport.OnBeforePrint event:
if View.Name = 'Picture1' then
TfrPictureView(View).Picture.LoadFromFile(...) or
.Assign or
.everything_what_you_want
b) in the script:
begin
Picture1.LoadFromFile(filename)
end
-----
程序(功能可以实现,方法有待推敲。注意:PicName为全局变量)
====
procedure TForm1.Button1Click(Sender: TObject);
begin
OpenPictureDialog1.Execute;
PicName:=OpenPictureDialog1.FileName;
frReport1.LoadFromFile('C:/pic.frf');
frReport1.ShowReport;

end;

procedure TForm1.frReport1BeforePrint(Memo: TStringList;
View: TfrView);
begin
if View.Name='Picture1' then
begin
TfrPictureView(View).Picture.LoadFromFile(PicName);
end;
end;
======
 
谢谢ty123,你的方法可以。我将把分数给你。
请问frReport中的picture控件中的图片使用什么方法可以旋转??
 
ty123您好:
我是一个使用FastReport的新手,有很多不懂的地方。现在使用的是FastReport2.5版本,没有相关的帮助信息。您能不能给以谢学习资料,谢谢!!
 
接受答案了.
 
学习资料看readme、FAQ及手册。
下载地址:
http://www.fastreport.org/en/download.php
 
后退
顶部