hallo,
mit einer ScrollBox sollte es sich lösen lassen:
Delphi-Quellcode:
procedure TForm1.Button2Click(Sender: TObject);
var
MeinNDRStream: TMemoryStream;
begin
MeinNDRStream := TMemoryStream.Create;
RvProject1.Open;
RvProject1.Engine := RvNDRWriter1;
with RvNDRWriter1 do
begin
StreamMode := smUser;
Stream := MeinNDRStream;
end;
RvProject1.Execute;
MeinNDRStream.Position := 0;
with RvRenderPreview1 do
begin
ScrollBox := ScrollBox1;
NDRStream := MeinNDRStream;
Render;
end;
showmessage('Anzahl der Seiten: ' + IntToStr(RvRenderPreview1.Pages));
end;
thomas, TeamNevrona
[edit=mkinzler]Code-Tag durch Delphi-Tag ersetzt Mfg, mkinzler[/edit]