From a2652fa7de4bdb0489bc9aa54711277e9ad67a50 Mon Sep 17 00:00:00 2001
From: ondrej <ondrej@lazarus-ide.org>
Date: Wed, 7 Dec 2016 22:28:47 +0000
Subject: [PATCH] lcl: TControl: highDPI: scale fonts also for ParentFont=True
 when no parent is present. Issue #31083

git-svn-id: trunk@53595 -
---
 lcl/include/control.inc | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lcl/include/control.inc b/lcl/include/control.inc
index e116cbda61..7f1c21fddb 100644
--- a/lcl/include/control.inc
+++ b/lcl/include/control.inc
@@ -2951,7 +2951,7 @@ var
   NewLeft, NewTop, NewWidth, NewHeight, OldWidth, OldHeight: Integer;
   NewRight, NewBottom: Int64;
 begin
-  if (AScale0Fonts or (Font.Height<>0)) and not ParentFont then
+  if (AScale0Fonts or (Font.Height<>0)) and (not ParentFont or (Parent=nil)) then
     Font.Height := Round(GetFontData(Font.Reference.Handle).Height*AYProportion);
 
   // Apply the changes