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

LCL: fixed removing anchor side references issue #7441

Browse Source 
git-svn-id: trunk@9990 -
This commit is contained in:
mattias 2006-09-26 22:20:55 +00:00
parent 60b871dd43
commit 1aa2de4f39
1 changed files with 16 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
lcl/include/control.inc
View File

@ -1960,15 +1960,28 @@ end;
procedure TControl.ForeignAnchorSideChanged(TheAnchorSide: TAnchorSide;
Operation: TAnchorSideChangeOperation);
var
Side: TAnchorKind;
AControl: TControl;
begin
AControl:=TheAnchorSide.Owner;
//debugln('TControl.ForeignAnchorSideChanged A ',DbgSName(TheAnchorSide.Owner),' Operation=',dbgs(ord(Operation)),' Anchor=',dbgs(ord(TheAnchorSide.Kind)));
if TheAnchorSide.Control=Self then begin
if fAnchoredControls=nil then
fAnchoredControls:=TFPList.Create;
if fAnchoredControls.IndexOf(TheAnchorSide.Owner)<0 then
fAnchoredControls.Add(TheAnchorSide.Owner);
if fAnchoredControls.IndexOf(AControl)<0 then
fAnchoredControls.Add(AControl);
end else if fAnchoredControls<>nil then begin
fAnchoredControls.Remove(TheAnchorSide.Owner);
if TheAnchorSide.Owner<>nil then begin
for Side:=Low(TAnchorKind) to High(TAnchorKind) do begin
if (AControl.FAnchorSides[Side]<>nil)
and (AControl.FAnchorSides[Side].Control=Self) then begin
// still anchored
exit;
end;
end;
end;
fAnchoredControls.Remove(AControl);
end;
end;