Hallo Delphi-Gemeinde,
ich möchte mir in einem Formular 'vorschau' ein eigenes Quickreportpreview basteln. Dazu habe ich neben mehreren Checkboxen und UpDown-Komponenten auch
ein QRPreview eingefügt. Der eigentliche Quickreport wird in einem anderen Formular (Form16) erzeugt. In dessen OnPreview-Ereignis habe ich dann folgenden Code:
Code:
procedure TForm16.QuickRep1Preview(Sender: TObject);
begin
vorschau.QRPreview1.QRPrinter:=TQRPrinter(Sender);
vorschau.Show;
end;
Nun soll über die verschiedenen Schalter auf dem Form 'vorschau' der Quickreport bezüglich Ränder, Position der Diagramme gestaltet werden können.
Dazu soll nach jeder Veränderung eines Eingabefeldes, Checkbox etc. die Vorschau aktualisiert werden, d.h. es kann schon mal sein, dass die Vorschau recht häufig wiederholt werden muss.
Z.Bsp. soll über UpDown1 der linke Seitenrand verändert werden:
Code:
procedure TVorschau.UpDown1Click(Sender: TObject; Button: TUDBtnType);
begin
edit1.Text:=inttostr(updown1.Position);
form16.QuickRep1.Page.LeftMargin:=Strtoint(Edit1.Text);
form16.QuickRep1.Preview;
end;
Das ganze funktioniert anfangs auch, nur nach ca. 16-17-fachem Aufruf des Preview hängt sich das Programm auf.
Ich denke, dass ich irgendwo wieder etwas freigeben müßte, aber dazu steck ich wohl nicht tief genug in der Materie.
Ich hoffe, ich konnte mein Problem einigermaßen erklären, sodass ihr mir weiterhelfen könnt.
Ach ja, ich arbeite noch mit Delphi7 und Quickreport3.
Gruß,
delphinewbie