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

LCL: autosize: fixed ignoring invsisible childs, bug #14259

Browse Source 
git-svn-id: trunk@21237 -
This commit is contained in:
mattias 2009-08-15 21:04:23 +00:00
parent 3f4099eb7b
commit 82a1c68921
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lcl/include/wincontrol.inc
View File

@ -685,6 +685,7 @@ begin
for i:=0 to ChildCount-1 do begin
Child:=WinControl.Controls[i];
ChildData:=Childs[Child];
if not ChildData.Visible then continue;
for a:=Low(TAnchorKind) to High(TAnchorKind) do begin
if ComputePosition(ChildData,a,assddLeftTop)<>crSuccess then begin
DebugLn(['TAutoSizeCtrlData.ComputePositions Failed to compute LeftTop ',DbgSName(Child),' ',dbgs(a)]);
@ -1025,6 +1026,7 @@ begin
Child:=WinControl.Controls[i];
ChildData:=Childs[Child];
ChildData.ClearSides;
if not ChildData.Visible then continue;
for a:=Low(TAnchorKind) to High(TAnchorKind) do begin
ChildData.Sides[a].Side:=asrLeft;
if (Child.Align in [alLeft,alRight,alTop,alBottom,alClient])
@ -1061,6 +1063,7 @@ begin
for i:=0 to ChildCount-1 do begin
Child:=WinControl.Controls[i];
ChildData:=Childs[Child];
if not ChildData.Visible then continue;
for a:=Low(TAnchorKind) to High(TAnchorKind) do begin
if (ChildData.Sides[a].DistanceState[assddLeftTop]=assdfValid)
and (ChildData.Sides[a].DistanceState[assddRightBottom]=assdfValid)
@ -1085,8 +1088,9 @@ begin
begin
Child:=WinControl.Controls[i];
ChildData:=Childs[Child];
if (Child.Align=alNone)
and (akLeft in Child.Anchors) and (Child.AnchorSide[akLeft].Control=nil)
if not ChildData.Visible then continue;
if (Child.Align<>alNone) then continue;
if (akLeft in Child.Anchors) and (Child.AnchorSide[akLeft].Control=nil)
then begin
if (ChildData.Sides[akLeft].DistanceState[assddLeftTop]=assdfValid) then
MoveNonAlignedToLeft:=Max(MoveNonAlignedToLeft,
@ -1098,8 +1102,7 @@ begin
-(PreferredClientWidth
-ChildData.Sides[akLeft].Distance[assddRightBottom]));}
end;
if (Child.Align=alNone)
and (akTop in Child.Anchors) and (Child.AnchorSide[akTop].Control=nil)
if (akTop in Child.Anchors) and (Child.AnchorSide[akTop].Control=nil)
then begin
if (ChildData.Sides[akTop].DistanceState[assddLeftTop]=assdfValid) then
MoveNonAlignedToTop:=Max(MoveNonAlignedToTop,