Fehler TPageControl und TPanel!

[sko1]

Hallo,

ich habe hier einen blöden Fehler:
Auf einem TPageControl liegt ein TPanel mit Anchors [akLeft,akTop,akRight,akBottom].

Dieses wird nur bei einer Bildschirmanzeige in Windows 10 von 100% korrekt dargestellt, bei 125 oder 150% ist es viel zu groß, größer als das Pagecontrol!

Diese falsche Darstellung ändert sich auch nicht durch Ändern der Bildschirmeinstellung, erst nach Programmneustart bei 100% ist das Panel in der korrekten Größe!

Kann das jemand nachstellen (Berlin 10.1 Update 2) und viel wichtiger, wie bekomme ich das korrigiert?

Ciao
Stefan

[Jasocul]

Ist das Problem in der 10er immer noch drin? Unfassbar.
Du musst dich um die Skalierung selbst kümmern.

Setze die Property "Scaled" der Form auf False.
Danach berechnest du den Skalierungsfaktor und machst selbst ein ScaleBy im OnCreate der Form.

Für den Skalierungsfaktor habe ich mir eine kleine Funktion geschrieben:

Delphi-Quellcode:

Function GetScaleFactor : Integer;
var
  Reg : TRegistry;
begin
  Reg := TRegistry.Create(KEY_READ);
  try
    if Reg.OpenKeyReadOnly('\Control Panel\Desktop') then
    begin
      if Reg.ValueExists('LogPixels') then
        Result := Reg.ReadInteger('LogPixels')
      else
        Result := 96;
    end
    else
    begin
      Result := 96;
    end;
    Reg.CloseKey;
    Result := Round(Result * 100 / 96);
  finally
    Reg.Free;
  end;
end;

Im OnCreate steht dann:
  ScaleBy(GetScaleFactor, 100); Das hat bei mir bisher immer gut funktioniert.

[sko1]

Danke, aber das kann doch alles gar nicht wahr sein, oder?

Auf dem Panel sitzt ein anderes Control (Align = alClient) und icvh habe einen halben Tag gesucht warum das keine Scrollbars anzeigt (warum auch wenn sein ParentPanel riesig ist...)!

Ciao
Stefan

[Jasocul]

Zitat von sko1:

Danke, aber das kann doch alles gar nicht wahr sein, oder?

Leider doch. Ich arbeite schon seit Jahren mit dieser Lösung. Aktuell noch mit XE2. XE10 kommt in den nächsten Wochen. Muss ich das Problem also schon nicht mehr überprüfen.

[LTE5]

Zitat:

Leider doch. Ich arbeite schon seit Jahren mit dieser Lösung.

Ich ebenfalls. Ich berechne die Monitor-DPI im FormCreate jedes Formulars, setze ScaleBy in derselben Funktion und ändere danach händisch ein paar Controls bei denen ich weiß, dass die unter DPI > 100% nicht korrekt dargestellt werden.
Scaled ist selbstverständlich auf False.

[sko1]

Muss ich daraus schlussfolgern, dass es weitere Controls gibt die solche Fehler haben?

Gibt es irgendwo eine Liste dieser betroffenen Kandidaten?

Ich verwende gern Alignment, Anchors, Margins um Elemente bei Formgrößenänderungen entsprechend anzupassen, muss man dafür jetzt den gesamten Code selbst schreiben?

Zur Entwurfszeit sieht man ja nicht dass die Skalierung nicht stimmt, da wird alles ordentlich dargestellt, wenn man die Form vergrößert / verkleinert, die Fehldarstellung kommt dann ja erst zur Laufzeit!

Ciao
Stefan