|
|
Top Previous Next |
|
This component is similar to TRVPrint, but:
Unit RVReport; Syntax TRVReportHelper = class(TCustomRVPrint) Hierarchy TObject TPersistent TComponent How to Use
Example (drawing document in metafile) procedure TForm1.DrawToMetafile(rvh: TRVReportHelper; wmf: TMetafile; Width: Integer); const VERYLARGEVALUE = $FFFFFFF; var Canvas: TMetafileCanvas; begin rvh.Init(Self.Canvas, Width); // if document does not have page breaks, // it will be formatted on one page while rvh.FormatNextPage(VERYLARGEVALUE) do; wmf.Width := Width; wmf.Height := rvh.EndAt; Canvas := TMetafileCanvas.Create(wmf, 0); rvh.DrawPage(1,Canvas,True,rvh.EndAt); Canvas.Free; end; Demo projects
(for C++Builder demos, change "Delphi" to "CBuilder" in the paths above) |