From 1c9c0abeb2a1f208644271a428bc080170c167a8 Mon Sep 17 00:00:00 2001
From: ondrej <ondrej@lazarus-ide.org>
Date: Wed, 30 Nov 2016 23:49:40 +0000
Subject: [PATCH] lcl: forms: highDPI: fix FPixelsPerInch assignment in
 WMDPIChanged (r53498)

git-svn-id: trunk@53500 -
---
 lcl/include/customform.inc | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/lcl/include/customform.inc b/lcl/include/customform.inc
index 3840241f17..911d2bb4ca 100644
--- a/lcl/include/customform.inc
+++ b/lcl/include/customform.inc
@@ -2250,10 +2250,11 @@ begin
   if Parent=nil then
   begin
     if Scaled then
+    begin
       ScaleBy(Msg.wParamhi, PixelsPerInch);
+      FPixelsPerInch := Msg.wParamhi;
+    end;
   end;
-
-  FPixelsPerInch := Msg.wParamhi;
 end;
 
 {------------------------------------------------------------------------------