Rave 报表是否可以象QReport报表系列一样可以使用Timage控件来在报表上画图? ( 积分: 100 )

  • 主题发起人 主题发起人 电暖气
  • 开始时间 开始时间

电暖气

Unregistered / Unconfirmed
GUEST, unregistred user!
Rave 报表是否可以象QReport报表系列一样可以使用Timage控件来在报表上画图?
 
Rave 报表是否可以象QReport报表系列一样可以使用Timage控件来在报表上画图?
 
可以!在Rvsystem1的onprint事件中寫代碼:
{ PaintBitmap demo }
with sender as TBaseReportdo
begin
YPos := 3.4;
PrintCenter('PaintBitmapRect()',6.375);
Bitmap := TBitmap.Create;
Bitmap.LoadFromFile('RPDEMO.BMP');
PrintBitmapRect(5.375,3.5,7.375,5.5,Bitmap);
Bitmap.Free;
end;
 
出差才回来。
刚刚看见ldhlyh老兄的答案。我发现2个问题。
1.文件Project1.rav没有利用。
RvProject1.ProjectFile= "C:/1_rave/Project1.rav"
2.*.bmp文件的在报表中很难调整成原始尺寸。
请高人指教。
============
本人根据ldhlyh老兄的答案将程序修改如下:
●准备工作
①先在Form1上添加一个控件RvSystem1。
②再在Form1上添加一个控件按钮。
●RvSystem1控件OnPrint事件
procedure TForm1.RvSystem1Print(Sender: TObject);
var
Bitmap:TBitmap;
begin
with sender as TBaseReportdo
begin
YPos := 3.4;
PrintCenter('PaintBitmapRect()',6.375);
Bitmap := TBitmap.Create;
Bitmap.LoadFromFile('G:/USE_TOOL/ai/pdf417_tax.BMP');
PrintBitmapRect(0.375,1.5,7.375,5.5,Bitmap);
Bitmap.Free;
end;
end;
●按钮总的程序
procedure TForm1.btn1Click(Sender: TObject);
begin
RvSystem1.Execute;
end;
 
接受答案了.
 
后退
顶部