paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-19 11:49:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL/LCLScaling: Fix ParentFont becoming to false upon scaling. Issue #37299.

Browse Source 
(cherry picked from commit 95da3f4854)
This commit is contained in:
wp_xyz 2021-09-10 21:05:39 +02:00
parent 6e5e5b67df
commit 802dfb0ead
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lcl/include/control.inc
View File

@ -4178,6 +4178,7 @@ procedure TControl.AutoAdjustLayout(AMode: TLayoutAdjustmentPolicy;
var
lXProportion, lYProportion: Double;
lMode: TLayoutAdjustmentPolicy;
savedParentFont: Boolean;
begin
// First resolve ladDefault
lMode := AMode;
@ -4199,12 +4200,14 @@ begin
else lYProportion := 1.0;
DisableAutoSizing{$IFDEF DebugDisableAutoSizing}('TControl.AutoAdjustLayout'){$ENDIF};
savedParentFont := ParentFont;
try
if AMode in [lapAutoAdjustWithoutHorizontalScrolling, lapAutoAdjustForDPI] then
ScaleFontsPPI(AToPPI, lYProportion);
DoAutoAdjustLayout(lMode, lXProportion, lYProportion);
finally
ParentFont := savedParentFont;
EnableAutoSizing{$IFDEF DebugDisableAutoSizing}('TControl.AutoAdjustLayout'){$ENDIF};
end;
end;