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

fixed bug #7688

Browse Source 
git-svn-id: trunk@10203 -
This commit is contained in:
andrew 2006-11-14 22:30:32 +00:00
parent 668fc4540a
commit 8eac57bde7
1 changed files with 15 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
ide/searchresultview.pp
View File

@ -635,18 +635,22 @@ var
SearchObj: TLazSearch;
begin
CurrentLB:= GetListBox(ResultsNoteBook.PageIndex);
if not Assigned(CurrentLB) then exit;
SearchObj:= CurrentLB.SearchObject;
if Assigned(FindInFilesDialog) then
begin
with FindInFilesDialog do
if not Assigned(CurrentLB) then begin
MainIDEInterface.FindInFilesPerDialog(Project1);
end
else begin
SearchObj:= CurrentLB.SearchObject;
if Assigned(FindInFilesDialog) then
begin
DirectoryComboBox.Text:= SearchObj.SearchDirectory;
Options:= SearchObj.SearchOptions;
FileMaskComboBox.Text:= SearchObj.SearchMask;
end;//with
MainIDEInterface.FindInFiles(Project1, SearchObj.SearchString);
end;//if
with FindInFilesDialog do
begin
DirectoryComboBox.Text:= SearchObj.SearchDirectory;
Options:= SearchObj.SearchOptions;
FileMaskComboBox.Text:= SearchObj.SearchMask;
end;//with
MainIDEInterface.FindInFiles(Project1, SearchObj.SearchString);
end;//if
end;
end;
{Searched the notebook control for a page with APageName name, returns true if