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

LCL: fix DPI scaling for aligned controls with anchor on their free site. Issue #41007

Browse Source 
(cherry picked from commit 9c9902c1fc)
This commit is contained in:
Martin 2024-10-05 13:11:35 +02:00
parent 4ff7d8564d
commit ea0604c23a
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/control.inc
View File

@ -3190,7 +3190,7 @@ begin
AAHeight := AAHeight and (Align in [alNone, alTop, alBottom])
and not((akTop in Anchors) and (akBottom in Anchors));
if (Align=alNone) and (akLeft in Anchors) then
if (Align in [alNone, alRight]) and (akLeft in Anchors) then
NewLeft := Round(NewLeft * AXProportion);
if (Align=alNone) and (akRight in Anchors) and (Parent<>nil)
and (AnchorSideRight.Control=nil) then
@ -3206,7 +3206,7 @@ begin
end;
end;
if (Align=alNone) and (akTop in Anchors) then
if (Align in [alNone, alBottom]) and (akTop in Anchors) then
NewTop := Round(NewTop * AYProportion);
if (Align=alNone) and (akBottom in Anchors) and (Parent<>nil)
and (AnchorSideBottom.Control=nil) then