Fastreport 2025.1 Chart wird nur verkleinert dargestellt

[norwegen60]

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

[himitsu]

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.

[norwegen60]

Tja, irgendwie war das falsche Scaling plötzlich wieder da und trotz SVN-reverts bekam ich es nicht mehr hin, den Chart korrekt zu skalieren.

Jetzt habe ich es aber hoffentlich endgültig und ohne Anwendung von Manifests gelöst.
Ich habe zum Skalieren diese Funktion implementiert. Sie hat sich nach verschiedenen Builds und auf unterschiedlichen Rechnern bewährt:

Delphi-Quellcode:

procedure TForm1.AssignAndScaleChart(aPictureView: TFrxPictureView; aChart: TChart);
// *****************************************************************************************************************************************
// Chart in FR report auch bei Screen scaling > 100% korrekt skalieren
var
  rHeight, rWidth: Extended;
  rFactorHeight, rFactorWidth: Double;

begin
  // Erlaubte Größenparameter speichern
  rWidth := aPictureView.Width;
  rHeight := aPictureView.Height;

  // Autosize uns Autostretch zulassen und Chart laden
  aPictureView.Stretched := true;
  aPictureView.AutoSize := true;
  aPictureView.Picture.Assign(aChart.TeeCreateMetafile(true, Rect(0, 0, Round(aPictureView.Width), Round(aPictureView.Height))));

  FMsg := FMsg + Format('; PicViewStretch: %1.1f x %1.1f', [aPictureView.Width, aPictureView.Height]);

  // Factor ermitteln damit Chart in definierte Größenparameter passt
  rFactorWidth := rWidth / aPictureView.Width;
  rFactorHeight := rHeight / aPictureView.Height;

  FMsg := FMsg + Format('; Factor: %1.3f x %1.3f', [rFactorWidth, rFactorHeight]);

  // Autosize und AutoStretch abschalten
  aPictureView.AutoSize := false;
  aPictureView.Stretched := false;

  // PictureView an definierte Größe anpassen
  aPictureView.Width := aPictureView.Width * rFactorWidth;
  aPictureView.Height := aPictureView.Height * rFactorHeight;

  FMsg := FMsg + Format('; PicViewNew: %1.1f x %1.1f', [aPictureView.Width, aPictureView.Height]);
end;

Und der Aufruf erfolgt so:

Delphi-Quellcode:

procedure TForm1.btPrintClick(Sender: TObject);
// *****************************************************************************************************************************************
var
  lPictureView: TFrxPictureView;

begin
  // Assing the chart to the picture
  lPictureView := TFrxPictureView(frxReport1.FindObject('rpimChart'));
  FMsg := Format('PicViewOrg: %1.1f x %1.1f', [lPictureView.Width, lPictureView.Height]);

  AssignAndScaleChart(lPictureView, chChart);

  TFrxMemoView(frxReport1.FindObject('Memo2')).Text := FMsg;
  frxReport1.ShowReport;
end;

Das FMsg war nur zum Debuggen um die verschiedenen Width/Height zu sehen

Ergebnis siehe Anhang. Zur Darstellung der Größen habe ich den Rahmen des TfrxGroupHeader und des inneliegenden TFrxPictureView unterschiedlich gefärbt

[norwegen60]

Nachdem ich keinen Weg gefunden hatte TfrxChartView sicher zu verwenden bin ich dem Ratschlag gefolgt, generell ein virtuellen TChart zu erzeugen und den dann zu Assignen. Dabei habe ich festgestellt, dass diese Chart zu groß skaliert wurden. Nach etwas rumprobieren war die Lösung, AutoSize = False zu setzen. Damit funktioniert das Skaling jetzt mit in Forms eingebunden Chart und mit nur temporär erzeugten Charts

Delphi-Quellcode:

procedure TForm1.AssignAndScaleChart(aPictureView: TFrxPictureView; aChart: TChart);
// *****************************************************************************************************************************************
// Chart in FR report auch bei Screen scaling > 100% korrekt skalieren
var
  rHeight, rWidth: Extended;
  rFactorHeight, rFactorWidth: Double;

begin
  // Erlaubte Größenparameter speichern
  rWidth := aPictureView.Width;
  rHeight := aPictureView.Height;

  // Autosize uns Autostretch zulassen und Chart laden
  aPictureView.Stretched := true;
  aPictureView.AutoSize := false;
  aPictureView.Picture.Assign(aChart.TeeCreateMetafile(true, Rect(0, 0, Round(aPictureView.Width), Round(aPictureView.Height))));

  FMsg := FMsg + Format('; PicViewStretch: %1.1f x %1.1f', [aPictureView.Width, aPictureView.Height]);

  // Factor ermitteln damit Chart in definierte Größenparameter passt
  rFactorWidth := rWidth / aPictureView.Width;
  rFactorHeight := rHeight / aPictureView.Height;

  FMsg := FMsg + Format('; Factor: %1.3f x %1.3f', [rFactorWidth, rFactorHeight]);

  // Autosize abschalten
  aPictureView.Stretched := false;

  // PictureView an definierte Größe anpassen
  aPictureView.Width := aPictureView.Width * rFactorWidth;
  aPictureView.Height := aPictureView.Height * rFactorHeight;

  FMsg := FMsg + Format('; PicViewNew: %1.1f x %1.1f', [aPictureView.Width, aPictureView.Height]);
end;