Hi,

ich entwickle auf einem System mit einem 5K Monitor (5120x2160 – Skalierung 150%). Bei Delphi ist unter High DPI „Automatic (Screen PPI)“ gewählt. Bei neuen VCL-Formularen wird PixelsPerInch = 144 gesetzt.

Bei einer kleinen Testanwendung habe ich auf einem Formular:

• eine TCategoryPanelGroup mit einem Panel und darauf 3 TLabel- und 3 TEdit-Komponenten
• ein TDBCtrlGrid, ebenfalls mit 3 TLabel- und 3 TDBEdit-Komponenten
• ein TPanel, ebenfalls mit 3 TLabel- und 3 TEdit-Komponenten

Bei den Projektoptionen ist „Über Monitor v2“ gewählt.

Auf meinem System wird das Formular durch das fertige Programm wie im Bild1 angezeigt.

Auf einem anderen System mit 1920x1080 – Skalierung 100% wird das Formular wie im Bild2 angezeigt.

Bei dem Panel mit den Labels 4-6 und den Edit-Komponenten wird das Formular richtig skaliert. Bei dem CategoryPanel und bei dem DBCtrlGrid werden die Labels und die Edit-Komponenten falsch bzw. gar nicht skaliert. Besonders auffällig ist dies bei den Edit-Komponenten, wo ParentFont = false ist und Style = fsBold gewählt wurde. Bei dem „normalen“ Panel passiert dies nicht.

Hat jemand ähnliche Erfahrungen bzw. gibt es immer noch Probleme mit der Skalierung unter High DPI?

Es gibt in der Tat immer noch Probleme bei Controls mit ParentFont = False. Wenn du da einen Fall reproduzieren kannst, solltest du dafür einen Bugreport anlegen.

Als Workaround habe ich mir für Controls mit abweichenden Font-Eigenschaften (Farbe, Style) einen Helper geschrieben, den ich nach einem DPI-Change mit den passenden Werten aufrufe.

zusammenfalten · markieren

Delphi-Quellcode:

type
  TControlHelper = class helper for TControl
  public
    procedure SetFontColorStyle(AColor: TColor; AStyle: TFontStyles);
  end;

...

procedure TControlHelper.SetFontColorStyle(AColor: TColor; AStyle: TFontStyles);
begin
  ParentFont := True;
  if AColor <> clNone then
    Font.Color := AColor;
  Font.Style := AStyle;
end;

...

  pnlDirCaption.SetFontColorStyle(clNone, [TFontStyle.fsBold]);

Danke für den Hinweis mit dem Helper. Da die Position auf dem Formular dann immer noch falsch ist, werde ich wohl notgedrungen bei der 96 DPI-Einstellung in der Arbeitsumgebung bleiben. Bugreport ist auf dem Weg.