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

IDE: fixed find/rename identifier: check if project is virtual

Browse Source 
git-svn-id: trunk@34588 -
This commit is contained in:
mattias 2012-01-04 23:33:50 +00:00
parent a956014b95
commit 1a479ce95a
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ide/main.pp
View File

@ -15397,8 +15397,10 @@ var
CurFileMask:=Options.ExtraFiles[i];
if not GlobalMacroList.SubstituteStr(CurFileMask) then exit;
CurFileMask:=ChompPathDelim(TrimFilename(CurFileMask));
if not FilenameIsAbsolute(CurFileMask) then
if not FilenameIsAbsolute(CurFileMask) then begin
if Project1.IsVirtual then continue;
CurFileMask:=AppendPathDelim(Project1.ProjectDirectory)+CurFileMask;
end;
OnlyPascalSources:=false;
if DirPathExistsCached(CurFileMask) then begin
// a whole directory