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

IDE: removed unneeded search, added comment

Browse Source 
git-svn-id: trunk@14838 -
This commit is contained in:
mattias 2008-04-15 17:58:32 +00:00
parent 1b91ed2cf9
commit 91532eaa76
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
designer/jitforms.pp
View File

@ -808,12 +808,12 @@ end;
function TJITComponentList.OnFindGlobalComponent(
const AName: AnsiString): TComponent;
begin
// Note: do not search in the 'Application' object
// this function should only find designer forms
// This event is triggered everytime TReader searches a Component.
// It is triggered for every sub component and every reference.
// The sub comonent are found by TReader itself.
// The other components are done at the end via GlobalFixupReferences.
// So, there is nothing left to do here.
Result := nil;
{$IFDEF EnableMultiFormProperties}
Result := PkgBoss.FindReferencedRootComponent(CurReadJITComponent, AName);
{$ENDIF}
//DebugLn(dbgsName(CurReadJITComponent), ' FIND global component ', AName, ' ', dbgsName(Result));
end;