paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-07-31 19:56:13 +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

5
ide/sourcefilemanager.pas
View File

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