Каталог статей Delphi Report
Динамическая передача и печать рисунка в отчете с помощью Rave
В качестве рисунка может выступать любой компонент Tgraphic.
Для начала разместите в своем отчете в проекте Rave компонент Bitmap.
Затем пропишем код. Для этого нам нужно иметь файл проекта, созданный в Rave Designer, например Report.rav. Необходимо также знать имя отчета в проекте и имя страницы. В данном примере отчет - это Resultat, страница - MainPage. Ниже представлен код, который будет находить картинку в проекте и заменять изображение на Form1.Image1.
procedure TResultRas.BitBtn1Click(Sender: TObject);
var
MyPage: TRavePage;
MyImg:TRaveBitmap;
begin
RvProject1.SetProjectFile(ExtractFilePath(Application.ExeName)+'Report.rav');
RvProject1.Open;
With RvProject1.ProjMan do begin
MyPage := FindRaveComponent('Resultat.MainPage',nil) as TRavePage;
MyImg:=FindRaveComponent('Bitmap1',MyPage) as TRaveBitmap;
MyImg.Image:=Form1.Image1.Picture.Graphic;
end;//with
RvProject1.ExecuteReport('Resultat');
RvProject1.Close;
end;
|
| Категория: Создание отчетов. Rave Reports | Добавил: delphi (06.02.2009)
|
| Просмотров: 9560
| Рейтинг: 2.7/3 |
Добавлять комментарии могут только зарегистрированные пользователи. [ Регистрация | Вход ] |
Google
|
