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

lcl: forms: highDPI: ScaleBy only when scale really changed.

Browse Source 
git-svn-id: trunk@53501 -
This commit is contained in:
ondrej 2016-12-01 00:28:15 +00:00
parent 1c9c0abeb2
commit f4df715ad3
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/include/customform.inc
View File

@ -159,7 +159,7 @@ begin
EndFormUpdate; // the BeginFormUpdate is in CreateNew
inherited AfterConstruction;
if Scaled then
if Scaled and (Screen.PixelsPerInch<>DesignTimeDPI) then
begin
ScaleBy(Screen.PixelsPerInch, DesignTimeDPI);
FPixelsPerInch := Screen.PixelsPerInch;
@ -2249,7 +2249,7 @@ procedure TCustomForm.WMDPIChanged(var Msg: TLMessage);
begin
if Parent=nil then
begin
if Scaled then
if Scaled and (Msg.wParamhi<>PixelsPerInch) then
begin
ScaleBy(Msg.wParamhi, PixelsPerInch);
FPixelsPerInch := Msg.wParamhi;