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

IDE: find in files: search in virtual files, bug #19249

Browse Source 
git-svn-id: trunk@30602 -
This commit is contained in:
mattias 2011-05-07 16:33:54 +00:00
parent 0f7d9b552c
commit ee071770c6
1 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
ide/searchfrm.pas
View File

@ -484,6 +484,8 @@ var
NewMatchEndPos: PtrInt; NewMatchEndPos: PtrInt;
Lines: String; Lines: String;
begin begin
//debugln(['SearchInText TheFileName=',TheFileName,' SearchFor=',SearchFor,'" ReplaceText=',ReplaceText,'"']);
if (Progress<>nil) and Progress.Abort then exit(mrAbort); if (Progress<>nil) and Progress.Abort then exit(mrAbort);
Result:=mrOk; Result:=mrOk;
@ -691,7 +693,7 @@ begin
end;//GetOptions end;//GetOptions
function TSearchProgressForm.DoSearch: integer; function TSearchProgressForm.DoSearch: integer;
// Search the text and then return the number of found items. // Search in all files and then return the number of found items.
begin begin
Result:= 0; Result:= 0;
PromptOnReplace:=true; PromptOnReplace:=true;
@ -930,12 +932,12 @@ begin
begin begin
//only if file exists on disk //only if file exists on disk
SrcEdit := SourceEditorManagerIntf.UniqueSourceEditors[i]; SrcEdit := SourceEditorManagerIntf.UniqueSourceEditors[i];
if FilenameIsAbsolute(SrcEdit.FileName) and if FilenameIsAbsolute(SrcEdit.FileName)
FileExistsCached(SrcEdit.FileName) then and (not FileExistsCached(SrcEdit.FileName))
begin then
continue;
TheFileList.Add(SrcEdit.FileName); TheFileList.Add(SrcEdit.FileName);
end; end;
end;
SearchFileList:= TheFileList; SearchFileList:= TheFileList;
DoSearchAndAddToSearchResults; DoSearchAndAddToSearchResults;
finally finally