High DPI für eigene Controls?

[uups]

Hallo!

Ich habe meine Anwendung auf HighDPI umgestellt und es sieht nun auch auf den höchsauflösenden Bildschirmen gut aus. Bis auf die wenigen GUI-Komponenten, die ich selbst erstellt habe. Z.B. habe ich mir von einiger Zeit eine Komponente erstellt, die aus einem TPanel besteht, auf dem mehrere TComboBox und TImage platz genommen haben. Die Komponente wird als Package in Delphi installiert. Die GUI der Komponente wird komplett zur Laufzeit erstellt. Nach der Umstellung auf HighDPI habe ich nun das Problem, dass die GUI-Elemente der Komponente absolut falsch dargestellt werden, obwohl ich in der Quellcode überall MulDiv() gesetzt habe. Sogar die Schrift in den ComboBoxen ist mehrfach vergrössert.

Bin gerade am verzweifeln, komme nicht weiter. Was mache falsch?

[CCRDude]

Zitat von uups:

Bin gerade am verzweifeln, komme nicht weiter. Was mache falsch?

Ich würde vermuten: die Umrechnung?

"MulDiv()" sagt jetzt nicht wirklich was aus. Klar kannst/musst Du Positionen/Größen umrechnen, aber nur weil man eine Rechenoperation anwendet, heißt das ja noch nicht, dass man die richtigen Zahlen einsetzt. Bring doch mal ein paar Code-Beispiele, wie Du das genau handhabst.

[uups]

z.B. so erstelle ich ein Button für die GUI der Komponente:

Delphi-Quellcode:

FButtonFirst := TButton.Create(FPanelButtonsFirstPrew);
with FButtonFirst do
begin
  Parent := FPanelButtonsFirstPrew;
  Width := MulDiv(16, Screen.PixelsPerInch, 96);
  Height := MulDiv(16, Screen.PixelsPerInch, 96);
  Top := MulDiv(4, Screen.PixelsPerInch, 96);
  Left := MulDiv(8, Screen.PixelsPerInch, 96);
  OnClick := ButtonFirstClick;
end;

[DieDolly]

Ich mache das alles manuell und verlasse mich da keines Falls auf irgendwelche mathematischen Funktionen wie MulDiv.
Ich lese einmalig die DPI aus und entscheide dann was wie groß wohin muss. Funktioniert bestens.

[Uwe Raabe]

Du solltest bedenken, daß beim Setzen von Parent bereits dessen DPI-Wert übernommen wird. Probier doch mal, den Parent als letztes zuzuweisen (ein konkretes, kleines Testprogramm wäre hier schön):

Delphi-Quellcode:

FButtonFirst := TButton.Create(FPanelButtonsFirstPrew);
with FButtonFirst do
begin
  Width := 16;
  Height := 16;
  Top := 4;
  Left := 8;
  OnClick := ButtonFirstClick;
  Parent := FPanelButtonsFirstPrew;
end;

[uups]

@Uwe Raabe
Vielen Dank! Oh Mann, das ist doch so offensichtlich mit dem Parent
Nicht ganz offensichtlich ist es dagegen mit dem Font der ComboBox. Der ist nach wie vor extrem groß, wenn High DPI aktiv ist.

[Uwe Raabe]

Zitat von uups:

Nicht ganz offensichtlich ist es dagegen mit dem Font der ComboBox. Der ist nach wie vor extrem groß, wenn High DPI aktiv ist.

Immer noch:

Zitat von Uwe Raabe:

(ein konkretes, kleines Testprogramm wäre hier schön)