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

AnchorDocking: properly initialize CheckNode result and somewhat simplify its logic, issue #39742

Browse Source
This commit is contained in:
Maxim Ganetsky 2023-05-05 22:03:10 +03:00
parent 192ccb4693
commit 82cfcc3d84
1 changed files with 6 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
components/anchordocking/anchordocking.pas
View File

@ -1807,25 +1807,20 @@ var
AControl,AParent: TControl;
SubControlsCount,realsubcontrolcoun: integer;
begin
AControl:=nil;
AParent:=nil;
result:=adlclWrongly;
if Node.IsSplitter then begin
inc(ControlsCount);
exit(adlclCorrect);
end
else if Node=Tree.Root then begin
result:=adlclCorrect;
AControl:=nil;
AParent:=nil;
end
else if Node=Tree.Root then
result:=adlclCorrect
else begin
AControl:=FindControl(Node.Name);
AParent:=FindControl(GetRealParent(Node).Name);
if Node.NodeType=adltnLayout then result:=adlclCorrect
else if AControl is TAnchorDockPanel then result:=adlclCorrect
else if AControl=nil then result:=adlclWrongly
else if GetDockParent(AControl)<>AParent then result:=adlclWrongly
else
begin
end;
else if AControl is TAnchorDockPanel then result:=adlclCorrect;
end;
if AControl<>nil then
if not (AControl is TAnchorDockHostSite) then