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

LCL: control: DoFixDesignFontPPI Begin/EndUpdate

Browse Source 
git-svn-id: trunk@54249 -
This commit is contained in:
ondrej 2017-02-21 23:50:33 +00:00
parent dae26dc5a9
commit 301fe8fb23
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lcl/include/control.inc
View File

@ -1509,8 +1509,13 @@ begin
if AFont.PixelsPerInch <> ADesignTimePPI then
begin
H := AFont.Height;
AFont.Height := MulDiv(H, AFont.PixelsPerInch, ADesignTimePPI);
AFont.PixelsPerInch := ADesignTimePPI;
AFont.BeginUpdate;
try
AFont.Height := MulDiv(H, AFont.PixelsPerInch, ADesignTimePPI);
AFont.PixelsPerInch := ADesignTimePPI;
finally
AFont.EndUpdate;
end;
end;
end;