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

lcl: forms: don't change Font PPI if Application.Scaled=False. Issue #32260

Browse Source 
git-svn-id: trunk@55659 -
This commit is contained in:
ondrej 2017-08-14 10:15:43 +00:00
parent b7b0767583
commit 9932d66e51
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/include/customdesigncontrol.inc
View File

@ -18,7 +18,8 @@ begin
FScaled := True; FScaled := True;
FDesignTimePPI := 96; FDesignTimePPI := 96;
FPixelsPerInch := FDesignTimePPI; FPixelsPerInch := FDesignTimePPI;
Font.PixelsPerInch := FDesignTimePPI; if Application.Scaled then
Font.PixelsPerInch := FDesignTimePPI;
end; end;
procedure TCustomDesignControl.AutoAdjustLayout(AMode: TLayoutAdjustmentPolicy; procedure TCustomDesignControl.AutoAdjustLayout(AMode: TLayoutAdjustmentPolicy;
@ -103,5 +104,10 @@ end;
procedure TCustomDesignControl.SetScaled(const AScaled: Boolean); procedure TCustomDesignControl.SetScaled(const AScaled: Boolean);
begin begin
if FScaled=AScaled then
Exit;
FScaled := AScaled; FScaled := AScaled;
if not FScaled then
Font.PixelsPerInch := Screen.PixelsPerInch;
end; end;