Hallo zusammen

ich bin aktuell dabei einige QuickReports auf FastReport umzustellen. Das Ganze unter Delphi XE
Dabei übertrage ich ein TChart mit

markieren

Delphi-Quellcode:

  lPictureView := TFrxPictureView(frpStandalone.FindObject('rpim03Chart'));
  if (lPictureView <> nil) and (FChart <> nil) then
      lPictureView.Picture.Assign(FChart.TeeCreateMetafile(False, Rect(0, 0, Round(lPictureView.Width), Round(lPictureView.Height))));

an den Report.
In meiner Entwicklungsumgebung mit Bidlschirmauflösung 1920 x 1200 wird der Chart im Report korrekt dargestellt
Drucke ich denselben Report auf einem Laptop mit 3840 x 2400, Skalierung 225% aus, ist der Chart stark verkleinert (s.Anhang)
Egal wie ich die Properties AutoSize, KeepAspectRatio und Stretched auch setze, das Problem bleibt

Hat jemand einen Lösungsansatz?

Grüße und Danke
Gerd

Das Problem kommt mir bekannt vor. Wir verwenden eine auf TMetaFile-Instanzen basierende Druckvorschau und hatten diesbezüglich ebenfalls Probleme, dass eine mittels TChart.TeeCreateMetafile erzeugte TMetaFile-Instanz beim Einfügen falsch skaliert wurde, wenn die Bildschirmskalierung nicht auf 100% stand.

Ich habe als Lösung eine Routine erstellt, welche mir in Abhängigkeit der Bildschirmskalierung zwei Faktoren ermittelt, welche ich dann benutze, um das an TeeCreateMetafile übergebene Rechteck anzupassen.

Die Routine selber verwendet dazu einen Thread, welcher mittels SetThreadDpiAwarenessContext zunächst seine DPI Awareness auf per-Monitor V2 (DPI_AWARENESS_CONTEXT_PER_MONITOR_AWARE_V2) stellt, um unabhängig von der DPI Awareness des Hauptprogramms zu sein. Anschließend wird mittels GetDpiForMonitor die DPI des Monitors ermittelt. Das ganze ins Verhältnis zu 96 DPI gesetzt ergibt dann die oben genannten Faktoren.

Des weiteren setzen wir den ersten Parameter von TeeCreateMetafile auf True, um eine erweiterte ("enhanced") TMetaFile-Instanz zu erhalten. Ich weiß allerdings nicht, ob dies für das Problem relevant ist.

Hallo Hotsr02,

leider hat mir die Antwort nicht weitergeholfen.

Wie gesagt arbeite ich mit Delphi XE und da habe ich die Befehle SetThreadDpiAwarenessContext und GetDpiForMonitor nicht gefunden.

Parallel habe ich versucht das Rechteck mal fix zu skalieren, aber auch das hat nicht geklappt. Ich habe dazu einfach Width und Heigth * 2 genommen.
lPictureView.Picture.Assign(FChart.TeeCreateMetafile(False, Rect(0, 0, Round(lPictureView.Width * 2), Round(lPictureView.Height * 2)))); Das dargestellte Chart war aber gleich klein wie zuvor.

Geschafft, wenn auch anders als gedacht.

Nachdem ich im Hauptformular die Unit XPMan eingebunden habe, war nichts weiter mehr nötig. Das Chart wird jetzt auch mit Skalierungsfaktor 225 korrekt (in voller Größe) angezeigt

Danke
Gerd

Du wirst über die Einbindung der Unit XPMan die DPI Awareness deiner Anwendung beeinflussen. Je nachdem wie die Eigenschaft Scaled deiner Formulare gesetzt ist, hat dies Einfluss auf die Skalierung deiner Fenster.

Der von mir vorgeschlagene Ansatz ist halt unabhängig von einem eingebundenen Manifest / der DPI Awareness der Anwendung.

Zitat von hotrs02:

Du wirst über die Einbindung der Unit XPMan die DPI Awareness deiner Anwendung beeinflussen. Je nachdem wie die Eigenschaft Scaled deiner Formulare gesetzt ist, hat dies Einfluss auf die Skalierung deiner Fenster.

Der von mir vorgeschlagene Ansatz ist halt unabhängig von einem eingebundenen Manifest / der DPI Awareness der Anwendung.

Habe mir die Fenster auf dem höher auflösenden Laptop angeschaut und keine Veränderungen festgestellt.
Das Problem ist, dass ohne Einbindung des Manifests die von mir gewählten Lösungen immer 100% angezeigt haben und die von dir erwähnten Befehle in XE nicht vorhanden sind. Deshalb kams erst zur Einbindung von XPMan. Die hat dann aber auch schon ausgereicht um das Problem zu lösen

siehe auch https://www.delphipraxis.net/217085-...ml#post1548207

Wenn etwas in den mitgelieferten API-Aufrufen fehlt,

dann entweder etwas suchen, wo es enthalten ist.
* JCL
* WinMD
* oder so

oder es selbst implementieren
* in diesem Fall beim Hersteller nachsehn (auf der Webseite oder im Platform-SDK)
* im SDK suchen und das C++ nach Delphi übersetzen, oder die Definition im MSDN suchen und sich den Delphi-Aufruf entsprechend zusammenbauen

SetThreadDpiAwarenessContext
GetDpiForMonitor
https://learn.microsoft.com/de-de/wi...arenesscontext

Delphi XE, aus dem Jahr 2010, kann natürlich noch keine API kennen, welche erst im Jahre 2015 mit Windows 10 aufgetaucht ist.