Re: Load a file in ReportHelper

Return to index

Author

Message

Sergey Tkachenko

Posted: 10/18/2002 7:20:02

>

> I did it, but how can draw it in canvas. I have this code

For drawing one page, code should be

const VERYLARGEVALUE = $FFFFFFF;

RVReportHelper1.Init(Self.Canvas, 200 {width});

  while RVReportHelper1.FormatNextPage(VERYLARGEVALUE) do;

  wmf := TMetafile.Create;

  wmf.Width := 200;

  wmf.Height := RVReportHelper1.EndAt;

  Canvas := TMetafileCanvas.Create(wmf, 0);

  RVReportHelper1.DrawPage(1,Canvas,True,RVReportHelper1.EndAt);

  Canvas.Free;

  Image1Picture.Graphic := wmf;

  wmf.Free;