paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-11 13:37:45 +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

14
ide/searchfrm.pas
View File

@ -484,6 +484,8 @@ var
NewMatchEndPos: PtrInt;
Lines: String;
begin
//debugln(['SearchInText TheFileName=',TheFileName,' SearchFor=',SearchFor,'" ReplaceText=',ReplaceText,'"']);
if (Progress<>nil) and Progress.Abort then exit(mrAbort);
Result:=mrOk;
@ -691,7 +693,7 @@ begin
end;//GetOptions
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
Result:= 0;
PromptOnReplace:=true;
@ -930,11 +932,11 @@ begin
begin
//only if file exists on disk
SrcEdit := SourceEditorManagerIntf.UniqueSourceEditors[i];
if FilenameIsAbsolute(SrcEdit.FileName) and
FileExistsCached(SrcEdit.FileName) then
begin
TheFileList.Add(SrcEdit.FileName);
end;
if FilenameIsAbsolute(SrcEdit.FileName)
and (not FileExistsCached(SrcEdit.FileName))
then
continue;
TheFileList.Add(SrcEdit.FileName);
end;
SearchFileList:= TheFileList;
DoSearchAndAddToSearchResults;