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

LCL: DoAutoSize no longer tries to move childs positioned by CHildSizing.Layout

Browse Source 
git-svn-id: trunk@12503 -
This commit is contained in:
mattias 2007-10-17 10:34:37 +00:00
parent ca9310208c
commit 1e738d86c5
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lcl/include/wincontrol.inc
View File

@ -2730,7 +2730,7 @@ var
if Parent=nil then if Parent=nil then
Result:=false Result:=false
else else
Result:=Parent.ChildSizing.Layout<>cclNone; Result:=(Parent.ChildSizing.Layout<>cclNone);
end; end;
function HeightAnchored(CurAnchors: TAnchors): boolean; function HeightAnchored(CurAnchors: TAnchors): boolean;
@ -2768,6 +2768,11 @@ var
MinSpaceLeft: LongInt; MinSpaceLeft: LongInt;
MinSpaceTop: LongInt; MinSpaceTop: LongInt;
begin begin
if ChildSizing.Layout<>cclNone then begin
dx:=0;
dy:=0;
exit;
end;
dx:=High(integer); dx:=High(integer);
dy:=High(integer); dy:=High(integer);
MinSpaceLeft:=ChildSizing.LeftRightSpacing; MinSpaceLeft:=ChildSizing.LeftRightSpacing;