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

IDE: find in files: when nothing found report search string not found, for Marc

Browse Source 
git-svn-id: trunk@15008 -
This commit is contained in:
mattias 2008-04-29 11:18:59 +00:00
parent 52a6a70e01
commit b09453a22c
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/searchfrm.pas
View File

@ -718,7 +718,7 @@ begin
if fSearchProject or fSearchOpen then if fSearchProject or fSearchOpen then
DoFindInSearchList; DoFindInSearchList;
if Assigned(fResultsList) and (fResultsList.Count = 0) then if Assigned(fResultsList) and (fResultsList.Count = 0) then
fResultsList.Add(lisFileNotFound); fResultsList.Add(Format(lisUESearchStringNotFound,[dbgstr(fSearchFor)]));
finally finally
if fResultsListUpdating then begin if fResultsListUpdating then begin
fResultsListUpdating:=false; fResultsListUpdating:=false;

2
ide/sourceeditor.pp
View File

@ -1337,7 +1337,7 @@ begin
and (OldCaretXY.Y=EditorComponent.CaretY) and (OldCaretXY.Y=EditorComponent.CaretY)
and not (ssoReplaceAll in LazFindReplaceDialog.Options) then begin and not (ssoReplaceAll in LazFindReplaceDialog.Options) then begin
ACaption:=lisUENotFound; ACaption:=lisUENotFound;
AText:=Format(lisUESearchStringNotFound, [LazFindReplaceDialog.FindText]); AText:=Format(lisUESearchStringNotFound, [dbgstr(LazFindReplaceDialog.FindText)]);
MessageDlg(ACaption,AText,mtInformation,[mbOk],0); MessageDlg(ACaption,AText,mtInformation,[mbOk],0);
TSourceNotebook(Owner).DeleteLastJumpPointClicked(Self); TSourceNotebook(Owner).DeleteLastJumpPointClicked(Self);
end else begin end else begin