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

LCL: undo change 48723, because of bug #27837

Browse Source 
git-svn-id: trunk@48758 -
This commit is contained in:
mattias 2015-04-14 21:44:50 +00:00
parent 6e1f74fdb9
commit 274195b202
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/wincontrol.inc
View File

@ -858,14 +858,14 @@ begin
end else begin end else begin
SetFixedLeftTop(ChildData,Side,Child.GetSidePosition(Side)-MoveDiff); SetFixedLeftTop(ChildData,Side,Child.GetSidePosition(Side)-MoveDiff);
end; end;
end else if (Child.Align=alNone) and (Side in Child.Anchors) then begin {end else if (Child.Align=alNone) and (Side in Child.Anchors) then begin
// e.g. Align=alNone, Anchors=[akLeft,akTop,akRight] // e.g. Align=alNone, Anchors=[akLeft,akTop,akRight]
if FindMinimum then begin if FindMinimum then begin
// no auto move // no auto move
end else begin end else begin
// don't move, but use them for bounds computation // don't move, but use them for bounds computation
SetFixedLeftTop(ChildData,Side,Child.GetSidePosition(Side)); SetFixedLeftTop(ChildData,Side,Child.GetSidePosition(Side));
end; end;}
end else if (Child.Align=alCustom) end else if (Child.Align=alCustom)
and (Side in AnchorAlign[alCustom]) then begin and (Side in AnchorAlign[alCustom]) then begin
if FindMinimum then begin if FindMinimum then begin