Печать диаграммы, построенной в Delphi |
Если вы уже построили диаграмму в коде Delphi и хотите ее распечатать в отчете, вам понадобится объект "Рисунок". Расположите его в нужном месте отчета и напишите следующий обработчик события TfrxReport.OnBeforePrint:
procedure TForm1.frxReport1BeforePrint(Sender: TfrxReportComponent); begin if Sender.Name = 'Picture1' then TfrxPictureView(Sender).Picture.Assign( Chart1.TeeCreateMetafile(False, Rect(0, 0, Round(Sender.Width), Round(Sender.Height)))); end;
где Picture1 – имя объекта "Рисунок", Chart1 – ваша делфийская диаграмма.
|