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

IDE: fixed find/rename identifier: trim after making absolute

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

5
ide/main.pp
View File

@ -15396,11 +15396,12 @@ var
for i:=0 to Options.ExtraFiles.Count-1 do begin for i:=0 to Options.ExtraFiles.Count-1 do begin
CurFileMask:=Options.ExtraFiles[i]; CurFileMask:=Options.ExtraFiles[i];
if not GlobalMacroList.SubstituteStr(CurFileMask) then exit; if not GlobalMacroList.SubstituteStr(CurFileMask) then exit;
CurFileMask:=ChompPathDelim(TrimFilename(CurFileMask)); CurFileMask:=ChompPathDelim(CurFileMask);
if not FilenameIsAbsolute(CurFileMask) then begin if not FilenameIsAbsolute(CurFileMask) then begin
if Project1.IsVirtual then continue; if Project1.IsVirtual then continue;
CurFileMask:=AppendPathDelim(Project1.ProjectDirectory)+CurFileMask; CurFileMask:=AppendPathDelim(Project1.ProjectDirectory+CurFileMask);
end; end;
CurFileMask:=TrimFilename(CurFileMask);
OnlyPascalSources:=false; OnlyPascalSources:=false;
if DirPathExistsCached(CurFileMask) then begin if DirPathExistsCached(CurFileMask) then begin
// a whole directory // a whole directory