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

lcl: forms: highDPI: use AutoAdjustLayout instead of ScaleBy for DPI-scaling. Issue #31045, by AlexeyT

Browse Source 
git-svn-id: trunk@53513 -
This commit is contained in:
ondrej 2016-12-01 22:03:27 +00:00
parent 337925d861
commit 9304766a81
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/include/customform.inc
View File

@ -161,7 +161,8 @@ begin
if Scaled and (Screen.PixelsPerInch<>FPixelsPerInch) then if Scaled and (Screen.PixelsPerInch<>FPixelsPerInch) then
begin begin
ScaleBy(Screen.PixelsPerInch, PixelsPerInch); AutoAdjustLayout(lapAutoAdjustForDPI, FPixelsPerInch, Screen.PixelsPerInch,
Width, MulDiv(Width, Screen.PixelsPerInch, FPixelsPerInch));
FPixelsPerInch := Screen.PixelsPerInch; FPixelsPerInch := Screen.PixelsPerInch;
end; end;
end; end;
@ -2252,7 +2253,8 @@ begin
begin begin
if Scaled and (hi(Msg.wParam)<>PixelsPerInch) then if Scaled and (hi(Msg.wParam)<>PixelsPerInch) then
begin begin
ScaleBy(hi(Msg.wParam), PixelsPerInch); AutoAdjustLayout(lapAutoAdjustForDPI, FPixelsPerInch, hi(Msg.wParam),
Width, MulDiv(Width, hi(Msg.wParam), FPixelsPerInch));
FPixelsPerInch := hi(Msg.wParam); FPixelsPerInch := hi(Msg.wParam);
end; end;
end; end;