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

LCL: forms: call AutoAdjustLayout in Show if necessary - it doesn't receive LM_DPICHANGED if the form is moved to a different monitor while being invisible.

Browse Source 
git-svn-id: trunk@53993 -
This commit is contained in:
ondrej 2017-01-24 12:12:18 +00:00
parent ae58211303
commit df696ddabc
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/include/customform.inc
View File

@ -2318,6 +2318,10 @@ end;
------------------------------------------------------------------------------}
procedure TCustomForm.Show;
begin
if Scaled and (Monitor.PixelsPerInch<>PixelsPerInch) then
AutoAdjustLayout(lapAutoAdjustForDPI, PixelsPerInch, Monitor.PixelsPerInch,
Width, MulDiv(Width, Monitor.PixelsPerInch, PixelsPerInch), True);
Visible := True;
BringToFront;
end;