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

IDE: Fix TForm.DesignTimePPI changing when form is loaded with different PPI and "Force DPI scaling in design time" is off. Issue #37227, patch by Emil Totev.

Browse Source 
git-svn-id: trunk@63482 -
This commit is contained in:
wp 2020-06-30 08:55:48 +00:00
parent 70293d07b0
commit bfeb99af9e
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/sourcefilemanager.pas
View File

@ -6156,8 +6156,8 @@ begin
begin begin
DsgControl.AutoAdjustLayout(lapAutoAdjustForDPI, DsgControl.DesignTimePPI, Screen.PixelsPerInch, 0, 0); DsgControl.AutoAdjustLayout(lapAutoAdjustForDPI, DsgControl.DesignTimePPI, Screen.PixelsPerInch, 0, 0);
DesignerProcs.ScaleNonVisual(DsgControl, DsgControl.DesignTimePPI, Screen.PixelsPerInch); DesignerProcs.ScaleNonVisual(DsgControl, DsgControl.DesignTimePPI, Screen.PixelsPerInch);
end;
DsgControl.DesignTimePPI := Screen.PixelsPerInch; DsgControl.DesignTimePPI := Screen.PixelsPerInch;
end;
DsgControl.PixelsPerInch := Screen.PixelsPerInch; DsgControl.PixelsPerInch := Screen.PixelsPerInch;
end; end;
{$IF (FPC_FULLVERSION >= 30003)} // TDataModule.DesignPPI was added in FPC 3.0.3 {$IF (FPC_FULLVERSION >= 30003)} // TDataModule.DesignPPI was added in FPC 3.0.3