From 7dfdc75c20d2d748fb01b943e68e4c1acf5ba80b Mon Sep 17 00:00:00 2001
From: ondrej <ondrej@lazarus-ide.org>
Date: Fri, 9 Dec 2016 23:02:55 +0000
Subject: [PATCH] ide: designer: don't scale forms with Scaled=False.

git-svn-id: trunk@53623 -
---
 ide/sourcefilemanager.pas | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/ide/sourcefilemanager.pas b/ide/sourcefilemanager.pas
index 417be23633..1ee4708f54 100644
--- a/ide/sourcefilemanager.pas
+++ b/ide/sourcefilemanager.pas
@@ -6384,11 +6384,10 @@ begin
         if NewComponent is TCustomDesignControl then
         begin
           DsgControl := TCustomDesignControl(NewComponent);
-          if DsgControl.DesignTimePPI<>Screen.PixelsPerInch then
-          begin
+          if DsgControl.Scaled and (DsgControl.DesignTimePPI<>Screen.PixelsPerInch) then
             DsgControl.AutoAdjustLayout(lapAutoAdjustForDPI, DsgControl.DesignTimePPI, Screen.PixelsPerInch, 0, 0, False);
-            DsgControl.DesignTimePPI := Screen.PixelsPerInch;
-          end;
+          DsgControl.DesignTimePPI := Screen.PixelsPerInch;
+          DsgControl.PixelsPerInch := Screen.PixelsPerInch;
         end;
 
         if NewComponent is TFrame then