paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-07-25 20:56:09 +02:00
Code Issues Packages Projects Releases Wiki Activity

ide: designer: don't scale forms with Scaled=False.

Browse Source 
git-svn-id: trunk@53623 -
This commit is contained in:
ondrej 2016-12-09 23:02:55 +00:00
parent c2e239e881
commit 7dfdc75c20
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
ide/sourcefilemanager.pas
View File

@ -6384,11 +6384,10 @@ begin
if NewComponent is TCustomDesignControl then
begin
DsgControl := TCustomDesignControl(NewComponent);
if DsgControl.DesignTimePPI<>Screen.PixelsPerInch then
begin
if DsgControl.Scaled and (DsgControl.DesignTimePPI<>Screen.PixelsPerInch) then
DsgControl.AutoAdjustLayout(lapAutoAdjustForDPI, DsgControl.DesignTimePPI, Screen.PixelsPerInch, 0, 0, False);
DsgControl.DesignTimePPI := Screen.PixelsPerInch;
end;
DsgControl.DesignTimePPI := Screen.PixelsPerInch;
DsgControl.PixelsPerInch := Screen.PixelsPerInch;
end;
if NewComponent is TFrame then