Forum: Object-Pascal / Delphi-Language
by norwegen60,
13. Jul 2022
Bei der Schleife ist mir alter Code rein gerutscht.
Ich hatte es ja schon mal so
for i := Screen.CustomFormCount - 1 downto 0 do
if (Screen.CustomForms is TQRStandardPreview) then
TQRStandardPreview(Screen.CustomForms).Close;
Forum: Object-Pascal / Delphi-Language
by norwegen60,
13. Jul 2022
So, ich habe mir jetzt auch WinSpy angeschaut und (für mich) überraschendes festgestellt
Der eigentliche Report entstammt der Klasse TQRPreview
Das Preview-Fenster, in dem der Report eingebunden ist, entstammt der Klasse TQRStandardPreview und hat den Titel "Report Preview : Media-List Report"
Dadurch weiß ich jetzt, dass hintern "Report Preview" noch ein Leerstelle ist und mit der findet ...
Forum: Object-Pascal / Delphi-Language
by norwegen60,
13. Jul 2022
rptMediaList.qrMediaList.QRPrinter.ClosePreview(nil); hat genau denselben Effekt wie die Suche und das Schließen von TQRStandardPreview. Der Report wird geschlossen, das Preview-Fenster bleibt offen.
Den PrevFormStype hatte ich schon testweise auf fsNormal gesetzt. Auch das ändert nichts daran, dass der PreView offen bleibt.
Verwendung von Free hat auch nichts gebracht, zumal im OnClose...
Forum: Object-Pascal / Delphi-Language
by norwegen60,
12. Jul 2022
Schließt den PreView auch nicht. Der PreView müsste aber doch eher ein Child als ein Parent von rptMediaList.qrMediaList sein. Oder täusche ich mich
Ich habe auch noch for i := Screen.CustomFormCount - 1 downTo 0 do
begin
sName := TCustomForm((Screen.CustomForms)).ClassName;
if (Screen.CustomForms is TQRStandardPreview) then
begin
...
Forum: Object-Pascal / Delphi-Language
by norwegen60,
12. Jul 2022
Das mach ich doch schon mit
rptMediaList.qrMediaList.Visible := false;
rptMediaList.qrMediaList.PreviewController.Free;
rptMediaList.qrMediaList.Cancel;
rptMediaList.qrMediaList.FreeOnRelease;
rptMediaList.Release;
rptMediaList.Close;
Forum: Object-Pascal / Delphi-Language
by norwegen60,
12. Jul 2022
Mit .Release passiert nichts aber mit .Close schließt er den Report auf dem PreView-Fenster. Dann bleibt aber immer noch das leere Preview-Fenster stehen. D.h. das Fenster in dem man den Report vergrößern, verkleinern, Sichern, Blättern kann.
Forum: Object-Pascal / Delphi-Language
by norwegen60,
12. Jul 2022
Genau dort hatte ich den rptMediaList.qrMediaList.Cancel; her. Leider funktioniert es aber nicht.
Nach Cancel ist der Preview immer noch sichtbar
Irgendwo anders fand ich den rptMediaList.Release; aber auch der half nicht