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

LCL: Set Result in TAnchorSide.CheckSidePosition. Solves issue #20367, patch from cobines

Browse Source 
git-svn-id: trunk@33526 -
This commit is contained in:
juha 2011-11-14 11:26:45 +00:00
parent cdaafd9a2e
commit 43d521337d
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lcl/controls.pp
View File

@ -3517,6 +3517,7 @@ var
CurReferenceControl: TControl;
CurReferenceSide: TAnchorSideReference;
begin
Result:=false;
ReferenceControl:=nil;
ReferenceSide:=Side;
Position:=0;
@ -3532,6 +3533,8 @@ begin
Found:=false;
CurReferenceControl:=NewControl;
CurReferenceSide:=NewSide;
if CurReferenceControl = nil then
exit(true);
while CurReferenceControl<>nil do begin
// check for circles
@ -3541,7 +3544,7 @@ begin
DebugLn(['TAnchorSide.GetSidePosition Circle, ',DbgSName(Owner),' ',dbgs(Kind)]);
{$ENDIF}
ReferenceControl:=nil;
exit(false);
exit;
end;
inc(ChainLength);
@ -3552,7 +3555,7 @@ begin
DebugLn(['TAnchorSide.GetSidePosition Circle, ',DbgSName(Owner),' ',dbgs(Kind)]);
{$ENDIF}
ReferenceControl:=nil;
exit(false);
exit;
end;
// check if ReferenceControl is valid
@ -3564,7 +3567,7 @@ begin
DebugLn(['TAnchorSide.GetSidePosition invalid anchor control, ',DbgSName(Owner),' ',dbgs(Kind)]);
{$ENDIF}
ReferenceControl:=nil;
exit(false);
exit;
end;
//debugln(['TAnchorSide.CheckSidePosition CurReferenceControl=',DbgSName(CurReferenceControl),' Kind=',dbgs(Kind),' Visible=',CurReferenceControl.IsControlVisible]);