TRichView.com

Code: Select all

const
  VERYLARGEVALUE = $FFFFFFF;
var
  m : TmetaFile;
  mc : TmetaFileCanvas;
  S: TMemoryStream;
  RVHeight : Integer;
begin
  S:= TMemoryStream.Create;
  try
    rvEdit.SaveRVFToStream(S, False);
    S.Position := 0;
    RVReport.RichView.Clear();
    RVReport.RichView.LoadRVFFromStream(S);
  finally
    S.Free;
  end;

  m := TMetafile.Create;
  try
    RVHeight := Trunc(rvEdit.ClientWidth * 0.724);
    m.Width := rvEdit.ClientWidth;
    m.Height := RVHeight;

    mc := TMetafileCanvas.Create(m, 0);
    try
      RVReport.Init(mc, rvEdit.ClientWidth);
      while RVReport.FormatNextPage(VERYLARGEVALUE) do
        ;

      RVReport.DrawPage(1, mc, True, RVHeight);
    finally
      mc.Free;
    end;

  finally
    m.Free;
  end;
end;