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

lcl: forms: use a variable in WMDPIChanged. Issue #31050, by AlexeyT

Browse Source 
git-svn-id: trunk@53529 -
This commit is contained in:
ondrej 2016-12-02 17:03:38 +00:00
parent 23574b1a4a
commit c94e49018d
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lcl/include/customform.inc
View File

@ -2248,14 +2248,17 @@ begin
end;
procedure TCustomForm.WMDPIChanged(var Msg: TLMessage);
var
NewDpi: integer;
begin
if Parent=nil then
begin
if Scaled and (hi(Msg.wParam)<>PixelsPerInch) then
NewDpi := hi(Msg.wParam);
if Scaled and (NewDpi<>PixelsPerInch) then
begin
AutoAdjustLayout(lapAutoAdjustForDPI, FPixelsPerInch, hi(Msg.wParam),
Width, MulDiv(Width, hi(Msg.wParam), FPixelsPerInch), True);
FPixelsPerInch := hi(Msg.wParam);
AutoAdjustLayout(lapAutoAdjustForDPI, FPixelsPerInch, NewDpi,
Width, MulDiv(Width, NewDpi, FPixelsPerInch), True);
FPixelsPerInch := NewDpi;
end;
end;
end;