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

ide: optimized TCustomFormEditor.HasCircularDependencies a bit

Browse Source 
git-svn-id: trunk@21278 -
This commit is contained in:
paul 2009-08-18 08:54:20 +00:00
parent e447466f59
commit 2dc39a2443
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ide/customformeditor.pp
View File

@ -1844,14 +1844,14 @@ end;
function TCustomFormEditor.HasCircularDependencies(AClass: TComponentClass; AComponent: TComponent): Boolean;
function HasChild(WhatToTraverse, WhatToSearch: TComponent): Boolean;
function HasChild(WhatToTraverse: TComponent; WhatToSearch: TClass): Boolean;
var
i: integer;
begin
Result := False;
for i := 0 to WhatToTraverse.ComponentCount - 1 do
begin
Result := WhatToTraverse.Components[i].InheritsFrom(WhatToSearch.ClassType) or
Result := WhatToTraverse.Components[i].InheritsFrom(WhatToSearch) or
HasChild(WhatToTraverse.Components[i], WhatToSearch);
if Result then Exit;
end;
@ -1866,7 +1866,7 @@ begin
if AnUnitInfo = nil then Exit;
Cmp := AnUnitInfo.Component;
if Cmp = nil then Exit;
Result := HasChild(Cmp, AComponent);
Result := HasChild(Cmp, AComponent.ClassType);
end;
function TCustomFormEditor.GetAncestorLookupRoot(AComponent: TComponent