редактирование подготовленного отчета

anna.serg · December 2013

Подскажите пожалуйста как можно вставить в уже готовый отчет
изображения??
это код не работает

Var frxPage: TfrxReportPage;
     pictLogo: TfrxPictureView;
     i: Integer;
begin
frxReport1.Clear;
frxReport1.PreviewPages.LoadFromFile('C:\1.fp3');
frxReport1.ReportOptions.Name:='C:\1.fp3';
frxReport1.PreviewOptions.AllowEdit:=True;
for i:=0 to frxReport1.PreviewPages.Count-1 do begin
 frxPage:=frxReport1.PreviewPages.Page[i];
 pictLogo:=TfrxPictureView.Create(frxPage);
 pictLogo.SetBounds(100,100,100,200);
 pictLogo.Picture.LoadFromFile('D:\1.jpg');
end;
frxReport1.PreviewPages.Print;
end;

Nightmareterrible · December 2013

Попробуйте
Report.Preview.Repaint;

anna.serg · December 2013

var i: integer;
     p: TfrxReportPage;
     l: TfrxPictureView;
begin
frxReport1.PreviewPages.LoadFromFile('C:\1.fp3');
frxReport1.Preview.Lock;
for i := 0 to frxReport1.PreviewPages.Count - 1 do begin
 p:=TfrxReportPage(frxReport1.PreviewPages.Page[i]);
 l:=TfrxPictureView.Create(p);
 l.CreateUniqueName;
 l.Picture.LoadFromFile('D:\1.jpg');
 l.SetBounds(0, 0, 100, 100);
 frxReport1.PreviewPages.ModifyPage(i,p);
end;
frxReport1.Preview.UnLock;
frxReport1.PreviewPages.SaveToFile('C:\2.fp3');
frxReport1.PreviewPages.Print;
end;

редактирование подготовленного отчета

Комментарии

Оставить комментарий