From 2b35575b4ea2cb76fa3f2e03c238fa7e59e93351 Mon Sep 17 00:00:00 2001
From: ondrej <ondrej@lazarus-ide.org>
Date: Wed, 30 Nov 2016 23:47:31 +0000
Subject: [PATCH] lcl: forms: highDPI: Scale in AfterConstruction when
 Scaled=true

git-svn-id: trunk@53499 -
---
 lcl/include/customform.inc | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/lcl/include/customform.inc b/lcl/include/customform.inc
index 78bd6ec061..3840241f17 100644
--- a/lcl/include/customform.inc
+++ b/lcl/include/customform.inc
@@ -158,6 +158,12 @@ begin
 
   EndFormUpdate; // the BeginFormUpdate is in CreateNew
   inherited AfterConstruction;
+
+  if Scaled then
+  begin
+    ScaleBy(Screen.PixelsPerInch, DesignTimeDPI);
+    FPixelsPerInch := Screen.PixelsPerInch;
+  end;
 end;
 
 {------------------------------------------------------------------------------