paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-14 14:39:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

lcl: TControl: highDPI: scale fonts also for ParentFont=True when no parent is present. Issue #31083

Browse Source 
git-svn-id: trunk@53595 -
This commit is contained in:
ondrej 2016-12-07 22:28:47 +00:00
parent e7b8a7cf27
commit a2652fa7de
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/include/control.inc
View File

@ -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