Delphi Programme Schriftvergrößert obwohl nicht aktiv

[stalkingwolf]

Die Funktion sagt nur das im System die Schriftvergrößerung aktiv ist und das man dadurch das Programm evtl nicht korrekt bedienen kann.

Code:

// Überprüft ob die DPI Einstellung auf 96 sitzt. 96 ist die Normalegröße
// Bei allem darüber ist die Bildschirmvergrößerung aktiviert
function isFormSizeNormal:boolean;
var dc: hdc;
begin
    dc:= GetDC(0);
    Result:=(GetDeviceCaps(dc, LOGPIXELSX)=96);
    ReleaseDC(0, DC);
end;

da diese nicht anspringt bedeutet da die DPI auf 96 stehen müsste. Aber unsere Programm sehen aus wie bei 125%.
Schaltet man auf 125% dann ändert sich nichts. Es wird also nicht noch größer.