paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-03 14:07:27 +01: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
This commit is contained in:
Martin 2024-10-05 13:11:35 +02:00
parent 9609656964
commit 9c9902c1fc
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]) AAHeight := AAHeight and (Align in [alNone, alTop, alBottom])
and not((akTop in Anchors) and (akBottom in Anchors)); 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); NewLeft := Round(NewLeft * AXProportion);
if (Align=alNone) and (akRight in Anchors) and (Parent<>nil) if (Align=alNone) and (akRight in Anchors) and (Parent<>nil)
and (AnchorSideRight.Control=nil) then and (AnchorSideRight.Control=nil) then
@ -3206,7 +3206,7 @@ begin
end; end;
end; end;
if (Align=alNone) and (akTop in Anchors) then if (Align in [alNone, alBottom]) and (akTop in Anchors) then
NewTop := Round(NewTop * AYProportion); NewTop := Round(NewTop * AYProportion);
if (Align=alNone) and (akBottom in Anchors) and (Parent<>nil) if (Align=alNone) and (akBottom in Anchors) and (Parent<>nil)
and (AnchorSideBottom.Control=nil) then and (AnchorSideBottom.Control=nil) then