Einzelnen Beitrag anzeigen

Benutzerbild von Sourcemaker
Sourcemaker

Registriert seit: 3. Sep 2003
Ort: Westoverledingen
261 Beiträge
 
Delphi XE5 Professional
 
#5

Re: QuickReport vorschau auf einer Selbstgebauten Form anzei

  Alt 22. Mai 2006, 12:56
Hi,

hier meine PrevForm.
Ergänzen kannste du natürlich.
Du wirst beim Öffnen einige Komponenten nicht haben und es sind auch einige
Aufrufe dabei die sich auf persönliche Tools und Projektcode beziehen aber
ich denke das kann man bereinigen bzw. als Beispielcode verwenden.

Beispielcode für den Aufruf:
FMain.ShowPreview(Report, nPrn); Beispielcode für den Aufruf der Form:
Delphi-Quellcode:
function TFMain.ShowPreview(xQuickRep:TQuickRep; const nDrucker: Integer):Boolean;
var
   Child : TFPrevForm;
begin
   Child := TFPrevForm.Create(Self);
   Child.pQuickReport := xQuickRep;

   Child.QRPreview.QRPrinter := xQuickRep.QRPrinter;
   Child.QRPrinter := xQuickRep.QRPrinter;
   Child.nDrucker := nDrucker;
   Child.fonSetPageSettings := XSetPageSettings;

   if Child.ShowModal = mrOk then Result := True
   else result := False;
   Child.Release;
   lUsePageSettings := False;
end;
Grüße

Frank
Angehängte Dateien
Dateityp: zip prevform_173.zip (12,8 KB, 21x aufgerufen)
Frank
  Mit Zitat antworten Zitat