Einzelnen Beitrag anzeigen

merlin17

Registriert seit: 15. Dez 2002
Ort: Mittelfranken
980 Beiträge
 
Delphi 10 Seattle Enterprise
 
#2

Re: Rave, CodeBased, Vorschau

  Alt 29. Jan 2008, 15:42
endlich bin ich dazugekommen....

ich denke einmal, die Struktur von Nevrona Rave Reports ist dir nicht 100% klar (keine Panik, Du bist nicht alleine ....).

tipp Rave @ EKON 12 spring


Wenn Du über RvSystem druckst erzeugt es einen Output, du willst aber sicherlich nur die Voransicht haben
willst, ist der Weg über NDRWriter sinnvoll... ich habe Dir einmal beide Weg unten aufgeführt....


thomas, TeamNevrona

Delphi-Quellcode:
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  RvSystem1.SystemFiler.StreamMode := smFile;
  RvSystem1.SystemFiler.FileName := 'Delphipraxis.NDR'; // löschen nciht
  //vergessen!
  RvSystem1.SystemSetups := RvSystem1.SystemSetups - [ssAllowSetup];
  RvSystem1.SystemOptions := Rvsystem1.SystemOptions - [soNoGenerate];
  RvSystem1.Execute; // Default auf Printer .... alles andere macht wenig
  //Sinn
  with RvRenderPreview1 do
  begin
    ScrollBox := ScrollBox1;
    render('Delphipraxis.NDR');
  end;
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
var
  MeinNDRStream: TMemoryStream;
begin
  MeinNDRStream := TMemoryStream.Create;
  RvNDRWriter1.StreamMode := smUser;
  RvNDRWriter1.Stream := MeinNDRStream;
  RvNDRWriter1.Execute;
  MeinNDRStream.Position := 0;
  with RvRenderPreview1 do
  begin
    ScrollBox := ScrollBox1;
    render(MeinNDRStream);
  end;
end;
- TeamNevrona cannot respond to questions received via email -
http://rave-notes.blogspot.com
  Mit Zitat antworten Zitat