Wie kann ich visuelle Vererbung mit hohen dpi-Werten arbeiten?

Question

Ich habe folgende Beispiel TForm1 Form mit zwei Tasten (BitBtn):

Zusätzlich habe ich eine zweite Form TForm2 die sich von der ersten Form abgeleitet ist. Die zweite Taste nach links bewegt wird, und eine andere Taste hinzugefügt:

Zur Laufzeit (Windows 7), sieht die zweite Form wie folgt aus:

Wenn ich ändern Schrift Skalierung auf 125%, sieht mein Formular so aus:

Irgendwie hat der neue Knopf die falsche Position und die falsche Größe. Was kann ich dagegen tun?

ich verwendet, um die folgenden .dfm Dateien (verkürzt):

object Form1: TForm1 
    Left = 0 
    Top = 0 
    Font.Height = -11 
    Font.Name = 'Tahoma' 
    Font.Style = [] 
    OldCreateOrder = False 
    PixelsPerInch = 96 
    TextHeight = 13 
    object BitBtn1: TBitBtn 
    Left = 8 
    Top = 8 
    Width = 105 
    Height = 105 
    Caption = 'BitBtn1' 
    end 
    object BitBtn2: TBitBtn 
    Left = 359 
    Top = 8 
    Width = 105 
    Height = 105 
    Caption = 'BitBtn2' 
    end 
end 

inherited Form2: TForm2 
    Caption = 'Form2' 
    PixelsPerInch = 96 
    TextHeight = 13 
    inherited BitBtn2: TBitBtn 
    Left = 191 
    Top = 7 
    ExplicitLeft = 191 
    ExplicitTop = 7 
    end 
    object BitBtn3: TBitBtn 
    Left = 359 
    Top = 8 
    Width = 105 
    Height = 104 
    Caption = 'BitBtn3' 
    end 
end 

Class-Dateien unverändert bleiben, wie der Designer sie erzeugt. Sie enthalten keinen relevanten Code.

Answer 1

fand ich eine mögliche Lösung selbst:

procedure TForm2.ReadState(Reader: TReader); 
begin 
    IntPtr(FReserved) := 0; 
    inherited; 
end;  

Das sieht seltsam: ein ReadState mit den folgenden Code zu überschreiben. Wie funktioniert es?

Ich schaute auf den VCL Quellcode und fand , dass die Skalierung nach dem Laden von Formularen erfolgt in TForm.ReadState(...). Apparrently, ein Feld FReserved von TControl geschützt wird verwendet, um die zur Zeit angewendet DPI Wert zu speichern:

• zunächst alle Komponenten meiner Basisklasse dfm gelesen
• dann werden sie skaliert und positioniert richtig
• und der aktuell angewendete DPI Wert wird in FReserved
• gespeichert, danach wird ReadState erneut aufgerufen, für die dfm Datei der abgeleiteten Klasse
• aber wegen des Wertes in FReserved, Skalierung auf Komponenten der abgeleiteten Form nicht angewandt wird

So würde eine Idee, die im Cache gespeicherten DPI Wert zurückgesetzt werden, bevor die Komponenten zu lesen. Es skaliert die Komponenten von Form1 zweimal, aber das tut nicht weh, da die ursprünglichen Größen und Positionen als Basiswert für die Skalierung gespeichert werden und das Ergebnis genau gleich ist.