procedure TForm1.frReport5BeforePrint(Memo: TStringList; View: TfrView); begin frReport1.Pages[0].FindObject('picture1') as TfrPictureView).Picture:= mainform.DBImage1.Picture;end;
procedure TForm1.frReport5BeforePrint(Memo: TStringList; View: TfrView); begin TfrPictureView(View).Picture.Assign(Form1.Image1.Picture); end;
begin
frReport1.Pages[0].FindObject('picture1') as TfrPictureView).Picture:=
mainform.DBImage1.Picture;end;
begin
TfrPictureView(View).Picture.Assign(Form1.Image1.Picture);
end;