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

IDE, alow search for unit in project only (without packages)

Browse Source 
git-svn-id: trunk@32334 -
This commit is contained in:
martin 2011-09-14 13:47:26 +00:00
parent f188c49a1a
commit 7fc60239cb
2 changed files with 10 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
ide/main.pp
View File

@ -14126,12 +14126,14 @@ begin
SearchPath:=TrimSearchPath(SearchPath,BaseDir);
if SearchInPath(StartUnitPath,AFilename,Result) then exit;
// search include file in source directories of all required packages
SearchFile:=AFilename;
Result:=PkgBoss.FindIncludeFileInProjectDependencies(Project1,SearchFile);
{$IFDEF VerboseFindSourceFile}
debugln(['TMainIDE.FindSourceFile trying packages "',SearchPath,'" Result=',Result]);
{$ENDIF}
if not(fsfSkipPackages in Flags) then begin
// search include file in source directories of all required packages
SearchFile:=AFilename;
Result:=PkgBoss.FindIncludeFileInProjectDependencies(Project1,SearchFile);
{$IFDEF VerboseFindSourceFile}
debugln(['TMainIDE.FindSourceFile trying packages "',SearchPath,'" Result=',Result]);
{$ENDIF}
end;
if Result<>'' then exit;
Result:=SearchIndirectIncludeFile;

3
ideintf/lazideintf.pas
View File

@ -124,7 +124,8 @@ type
fsfSearchForProject,
fsfUseIncludePaths,
fsfUseDebugPath,
fsfMapTempToVirtualFiles
fsfMapTempToVirtualFiles,
fsfSkipPackages
);
TFindSourceFlags = set of TFindSourceFlag;